一个函数

function GetHTML ($url, &$delta, $corto = false, $complet = true) {

$url_stuff = parse_url($url);

$fp = fsockopen ($url_stuff['host'], 80, $errno, $errstr, 30);

if (!$fp) {

exit;

} else {
$header = "GET " . $url_stuff['path'] . "?" . $url_stuff['query'] ;

$header = $header . " HTTP/1.0/r/nHost: " . $url_stuff['host'] . "/r/n/r/n";

fputs ($fp, $header);

//Separar contenido...

$header = '';

$body = '';

$act = false;

$fin = false;

while ((!feof($fp)) && !$fin) {

$line = fgets ($fp,1024);

if (!$act) {

if (strpos($line, "/r/n", 0) == 0) {

$header .= $line;

if (!$complet) $fin = true;

$act = true;

} else {

$header .= $line;

}

} else {

if ($corto) {

if (eregi ("<body([^>]*)>", $line, $o)) $fin = true;

}

if (!$fin) $body = $body . $line;

}

}



//Seguir location...

$ret = strpos($header, "Location:", 0);

if ($ret !== false) {

$fin = strpos($header, "/r/n", $ret +9);

$nueva = substr($header, $ret+9, $fin - $ret - 9);

$body = GetHTML($nueva, $delta, $corto, $complet);

} else {

$delta = $url;

}



fclose ($fp);

}



return $body;

}