📄 config_search.asp
字号:
<%
'**********************************
'版本:Host_free 3.0 *
'官方网站:Http://www.850518.com *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版) *
'MSN: steven_bass@msn.com *
'手机:(0)13632779827 *
'mail:wtez@vip.163.com *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%sub search
Function bstr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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
bstr = strReturn
End Function
Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, false
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send
GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=bstr(GetURL)
End Function
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
<tr>
<td width="100%" height="20">
<p align="center"><font color="#FFFFFF">查 询 结 果</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="90%">
<tr>
<td width="100%"> </td>
</tr>
<tr>
<td width="100%"><%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=../member/step1.asp?prod_kind=DR024&domain="&sdomain&">" & sdomain&" 可以注册！</a></font><br><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=com&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("comcn") then
sdomain=Domain+".com.cn"
TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain=" & Domain & "&ext=comcn&work=whois&big5=n")
if InStr(TakenHTML,"未被注册的域名") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=comcn&work=whois&big5=n>" & sdomain &" 已经被注册!</a></font><br>"
else
ok=ok+"<font color=blue><a href=../member/step1.asp?prod_kind=DR027&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=../member/step1.asp?prod_kind=DR025&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=net&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br><br>"
end if
end if
end if
if request.Form("netcn") then
sdomain=Domain+".net.cn"
TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi.cgi?domain=" & Domain & "&ext=netcn&work=whois&big5=n")
if InStr(TakenHTML,"no matching record") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=netcn&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br><br>"
else
ok=ok+ "<font color=blue><a href=../member/step1.asp?prod_kind=DR027&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=../member/step1.asp?prod_kind=DR026&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=org&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br><br>"
end if
end if
end if
if request.Form("orgcn") then
sdomain=Domain+".org.cn"
TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi.cgi?domain=" & Domain & "&ext=orgcn&work=whois&big5=n")
if InStr(TakenHTML,"no matching record") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=orgcn&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<font color=blue><a href=../member/step1.asp?prod_kind=DR027&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
end if
end if
if request.Form("cn") then
sdomain = Domain+".cn"
TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain=" & Domain & "&ext=cn&x=15&y=7")
'response.write "http://218.30.103.79/cgi-bin/Check.cgi?domain=" & Domain & "&ext=cn&x=15&y=7"
if InStr(TakenHTML,"未被注册的域名") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=cn&work=whois&big5=n>" & sdomain&" 已经被注册！</a></font><br>"
else
ok=ok+ "<font color=blue><a href=../member/step1.asp?prod_kind=DR027&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
end if
end if
if Request.Form("biz") then
sdomain=Domain+".biz"
TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=biz&x=10&y=9")
if InStr(TakenHTML,"Error") > 1 then
Response.Write sdomain & "出错了,请返回！<br>"
else
if InStr(TakenHTML,"未被注册的域名") > 1 then
ok=ok+ "<font color=blue><a href=../member/step1.asp?prod_kind=DR028&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=biz&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("info") then
sdomain=Domain+".info"
TakenHTML = GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=info&x=10&y=9")
if InStr(TakenHTML,"Error") > 1 then
Response.Write sdomain & "出错了,请返回！<br><br>"
else
if InStr(TakenHTML,"未被注册的域名") > 1 then
ok=ok+ "<font color=blue><a href=../member/step1.asp?prod_kind=DR029&domain="&sdomain&">" & sdomain&" 可以注册</a></font><br>"
else
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=info&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
end if
end if
end if
if request.Form("tv") then
sdomain=Domain+".tv"
TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=biz&x=10&y=9")
if InStr(TakenHTML,"已被注册的域名") > 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=tv&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<a href=../member/step1.asp?prod_kind=DR030&domain="&sdomain&">" & sdomain&" 可以注册</a><br>"
end if
end if
if request.Form("cc") then
sdomain=Domain+".cc"
TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=cc&x=10&y=9")
if InStr(TakenHTML,"未被注册的域名") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=cc&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<a href=../member/step1.asp?prod_kind=DR031&domain="&sdomain&">" & sdomain&" 可以注册</a><br>"
end if
end if
if request.Form("govcn") then
sdomain=Domain+".gov.cn"
TakenHTML =GetURL("http://218.30.103.79/cgi-bin/Check.cgi?domain="&domain&"&ext=govcn&x=10&y=9")
if InStr(TakenHTML,"未被注册的域名") < 1 then
allreg = allreg + "<font color=red><a href=whois.asp?domain="&domain&"&ext=govcn&work=whois&big5=n>" & sdomain&" 已经被注册</a></font><br>"
else
ok=ok+ "<a href=../member/step1.asp?prod_kind=DR027&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>"
response.write ok
%></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
</td>
</tr>
</table>
<%end sub%>
<%
'**********************************
'版本:Host_free 3.0 *
'官方网站:Http://www.850518.com *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版) *
'MSN: steven_bass@msn.com *
'手机:(0)13632779827 *
'mail:wtez@vip.163.com *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -