| 在下面输入框中输入您要查询的IP地址，点击查询按钮即可查询该IP地址的WHOIS信息。
IP WHOIS简单来说，就是IP的详细信息的数据库（如IP使用人和IP使用人的相关信息等）。通过IP WHOIS来实现对IP地址详细信息（IP WHOIS Database）的查询。
<% If request("q")<>"" Then %>
<%
'常用函数
'函数：RemoveHref_A(HTMLstr)
'参数：HTMLstr，待去除链接的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：去除字符串中所有的超级链接
'示例：<%=RemoveHref_A("")
HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = replace (HTMLstr,"","")
RemoveHref_A = HTMLstr
Next
End Function
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing
if err.number<>0 then err.Clear
end function
'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
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
'下面试着调用http://www.pkvs.com的html内容
'
on error resume next
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
%>
<%
Url="http://wq.apnic.net/apnic-bin/whois.pl?searchtext="&request("q")&""
Html = getHTTPPage(Url)
'获取指定页面的全部数据
'
start=Instr(html,"whois.apnic.net node")
''这里设置需要处理的数据的头部，这个变量应视不同情况而设置，具体内容可以通过查看需要抓取的页面的源代码来确定。
''因为在这个程序里我们需要抓取整个页面,所以设置为页面全部抓取。注意，设置的内容必须是页面内容唯一的，不可以重复。
'
over=Instr(html,"Bold: Object type")
''和start相对应的就是需要处理的数据的尾部，同样的，设置的内容必须是页面中唯一的。
'
body=mid(html,start-20,over-start-15)
%>
<% End If %>
|
|
