<!--#include file="../conn.asp"-->
<%Call Head()%>
<card title="IP地址查询"><p>
<%
Dim ip
ip=trim(Request.querystring("ipaddr"))
sid=trim(Request.querystring("sid"))
        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 "<anchor title=""back""><prev/>[返回上级]</anchor>"
response.write"<br/><a href=""online.asp?sid="&sid&""">[在线用户]</a>"
response.write "<br/><a href=""index.asp?sid="&sid&""">[站长工具]</a>"
response.write "<br/><a href=""../index.asp?sid="&sid&""">[后台管理]</a>"
response.write "</p></card></wml>" & Chr(13)
%>
