📄 search.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/message.asp"-->
<!--#include file="include/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title><%=homepage%></title>
</head>
<script language="JavaScript">
function CheckIfEnglish( String )
{
var Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-";
var i;
var c;
if(String.charAt( 0 )=='-')
return false;
if( String.charAt( String.length - 1 ) == '-' )
return false;
for( i = 0; i < String.length; i ++ )
{
c = String.charAt( i );
if (Letters.indexOf( c ) < 0)
return false;
}
return true;
}
function submitchecken() {
if (!(document.frmsearchInt.govcn.checked |document.frmsearchInt.cc.checked | document.frmsearchInt.comcn.checked | document.frmsearchInt.netcn.checked
| document.frmsearchInt.tv.checked | document.frmsearchInt.info.checked | document.frmsearchInt.biz.checked
| document.frmsearchInt.orgcn.checked | document.frmsearchInt.com.checked | document.frmsearchInt.net.checked | document.frmsearchInt.org.checked |document.frmsearchInt.cn.checked ) )
{
alert("请选择你所要注册的域名类型。")
document.frmsearchInt.Domain.focus();
return false;
}
if (document.frmsearchInt.Domain.value == "") {
alert("请输入您要查询的英文域名。");
document.frmsearchInt.Domain.focus();
return false;
}
if (!CheckIfEnglish(document.frmsearchInt.Domain.value )) {
alert("\t注意：在查询英文域名时应输入英文不能输入中文及非法字符！\n域名由不分大小写的英文字母和数字组成，除了开头和结尾以外，中间也可以含有“-”（即连字符或称减号）最大长度为26个字符；");
document.frmsearchInt.Domain.focus();
return false;
}
return true;
}
</script>
<body>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="758" style="border-left: 1px solid #808080; border-right: 1px solid #808080">
<tr>
<td><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758">
<tr>
<td>
<p align="center"><%call top_title%></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="758">
<tr>
<td width="191">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="1">
<tr>
<td width="100%" background="pic/line_gb.gif" height="1"></td>
</tr>
</table>
</td>
<td width="1" background="pic/height_bg.gif" rowspan="2"></td>
<td width="566">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="1">
<tr>
<td width="100%" background="pic/line_gb.gif" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="191" valign="top"><%call left_title%></td>
<td width="566" valign="top">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td> </td>
</tr>
<tr>
<td>
<%
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=list.asp?id=域名注册>" & 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=list.asp?id=域名注册>" & 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=list.asp?id=域名注册>" & 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=list.asp?id=域名注册>" & 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")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -