<% Dim ip ip=trim(Request.querystring("ipaddr")) On Error Resume Next Server.ScriptTimeOut=9999999 function getHTTPPage(url,Input_) dim Http set Http=server.createobject("Microsoft.XMLHTTP") Http.Open "POST",url,False,"", "" Http.SetRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" Http.Send(Input_) if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") 'utf-8,GB2312 set http=nothing if err.number<>0 then err.Clear 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 '--------------------------------------- Dim Url,start,over,body,wstr,str,Input_ Url="http://wap.ip138.com/ip.asp" Input_="ip="&request("ipaddr")&"" wstr=getHTTPPage(url,Input_) start=Instr(wstr,"

")+3 over=Instr(wstr,"(c)2003-06 wap.ip138.com
") body=mid(wstr,start,over-start) Response.write (body) response.write "
返回上级" response.write "
网站首页
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "