域名查询代码

来源：互联网发布：风险矩阵分析法 r=lxs 编辑：程序博客网时间：2024/04/28 07:49

域名查询程序：
<HTML>
<HEAD>
<title>域名查询</title><%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
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
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<body>
<%
if request.Form("Submit")="查询" then
types=split(request.form("checkbox"),",") '获取当前选择的类型
dns=trim(request.form("dns"))
for i=0 to ubound(types)
ext=replace(trim(types(i)),".","")
'url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&trim(types(i))
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&ext
wstr=getHTTPPage(url)
if instr(lcase(wstr),"已被注册的域名")>0 then
mes="已被注册!"
elseif instr(lcase(wstr),"未被注册的域名")>0 then
mes="未被注册!"
else
mes="网络延迟,请重新查找!"
end if
response.write dns & "." & trim(types(i)) & ":" & mes & "<br/>"
next

elseif request.Form("Submit")="中文查询" then
alert("fdfdfdfd")
types=split(request.form("checkbox"),",") '获取当前选择的类型
dns=trim(request.form("dnsmain"))
for i=0 to ubound(types)
ext=replace(trim(types(i)),".","")
'url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&trim(types(i))
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="& dns &"&ext="&ext
wstr=getHTTPPage(url)
if instr(lcase(wstr),"已被注册的域名")>0 then
mes="已被注册!"
elseif instr(lcase(wstr),"未被注册的域名")>0 then
mes="未被注册!"
else
mes="网络延迟,请重新查找!"
end if
response.write dns & "." & trim(types(i)) & ":" & mes & "<br/>"
next
end if
%>
<form name="form1" method="post" onSubmit="javascript:return check()">
<script language="JavaScript">

</script>
<table width="431" height="144" border="0" align="center" cellpadding="0" cellspacing="0"
id="TABLEE">
<tr>
<td align=left height=11>
<table width="423" height="41" border="0" align="center" cellpadding="0" cellspacing="0"
id="TABLE1">
<TR>
<TD width="200">英文域名查询:</TD>
<td></td>
</TR>
<TR>
<TD width="200">www. <INPUT id="dns" type="text" size="18" name="dns"></TD>
<TD width="85"><INPUT type=submit value=查询 name=Submit></TD>
</TR>
</table>
</td>
</tr>
<tr>
<td height=100>
<table align="center" id="tablechecke">

<TR>
<TD width="114" height="19"><INPUT id="checkbox" type="checkbox" CHECKED value="com" name="checkbox">
.com</TD>
<TD width="85" height="19"><INPUT type="checkbox" value="net" name="checkbox"> .net
</TD>
<TD height="19"><INPUT type="checkbox" value="org" name="checkbox"> .org
</TD>
<TD width="126" height="19"><INPUT type="checkbox" value="info" name="checkbox"> .info
</TD>
</TR>
<TR>
<TD width="114" height="22"><INPUT type="checkbox" value="biz" name="checkbox">
.biz
</TD>
<TD width="85" height="22"><INPUT type="checkbox" value="ee" name="checkbox"> .ee
</TD>
<TD height="22"><INPUT type="checkbox" value="tv" name="checkbox"> .tv</TD>
<TD width="126" height="22"><INPUT type="checkbox" value="gov.cn" name="checkbox"> .gov.cn</TD>
</TR>
<TR>
<TD width="114"><INPUT type="checkbox" value="com.cn" name="checkbox"> .com.cn
</TD>
<TD width="85"><INPUT type="checkbox" value="net.cn" name="checkbox"> .net.cn
</TD>
<TD><INPUT type="checkbox" value="org.cn" name="checkbox"> .org.cn</TD>
<TD width="126"><INPUT type="checkbox" value="cn" name="checkbox"> .cn</TD>
</TR>
<TR>
<TD width="114" height="24"><INPUT type="checkbox" value="hk" name="checkbox"> .hk
</TD>
<TD width="85" height="24"><INPUT type="checkbox" value="com.tw" name="checkbox"> .com.tw
</TD>
<TD height="24"><INPUT type="checkbox" value="idv.tw" name="checkbox"> .idv.tw</TD>
<TD width="126" height="24"><INPUT type="checkbox" value="in" name="checkbox"> .in</TD>
</TR>
</table></td></tr>
</table>
</form>
<form id="form2" method="post" onsubmit="javascript:return checkform2()">
<script language="JavaScript">

</script>
<table id=tablec height=88 align=center>
<tr>
<td height=49>
<table width="425" height="24" border="0" align="center" cellpadding="0" cellspacing="0"
id="Table2">
<TR>
<TD width="238" colSpan="2">中文域名查询:</TD>
</TR>
<TR>
<TD width="179">www.<INPUT id="dnsmain" type="text" size="17" name="dnsmain"></TD>
<TD width="85"><INPUT type="submit" value="中文查询" name="Submit"></TD>
</TR>
</table>
</td>
</tr>
<tr>
<td>
<table id="tablecheckc" align="center" height="8">
<TR>
<TD width="84" height="19"><INPUT id="Checkbox1" type="checkbox" CHECKED value="com" name="checkbox">
.com</TD>
<TD width="85" height="19"><INPUT type="checkbox" value="net" name="checkbox"> .net
</TD>
<TD height="19" width="77"><INPUT type="checkbox" value="中国" name="checkbox"> .中国
</TD>
<TD width="93" height="19"><INPUT type="checkbox" value="网络" name="checkbox"> .网络
</TD>
<TD height="19"><INPUT type="checkbox" value="公司" name="checkbox"> .公司
</TD>
</TR>
</table>
</td>
</tr>
</table>
</form>
</body>
</HTML>