<% ' codz by kEvin1986 [S4T] on error resume next url=lcase(request("pURL")) if url<>"" then if left(url,7)<>"http://" then url="http://" & url set xml=server.createobject("Microsoft.Xmlhttp") xml.open "Get",url,false,false xml.send if err then response.write "无法访问.":response.end proxyweb=B2Bstr(xml.responsebody) end if Function B2Bstr(body) 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 = "GB2312" B2Bstr = objstream.ReadText objstream.Close set objstream = nothing End Function %> <center> <form method=post> The Address what you wanna visit<br> <input name=pURL type=text size=30 value=<%=url%>> <input type=submit value="访问"> </form> <hr size=1> <center> <%=proxyweb%>
asp的Proxy功能2006-4-10 22:54:17asp的Proxy功能2006-4-10 22:54:17asp的Proxy功能