求通用域名注册查询程序

mayi545 2005-08-19 01:10:46

可以查询通用网址和中文域名

...全文

91 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

jim.ma 2005-09-22

打赏
举报

http://www.mycodes.net/soft/4862.htm
whois的
http://www.mycodes.net/soft/1964.htm
批量查询的

不过查询也类似。靠 xmlhttp 去请求注册商的程序的到反馈验证。

lijie7552 2005-09-21

打赏
举报

<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>
//放在记事本里改名为asp文件就行了。

mayi545 2005-08-19