searchdns.asp
来自「一个不错的源码,c#开发源码」· ASP 代码 · 共 267 行
ASP
267 行
<STYLE type=text/css>
.pt9 {
FONT-SIZE: 9pt; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.yk9 {
FONT: 9pt "宋体"; TEXT-DECORATION: none; COLOR: #000000
}
BODY {
FONT: 9pt "宋体"; TEXT-DECORATION: none; COLOR: #000000
}
A {
FONT: 9pt "宋体"; TEXT-DECORATION: none; COLOR: #000000;
}
TD {
FONT: 9pt "宋体"; TEXT-DECORATION: none
}
A:hover {
FONT: 9pt "宋体"; COLOR: #ED7B00; TEXT-DECORATION: underline
}
.wang { line-height: 21px}
.style1 {color: #0000CC}
</STYLE>
<html>
<head>
<%
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
%>
<title><%=page_title%>域名查询</title>
<link href="css.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#FFFFFF" leftmargin="2" topmargin="2">
<hr width="530" size="0">
<p align="center"> </p>
<table width="530" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="530"> <p>
<%if InStr(TakenHTML,"No entries") > 1 then%>
</p>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><div align="center"><span class="bk"><font color="#FF0000">对不起，您查询的域名<font color="#000000">
<%=Domain%></font> 出现错误!</font></span><font color="#FF0000"><br>
<br>
请您核实后重新查询，谢谢！</font></div></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="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="54" valign="top"><div align="center"><font color="#FF0000">恭喜，您所查询的域名<font color="#000000">
<% = Domain%>
</font> 还没有被注册</font><br>
<br>
<a href="../manage/">
<strong><font color="#3366FF">点击这里，立即注册您的域名 >></font></strong></a></div></td>
</tr>
</table>
<%else%>
<table width="472" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="top"> <p><strong><font color="#006600">对不起，您所查询的域名 <font color="#FF0000">
<% = Domain%>
</font> 已被注册，请您重新查询</font></strong></p>
<p>
<%end if%>
</p>
<table border="0" cellspacing="0" cellpadding="0" align="center" width="390" bgcolor="#285278">
<tr bgcolor="#FFFFFF">
<td> <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> <div align="center">
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font color="#084B8E"></font></td>
<td>
<table border="0" cellspacing="0" cellpadding="0">
<form action="searchdns.asp" method="post" name="checkdomain">
<input type="hidden" value="1" name="show">
<tr>
<td valign="top" width="271" height="86">
<table width="271" border="0" cellspacing="0" cellpadding="0" height="108">
<tr>
<td colspan="3" height="37" background="../image/bj1.gif">
<div align="center">英文域名查询：<font size="2"><b><font face="Arial">www.
</font> </b> </font>
<input type="text" name="domain" id=Text1 size="10" class="form">
<input name="img" type="image" src="../images/dot.gif" width="17" height="15" onClick = "return submitchecken();">
</div>
</td>
</tr>
<tr bgcolor="DEE7EF">
<td height="98" colspan="3" bgcolor="DEE7EF">
<table border="0" cellspacing="3" cellpadding="0" align="center" width="100%">
<tr>
<td>
<input name="ext" type="radio" class="unnamed1" value="com" checked>
.com
</td>
<td>
<input name="ext" type="radio" class="unnamed1" value="net">
.net
</td>
<td>
<input name="ext" type="radio" class="unnamed1" value="org">
.org
</td>
<td>
<input name="ext" type="radio" class="unnamed1" value="cc">
.cc
</td>
</tr>
<tr>
<td>
<input name="ext" type="radio" class="unnamed1" value="tv">
.tv
</td>
<td>
<input name="ext" type="radio" class="unnamed1" value="info">
.info
</td>
<td>
<input name="ext" type="radio" class="unnamed1" value="biz">
.biz </td>
<td>
<input name="ext" type="radio" class="unnamed1" value="com.cn">
.com.cn
</td>
</tr>
<tr>
<td>
<input name="ext" type="radio" class="unnamed1" value="net.cn">
.net.cn </b></td>
<td>
<input name="ext" type="radio" class="unnamed1" value="org.cn">
.org.cn </b></td>
<td><input name="ext" type="radio" class="unnamed1" value="cn">
<strong><font color="#FF0000">.cn </font></strong></b></td>
<td> </td>
</tr>
</table> </td>
</tr>
<tr valign="bottom">
<td colspan="3" height="3"><img src="../image/11.gif" width="271" height="3"></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<p><a href="../index.aspx" class="style1">返回首页</a><br>
<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>
<% end if %></td>
</tr>
</table>
</div></td>
</tr>
</table>
<p align="center"></body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?