📄 searchdomain.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
on error resume next
domain1=request("domain")
ext=request("ext")
Information=false
if ext="" or ext=empty then
domain=domain1
else
domain=domain1&"."&ext
end if
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
Function GetURL(url,ext)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
if instr(ext,"cn")<>0 then
GetURL = .responseText
else
GetURL = .responsebody
GetURL= bytes2bstr(GetURL)
GetURL=trim(GetURL)
end if
End With
Set Retrieval = Nothing
End Function
if ext<>"" then
if ext="com" or ext="net" or ext="org" or ext="biz" or ext="info" then
TakenHTML = GetURL("http://www-whois.internic.net/cgi/whois?type=domain&whois_nic=" & Domain,ext)
pageafter = "<pre>"
pagebefore = "</pre>"
end if
if instr(ext,"cn")<>0 then
TakenHTML = GetURL("http://ewhois.cnnic.net.cn/whois?entity=domain&value="&Domain,ext)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
end if
if ext="中国" or ext="公司" or ext="网络" then
TakenHTML = GetURL("http://cwhois.cnnic.net.cn/whois.jsp?entityname=domain&queryinfo=" &Domain,ext)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
end if
else
TakenHTML = GetURL("http://seal.cnnic.net.cn/queryserver?nameInfo=" & Domain & "&entityName=keyword","通用网址")
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
end if
tempcontent=TakenHTML
if TakenHTML="" then
TakenHTML="查询有错"
else
if instr(TakenHTML,"没有被注册")<>0 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
end if
%>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<center>
<TABLE border=1 cellPadding=0 cellSpacing=0 width="760" bordercolor="#6687BA" style="border-collapse: collapse">
<TR>
<TD vAlign=top width=174>
<!--#include file="domain_left.asp"-->
<BR>
</TD>
<TD height="400" align=middle vAlign=top>
<table width="100%" height="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="563" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%if InStr(TakenHTML,"No entries") > 1 then%>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><span class="bk"><font color="#FF0000">对不起，您查询的域名<font color="#000000">
<%=Domain%></font> 出现错误!</font></span><font color="#FF0000"><br>
<br>
请您核实后重新查询，谢谢！</font></td>
</tr>
</table>
<%end if%>
<%if InStr(TakenHTML,"No match") > 1 or InStr(TakenHTML,"Register system prompt")>1 or InStr(TakenHTML,"not been registered yet")>1 or InStr(TakenHTML,"没有找到这个条目")>1 or InStr(TakenHTML,"没有查到符合条件的记录")>1 or InStr(TakenHTML,"信息不存在")>1 or InStr(TakenHTML,"Not Exist")>1 or InStr(TakenHTML,"NOT FOUND")>1 or InStr(TakenHTML,"你所查询的信息不存在")>1 or InStr(TakenHTML,"此域名没有被注册")=1 then %>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="54" valign="top"><font color="#FF0000">恭喜，您所查询的域名<font color="#000000">
<% = Domain%>
</font> 还没有被注册</font><br> <br>
请您填写下面表格迅速注册您的域名！<br> <br> <table width="520" border="0" cellspacing="0" cellpadding="0">
<form name="regdomain" action="skipsession.asp" method="POST">
<tr>
<td width="170">1、域名</td>
<td width="350"> <input id=text2 name=domain size=30. value=<%=Domain%> readonly class="form">
</td>
</tr>
<tr>
<td>2、姓名（中文）：</td>
<td> <input id=text3 name=cname size=30 class="form">
<font color="#ff0000">＊必填</font> <span lang="zh-cn">如：</span>张三</td>
</tr>
<tr>
<td>3、姓名（英文或拼音）：</td>
<td> <input id=text4 name=ename size=30 class="form">
<font color="#ff0000">＊必填</font> </td>
</tr>
<tr>
<td>4、注册组织名称（中文）：</td>
<td> <input id=text5 name=ccomp size=30 class="form">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>5、注册组织名称（英文）</td>
<td> <input id=text6 name=ecomp size=30 class="form">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>6、通讯地址（中文）：</td>
<td> <input id=text7 name=caddress size=30 class="form">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>7、通讯地址（英文）：</td>
<td> <input id=text8 name=eaddress size=30 class="form">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>8、城市（中文）：</td>
<td> <input id=text9 name=ccity size=30 class="form">
<font color="#ff0000">＊必填</font> </td>
</tr>
<tr>
<td>9、城市（英文）：</td>
<td> <input id=text27 name=ecity size=30 class="form">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>10、省份（中文）：</td>
<td> <input id=text10 name=csheng size=30 class="form">
<font color="#ff0000">＊必填</font> </td>
</tr>
<tr>
<td>11、省份（英文）：</td>
<td> <input id=text26 name=esheng size=30 class="form">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>12、国家（英文）：</td>
<td> <input id=text11 name=country size=30 value=China class="form">
<font color="#ff0000">＊必填</font> </td>
</tr>
<tr>
<td>13、邮政编码：</td>
<td> <input id=text12 name=postnumber size=30 class="form" value="<%=postnumber%>">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>14、电话：</td>
<td> <input id=text15 name=tel size=30 class="form" value="<%=tel%>">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>15、传真：</td>
<td> <input id=text16 name=fax size=30 class="form" value="<%=fax%>">
<font color="#ff0000">＊必填</font></td>
</tr>
<tr>
<td>16、电子邮件：</td>
<td> <input id=text17 name=email size=30 class="form" value="<%=email%>">
<font color="#ff0000">＊必填</font> </td>
</tr>
<tr>
<td>17、注册年限：</td>
<td> <select name="regyear" size="1">
<option value="1" selected>1年</option>
<option value="2">2年</option>
<option value="3">3年</option>
<option value="4">4年</option>
<option value="5">5年</option>
<option value="6">6年</option>
<option value="7">7年</option>
<option value="8">8年</option>
<option value="9">9年</option>
<option value="10">10年</option>
</select> </td>
</tr>
<tr>
<td>18、注册类型：</td>
<td>
<select name="domaintyp" id="domaintyp">
<option value="国际英文域名注册">英文国际域名注册</option>
<option value="国内英文域名注册">英文国内域名注册</option>
<option value="通用网址注册">通用网址注册</option>
</select>
<font color="#ff0000">＊必选</font></td>
</tr>
<tr>
<td height="35" rowspan="2">19、如果您用自己的<br>
dns服务器请您指明</td>
<td height="35">主域名服务器信息：
<input id=dns1 name=dns1 size=18 class="form">
如无请不填</td>
</tr>
<tr>
<td>副域名服务器信息：
<input id=dns2 name=dns2 size=18 class="form">
如无请不填</td>
</tr>
<tr>
<td valign="top"><br>
20、备注及其它要求：</td>
<td> <br> <textarea rows="5" name=payother cols="45"></textarea>
</td>
</tr>
<tr>
<td height="45" colspan="2" align="center">
<input type="submit" name="Submit22" value="下一步>>">
<input type="reset" name="reset" value="重新填写">
</td>
</tr>
</form>
</table></td>
</tr>
</table>
<%else%>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> <p><br> <% end if %>
<br>
<%if InStr(TakenHTML,"No match") > 1 or InStr(TakenHTML,"Register system prompt")>1 or InStr(TakenHTML,"not been registered yet")>1 or InStr(TakenHTML,"没有找到这个条目")>1 or InStr(TakenHTML,"此域名没有被注册")>1 or InStr(TakenHTML,"没有查到符合条件的记录")>1 or InStr(TakenHTML,"信息不存在")>1 or InStr(TakenHTML,"Not Exist")>1 or InStr(TakenHTML,"NOT FOUND")>1 or InStr(TakenHTML,"你所查询的信息不存在")>1 then%>
<% else %> 以下域名以经注册了
<br>
以下是注册信息<br>
<%=TakenHTML%></p>
<p>
<% end if %> <br> </td>
</tr>
<tr>
<td height="20"> <div align="right"> </div></td>
</tr>
</table></td>
</tr>
</table></TD>
</TR>
</TABLE>
</center>
</div>
</table>
</center>
</div>
<!--#include file="foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -