取WEB版本
- $fp =@fsockopen($domain, $port, $errno, $errstr, 20);
- if(!$fp){
- return "UNKNOWN";
- exit;
- } else {
- $ok = false;
- @fputs($fp,"GET $geturl HTTP/1.0\nHost: $domain\n\n\r\n");
- while(!feof($fp)){
- $line = fgets($fp,128);
- if(! $ok && preg_match("/^[\r\n]+$/",$line)) {
- $ok = true; //正文开始
- }
- if(!$ok){
- if(preg_match("/([^:]+?):(.+)/",$line,$r))
- $info[$r[1]] = $r[2];//取WEB版本
- }else{
- $body.=$line;//取得BODY文件
- }
- }
- }
- fclose($fp);
