<!--#include file="../../conn.asp"-->
<%Call Head()
Call saycarda("IP地址查询")%>

<%
Dim ip
ip=trim(Request.querystring("ipaddr"))
sid=trim(Request.querystring("sid"))
time1=trim(Request.querystring("time1"))
saytkzh123=trim(Request.querystring("saytkzh123"))
        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,"<p>")+3
over=Instr(wstr,"(c)")
body=mid(wstr,start,over-start)
Response.write (body)


response.write"<br/><a href=""/?sid="&sid&""">网站首页</a>"
response.write "<br/><a href=""../index.asp?sid="&sid&""">便民中心</a>"
Call headsay()
%>
