这段asp代码转PHP，如何写？
<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.redirect "http://www.letsgo8.com/"
response.end
end if
Function GetWebData(byval strUrl)
dim curlpath
dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", strUrl, False,"",""
.setRequestHeader "Referer","http://photo.21cn.com/"
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function
url21=request("url")
body=GetWebData(url21)
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite body
Response.Flush
%>
以上是一个小偷程序，我对ASP不熟悉，用PHP该如何写？
问题点数：20、回复次数：7Top
1 楼eagle_gui（凉开水@www.dd16.net）回复于 2005-09-21 14:43:59 得分 0
人都到哪里去啦？Top
2 楼lisoon（http://www.lisoon.com/FlashRss/）回复于 2005-09-21 16:27:25 得分 10
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))==>$_SERVER['HTTP_REFERER']
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))==>$_SERVER['SERVER_NAME']
mid字符截取函数，也就是从www.后开始截取，长度为server_v2的长度.比较不相等，就转到另一个页面，response.redirect跟header一样
header("Content-type: text/html; charset=gb2321");
$textbody = file_get_contents("http://www.baidu.com");
print $textbody;
//功能是一样的....Top
3 楼fox1999（红狐）回复于 2005-09-21 16:42:45 得分 5
$_SERVER['HTTP_REFERER']
很多时间不能用。
总之我好象没有正常用起过一次Top
4 楼eagle_gui（凉开水@www.dd16.net）回复于 2005-10-10 11:59:15 得分 0
还是不懂。能不能写个完整的？Top
5 楼eagle_gui（凉开水@www.dd16.net）回复于 2005-10-19 12:15:59 得分 0
upTop
6 楼ddboy（留言版版主）回复于 2005-10-19 18:56:56 得分 5
如果服务器没配置的话,是不能用 $_SERVER['HTTP_REFERER'] 这参数的
如果抓取网页,简单的用 file_get_contents(url) 就行的了
不过如果要自己发送和获取HTTP头,就不方便了,可以使用我编写的一下类
地址在:
http://prato.bokele.com/?CH=749&ViewID=15272 (我博客里的,不是垃圾网址)
Top
7 楼eagle_gui（凉开水@www.dd16.net）回复于 2005-10-20 14:06:03 得分 0
ddboy(留言版版主)
好像下载图片不可用哦。
Top
