search.asp

一个非常优秀的自动建站程序

<TR>
<TD><table width="350" border="0" align="center">
<tr>
<td> <%Domain = Request.form("domain")

if request.Form("com") then
sdomain=Domain+".com"
TakenHTML = GetURL("http://reports.internic.net/cgi-bin/whois?whois_nic="&sdomain&"&type=domain")
if InStr(TakenHTML,"Error") > 1 then
ErrStr = ErrStr + sdomain & "出错了,请返回！<br><br>"
else
if InStr(TakenHTML,"No match") > 1 then
ok = ok+ "<font color=blue><a href=domainbuy.asp?typeid=com&domain="&sdomain&">" & sdomain&" 可以注册！</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".com>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("comcn") then
sdomain=Domain+".com.cn"
TakenHTML =GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"no match") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".com.cn>" & sdomain &" 已经被注册!</a></font><br>"
else
ok=ok+"<font color=blue><a href=domainbuy.asp?typeid=com.cn&domain="&sdomain&">" & sdomain&" 可以注册</font><br>"
end if
end if
if request.Form("net") then
sdomain=Domain+".net"
TakenHTML = GetURL("http://reports.internic.net/cgi-bin/whois?whois_nic="&sdomain&"&type=domain")
if InStr(TakenHTML,"Error") > 1 then
Response.Write sdomain & "出错了,请返回！<br><br>"
else
if InStr(TakenHTML,"No match") > 1 then
ok=ok+ "<font color=blue><a href=domainbuy.asp?typeid=net&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".net>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("netcn") then
sdomain=Domain+".net.cn"
TakenHTML =GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"no match") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".net.cn>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<font color=blue><a href=domainbuy.asp?typeid=net.cn&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
end if
end if
if request.Form("org") then
sdomain=Domain+".org"
TakenHTML = GetURL("http://reports.internic.net/cgi-bin/whois?whois_nic="&sdomain&"&type=domain")
if InStr(TakenHTML,"Error") > 1 then
Response.Write sdomain & "出错了,请返回！<br><br>"
else
if InStr(TakenHTML,"NOT FOUND") > 1 then
ok=ok+ "<font color=blue><a href=domainbuy.asp?typeid=org&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".org>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("orgcn") then
sdomain=Domain+".org.cn"
TakenHTML =GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"no match") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".org.cn>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<font color=blue><a href=domainbuy.asp?typeid=org.cn&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
end if
end if
if request.Form("cn") then
sdomain = Domain+".cn"
TakenHTML = GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"no match") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".cn>" & sdomain&" 已经被注册！</a></font><br>"
else
ok=ok+ "<font color=blue><a href=domainbuy.asp?typeid=cn&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
end if
end if
if Request.Form("biz") then
sdomain=Domain+".biz"
TakenHTML = GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"Error") > 1 then
Response.Write sdomain & "出错了,请返回！<br>"
else
if InStr(TakenHTML,"Not found") > 1 then
ok=ok+ "<font color=blue><a href=domainbuy.asp?typeid=biz&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".biz>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("info") then
sdomain=Domain+".info"
TakenHTML = GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"Error") > 1 then
Response.Write sdomain & "出错了,请返回！<br><br>"
else
if InStr(TakenHTML,"NOT FOUND") > 1 then
ok=ok+ "<font color=blue><a href=domainbuy.asp?typeid=info&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".info>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("tv") then
sdomain=Domain+".tv"
TakenHTML =GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,".tv") > 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".tv>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<a href=domainbuy.asp?typeid=tv&domain="&sdomain&">" & sdomain&" 可以注册</a><br>"
end if
end if
if request.Form("cc") then
sdomain=Domain+".cc"
TakenHTML =GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"No match") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".cc>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<a href=domainbuy.asp?typeid=cc&domain="&sdomain&">" & sdomain&" 可以注册</a><br>"
end if
end if
if request.Form("govcn") then
sdomain=Domain+".gov.cn"
TakenHTML =GetURL("http://whois.hichina.com/cgi-bin/whois?domain=" & sdomain & "&GO=GO")
if InStr(TakenHTML,"no match") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&".gov.cn>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<a href=domainbuy.asp?typeid=gov.cn&domain="&sdomain&">" & sdomain&" 可以注册</a><br>"
end if
end if
if allreg <>"" then response.write "√以下域名已被注册，点击查看whois信息<br>"
response.write allreg
if ok <>"" then response.write "↓以下域名未被注册，请选择注册↓<br><FONT color=red>→提交注册信息请先确认已在首页登陆系统！</FONT><br>"
response.write ok
%></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<form action="search.asp" method=post onSubmit="return submitchecken()" name=frmsearchInt>
<TABLE cellSpacing=0 cellPadding=0 width=593 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR align=middle bgColor=#f5f5f5>
<TD align=right width=164 height=33><SPAN class=da><FONT
face="Times New Roman, Times, serif"
color=#000000><STRONG>www.</STRONG></FONT></SPAN><FONT
face="Times New Roman, Times, serif" color=#000000><SPAN
class=big1><STRONG><FONT
color=#ffffff>.</FONT></STRONG></SPAN></FONT></TD>
<TD align=middle width=216><INPUT id="Domain" class=redbox size=28
name=Domain>
</TD>
<TD align=left width=197 bgColor=#f5f5f5><input type="image" height=20 src="images/whois.gif" width=118></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width=95><IMG height=66
src="images/icann.gif" width=65></TD>
<TD width=8><IMG height=94 src="images/shxian.gif"
width=2></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width=100 height=35><STRONG>国际域名<FONT
face="Geneva, Arial, Helvetica, sans-serif">：</FONT></STRONG></TD>
<TD width=80 height=35><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=com type=checkbox id="com"
value=1 checked>
.com</FONT></STRONG></TD>
<TD width=80 height=35><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=net type=checkbox id="net" value=1>
.net</FONT></STRONG></TD>
<TD width=80 height=35><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=org type=checkbox id="org" value=1>
.org</FONT></STRONG></TD>
<TD width=80 height=35>&nbsp;</TD>
<TD width=80 height=35>&nbsp;</TD>
</TR>
<TR bgColor=#f5f5f5>
<TD align=right width=100 height=30><STRONG>国家顶级域名<FONT
face="Geneva, Arial, Helvetica, sans-serif">：</FONT></STRONG></TD>
<TD width=80 height=30><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=comcn type=checkbox id="root52"
value=1>
.com.cn</FONT></STRONG></TD>
<TD width=80 height=30><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=netcn type=checkbox id="root42" value=1>
.net.cn</FONT></STRONG></TD>
<TD width=80 height=30><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=orgcn type=checkbox id="root62"  value=1>
.org.cn</FONT></STRONG></TD>
<TD width=80 height=30><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=govcn type=checkbox id="root24" value=1>
.gov.cn</FONT></STRONG></TD>
<TD width=80 height=30><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=cn type=checkbox id="cn" value=1>
<FONT color=#ff0000>.cn</FONT></FONT></STRONG></TD>
</TR>
<TR>
<TD align=right width=100 height=35><STRONG>新国际域名<FONT
face="Geneva, Arial, Helvetica, sans-serif">：</FONT></STRONG></TD>
<TD width=80 height=35><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=cc type=checkbox id="root73" value=1>
.cc</FONT></STRONG></TD>
<TD width=80 height=35><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=biz type=checkbox id="biz" value=1>
.biz</FONT></STRONG></TD>
<TD width=80 height=35><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=info type=checkbox id="root24" value=1>
.info</FONT></STRONG></TD>
<TD width=80 height=35><STRONG><FONT
face="Geneva, Arial, Helvetica, sans-serif">
<input name=tv type=checkbox id="root32" value=1>
.tv</FONT></STRONG></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=16>&nbsp;</TD>
</TR>
</TBODY>
</TABLE></form>
</TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="newfoot.asp"-->