友情连接： 英雄合击私服发布网 超级变态传奇的私服 传奇私服发布网 热血传奇私服发布网
<% Function GetURL(URL) Set http=Server.CreateObject("Microsoft.XMLHTTP") On Error Resume Next http.Open "GET",URL,False http.send() if Err then Err.Clear Response.Write("") Response.End() End if getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312") set http=nothing GetURL=getHTTPPage 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 Content=GetURL("http://www.sfawp.cn/link/link.htm") Response.Write Content %>