100分请请高手改一小段代码 ASP - > PHP
谁帮忙一下，感激不尽，PHP白吃请教
dim userip,urlhead,urlPar,userID
urlhead = Request.ServerVariables("ALL_HTTP")
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
userID = ""
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
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get",urlString,False,"",""
.Send
End With
Set Retrieval = Nothing
哪位帮了忙顺便留下QQ或MSN好吗？：》
问题点数：100、回复次数：13Top
1 楼kingerq（多菜鸟）回复于 2005-01-29 09:28:15 得分 0
楼主应该加上一些注释。
偶的ASP比较烂。Top
2 楼Meteorlet（http://smartdict.cn）回复于 2005-01-29 09:50:59 得分 0
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;
Top
3 楼fkphp（桔子）回复于 2005-01-29 09:52:30 得分 0
呵,行
'定义变量
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;
}
}
不知道有没有用~Top
4 楼fkphp（桔子）回复于 2005-01-29 09:53:58 得分 0
Meteorlet(Meteorlet)
能说说你的MSN或QQ吗?还有一个小问题需请教~Top
5 楼Meteorlet（http://smartdict.cn）回复于 2005-01-29 09:59:46 得分 0
goldenwu96@hotmail.comTop
6 楼klend（苯鸟（2006））回复于 2005-01-29 10:25:13 得分 0
没测试过：
<?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()实现相同的功能，
?>Top
7 楼fkphp（桔子）回复于 2005-01-29 10:27:36 得分 0
to 笨鸟
HOHO
Parse error: parse error in C:\php1\incSpec.php on line 8Top
8 楼klend（苯鸟（2006））回复于 2005-01-29 10:29:36 得分 0
不是吧，to Meteorlet(Meteorlet)
下面这些在$_SERVER变量里不存在
$urlhead = $_SERVER["ALL_HTTP"];
$userip = $_SERVER["HTTP_X_FORWARDED_FOR"];
$urlPar = $_SERVER["URL"];Top
9 楼klend（苯鸟（2006））回复于 2005-01-29 10:31:10 得分 0
to 楼主
是哪一行少了个;号Top
10 楼fkphp（桔子）回复于 2005-01-29 10:37:13 得分 0
呵,谢啦还有一点小问题
Fatal error: Call to undefined function: getallheaders() in C:\php1\incSpec.php on line 2Top
11 楼Meteorlet（http://smartdict.cn）回复于 2005-01-29 10:55:23 得分 50
回复人： klend(苯鸟（飞翔2005，还是没有技术含量）)
是的，$urlhead = $_SERVER["ALL_HTTP"]; 用getallheaders()替换
$userip = $_SERVER["HTTP_X_FORWARDED_FOR"]; 这个是代理服务器转发的时候有的
$urlPar = $_SERVER["URL"]; 用$_SERVER['SCRIPT_NAME']替换Top
12 楼fkphp（桔子）回复于 2005-01-29 11:21:38 得分 0
再次谢谢两位,这个贴子里面还有100分,进来接分啊
http://community.csdn.net/Expert/topic/3762/3762352.xml?temp=.7757379Top
13 楼klend（苯鸟（2006））回复于 2005-01-29 11:22:09 得分 50
to: Meteorlet(Meteorlet)
赫赫sorry，我测试了一下，PHP4.3.4
其实你写的那几个变量是存在的。
getallheaders() 确实不好用了应该改成$_SERVER["ALL_HTTP"];
：）
Top
