📄 whois.asp
字号:
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Reference.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" or ext="us" 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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Opt_Page_Title%></title>
<link href="<%=HomeDir%>css/style.css" rel="stylesheet" type="text/css">
<script src="<%=HomeDir%>css/Domain.js"></script>
</head>
<body background="<%=HomeDir%>Images/bg.gif" leftmargin="10" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../../Head.asp"-->
<table border="0" cellpadding="0" cellspacing="0" width="760" height="344" align="center" bgcolor="#FFFFFF">
<tr>
<td width="780" height="1" colspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" height="1" colspan="2">
<div align="center"><img border="0" src="<%=HomeDir%>Images/dr1.gif" width="760" height="117"></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#7B7D7B" height="1" colspan="2"><img border="0" src="<%=HomeDir%>Images/blank_2.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="136" height="288" background="<%=HomeDir%>Images/bg_l.gif" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="122">
<tr>
<td width="100%" height="104" valign="top">
<p align="center"><img src="<%=HomeDir%>Images/dr2.gif">
</td>
</tr>
<tr>
<td width="100%" height="18"></td>
</tr>
</table>
<img border="0" src="<%=HomeDir%>Images/dot_1.gif" width="136" height="1"></td>
<td height="288" width="612" valign="top">
<%if InStr(TakenHTML,"No entries") > 1 then%>
<table width="500" 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="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="54" valign="top"><br>
<br>
<font color="#FF0000"> 恭喜，您所查询的域名<font face="Verdana, Arial, Helvetica, sans-serif">
<% = Domain%>
</font>还没有被注册，</font><a href="<%=homeDir%>scripts/agent/DRe.asp?domain=<%=request("domain")%>.<%=request("ext")%>&domain_tail=.<%=request("ext")%>&PY=1&PN=1&ID=101"><font color="#FF0000">注册该域名</font></a></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="1" align="center">
<tr>
<td width="5%" height="21"> </td>
<td width="89%" height="21"></td>
<td width="6%" height="21"> </td>
</tr>
<tr>
<td width="5%" height="1"> </td>
<td width="89%" height="1" valign="bottom"> <img border="0" src="<%=HomeDir%>Images/drt.gif"></td>
<td width="6%" height="1"> </td>
</tr>
<tr>
<td width="5%" height="116"> </td>
<td width="89%" height="116" background="<%=HomeDir%>Images/drc.gif">
<table border="0" cellpadding="0" cellspacing="0" width="545" height="108">
<form action="whois.asp" method="post" name="checkdomain">
<tr>
<td width="34" height="36">
<p style="margin-left: 16"><img border="0" src="<%=HomeDir%>Images/drs1.gif">
</td>
<td width="129" height="36"> 输入域名</td>
<td width="1" bgcolor="#FBE7A6" height="36"> </td>
<td width="25" height="36">
<p style="margin-left: 6"><img border="0" src="<%=HomeDir%>Images/drs2.gif">
</td>
<td width="244" height="36"> 选择后缀</td>
<td width="27" height="36"><img border="0" src="<%=HomeDir%>Images/drs3.gif"></td>
<td width="67" height="36">确定</td>
</tr>
<tr>
<td width="168" colspan="2" height="32">
<input type="hidden" value="1" name="show">
<p align="center"><font face="Verdana" size="1">www.</font>
<input size=16 name=domain class="box">
</p>
</td>
<td width="1" bgcolor="#FBE7A6" height="32"> </td>
<td width="270" rowspan="2" colspan="2" height="54">
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="25"> <font face="Verdana, Arial, Helvetica, sans-serif">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -