小偷的应用-----域名注册查询程序

a.asp传递要查询的信息
<form name="form1" method="post" action="b.asp">
www.<input maxlength=63 name="domain" size="23" value="qq">
<input name="ext" type="radio" value="com" checked>.com
<input type="radio" name="ext" value="net">.net
<input type="radio" name="ext" value="org">.org
<input type="radio" name="ext" value="gov">.gov
<input type="submit" name="Submit2" value="查询">
</form>
b.asp接收信息，进行查询，输出结果
<%
on error resume next
domain=request("domain")
ext=request("ext")
domain=domain&"."&ext

'小偷主要函数
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,"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

'要偷的目标网页 我们这里是偷internic[这个站老是说查询的人太多，你别急！]，因为我们是域名查询嘛！！
TakenHTML =getHTTPPage("http://www-whois.internic.net/cgi/whois?type=domain&whois_nic="&domain)

'目标网页里我们所需要的内容标记，如下我们所需要的内容是在<pr></pre>之间的。
pageafter = "<pre>"
pagebefore = "</pre>"

'筛选出我们要的那部分内容放到TakenHTML中
tempcontent=TakenHTML
if TakenHTML="" then
TakenHTML="查询有错"
else
if instr(1,TakenHTML,pageafter,1)<>0 then
pagestart=InStr(1,tempcontent, pageafter,1)+ Len(pageafter) + 1
pageend=instr(pagestart,tempcontent,pagebefore,1)
pageend = pageend - pagestart
TakenHTML = Mid(tempcontent, pagestart, pageend)
TakenHTML=pageafter&TakenHTML&pagebefore
end if
end if
'接下来就好办啦！用InStr函数搜一下就可以判断了！
%>

<TABLE border="1"><TBODY>
<TR>
<TD>你选择的域名</TD>
<TD>注册状态</TD>
<TD>相关信息</TD>
</TR>
<%if InStr(TakenHTML,"No entries") > 1 or InStr(TakenHTML,"Rate Error") > 1 then%>
<TR>
<TD><%=Domain%></TD>
<TD>出现错误(请稍后查询)！</TD>
<TD>出现错误！</TD>
</TR>
<%else%>
<%if InStr(TakenHTML,"no matching record") > 1 or InStr(TakenHTML,"No match") > 1 or InStr(TakenHTML,"Register system prompt")>1 or InStr(TakenHTML,"not been registered yet")>1 or InStr(TakenHTML,"Not Exist")>1 or InStr(TakenHTML,"Not found")>1 then %>
<TR>
<TD><%=Domain%></TD>
<TD>未被注册</TD>
<TD><%=TakenHTML%></TD>
</TR>
<% Else %>
<TBODY>
<TR>
<TD><%=Domain%></TD>
<TD>已经被注册！</TD>
<TD><%=TakenHTML%></TD>
</TR>
<%end if end if%>
</TBODY>
</TABLE>
卖一下 :D俺的球球：47271977.伊妹：hdesign@126.com