100分请请高手改一小段代码 ASP - > PHP

Question

楼主应该加上一些注释。
偶的ASP比较烂。

Answer 1

var $userip,$urlhead,$urlPar,$userID
$urlhead = $_SERVER["ALL_HTTP"];
$userip = $_SERVER["HTTP_X_FORWARDED_FOR"];
If ($userip = "") $userip = $_SERVER["REMOTE_ADDR"];
$userID = "";
$urlPar = $_SERVER["URL"];
if (trim($_SERVER["QUERY_STRING"]) != "")     
$urlPar = $urlPar."?".$_SERVER["QUERY_STRING"];
$urlString ="http://www.xxx.com/?id=$userID&Par=$urlPar&ip=$userip&head=$urlhead";
$fp = fopen($urlstring, "r");
fclose($fp); 
$fp = null;

Answer 2

呵,行
'定义变量
dim userip,urlhead,urlPar,userID
'获取所有HTTP Header信息
urlhead = Request.ServerVariables("ALL_HTTP")
'获取用户真实IP,判断是否使用PROXY
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")userID = ""
'获取当前网址及参数,使它成为这种形式xxx.asp?id=xxx
urlPar = Request.ServerVariables("URL")
if trim(Request.ServerVariables("QUERY_STRING")) <> "" then urlPar = urlPar&"?"&Request.ServerVariables("QUERY_STRING")
'把上面所有的变量连成一个字符串
urlString ="http://www.xxx.com/?id="&userID&"&Par="&urlPar&"&ip="&userip&"&head="&urlhead
'用xmlhttp get提交网址
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
  .Open "Get",urlString,False,"",""
  .Send 
End With 
Set Retrieval = Nothing 另附PHP get提交方法
$file = "http://www.xx.com?id=xxx&abc=dd;
$data = $this->naps_get_html($file);function naps_get_html($file)
{
$fp = @fopen($file, 'rb');
if ($fp) {
do {
$urldata = @fread($fp, 8192);
     if (strlen($urldata) == 0) break;
     $result .= $urldata;
} while(true);
return $result;
} else {
return false;
}
}不知道有没有用~

Answer 3

Meteorlet(Meteorlet) 能说说你的MSN或QQ吗?还有一个小问题需请教~

Answer 4

没测试过：
<?php
$urlhead = getallheaders();
$userip = $_SERVER['REMOTE_ADDR'];
$userID = "";
$urlPar = 'http://'.$_SERVER['SERVER_NAME'].':'.$_SERVER["SERVER_PORT"].$_SERVER["REQUEST_URI"];  
if($_SERVER['QUERY_STRING'] != ""){
$urlPar.'?'.$_SERVER['QUERY_STRING']
}
$urlString = 'http://www.xxx.com/?id='.$userID.'&Par='.$urlPar.'&ip='.$userip.'&head='.$urlhead;
//获得网页部分我想可以用fopen()实现相同的功能，
?>

Answer 5

to 笨鸟
HOHOParse error: parse error in C:\php1\incSpec.php on line 8

Answer 6

不是吧，to Meteorlet(Meteorlet) 
下面这些在$_SERVER变量里不存在$urlhead = $_SERVER["ALL_HTTP"];
$userip = $_SERVER["HTTP_X_FORWARDED_FOR"];
$urlPar = $_SERVER["URL"];

Answer 7

呵,谢啦还有一点小问题Fatal error: Call to undefined function: getallheaders() in C:\php1\incSpec.php on line 2

Answer 8

回复人： klend(苯鸟（飞翔2005，还是没有技术含量）) 是的，$urlhead = $_SERVER["ALL_HTTP"]; 用getallheaders()替换
$userip = $_SERVER["HTTP_X_FORWARDED_FOR"]; 这个是代理服务器转发的时候有的
$urlPar = $_SERVER["URL"]; 用$_SERVER['SCRIPT_NAME']替换

Answer 9

再次谢谢两位,这个贴子里面还有100分,进来接分啊http://community.csdn.net/Expert/topic/3762/3762352.xml?temp=.7757379

Answer 10

to: Meteorlet(Meteorlet)
赫赫sorry，我测试了一下，PHP4.3.4
其实你写的那几个变量是存在的。
getallheaders() 确实不好用了应该改成$_SERVER["ALL_HTTP"]; 
：）