?? domain.asp
字號:
<html>
<head>
<%
on error resume next
domain1=request("domain")
ext1=request("ext")
Dim Retrieval,Domain,TakenHTML,pagebefore,pageafter,zyj
Private Function bytes2BSTR(vIn)
Dim i, ThischrCode, NextchrCode
strReturn = ""
For i = 1 To LenB(vIn)
ThischrCode = AscB(MidB(vIn, i, 1))
If ThischrCode < &H80 Then
strReturn = strReturn & Chr(ThischrCode)
Else
NextchrCode = AscB(MidB(vIn, i + 1, 1))
strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
End With
Set Retrieval = Nothing
End Function
if request("ext")<>"" then
Domain = Replace(Request("domain"),"www.","") & "." & Request("ext")
else
Domain = domain1
end if
if Domain=".com" or Request("domain")="" then
Response.Write ("<script>alert('請您正確填寫要查詢域名');javascript:history.back(1)</script>")
response.end
end if
if request("ext")<>"" then
select case Request("ext")
case "biz"
TakenHTML = GetURL("http://www.china-channel.com/checkdomain.asp?action=whois&domain=" & Domain&"")
pageafter = "<pre>"
pagebefore = "</pre>"
case "info"
TakenHTML = GetURL("http://www.onlinenic.com/cgi-bin/english/info_whois.cgi?domain=" &Domain)
pageafter = "<pre>"
pagebefore = "</pre>"
case "tv"
TakenHTML = GetURL("http://www.onlinenic.com/cgi-bin/english/tv_whois.cgi?domain=" &Domain)
pageafter = "<pre>"
pagebefore = "</pre>"
case "cc"
TakenHTML = GetURL("http://whois.nic.cc/cgi-bin/globalwhois.pl?DOMAIN=" &Domain)
pageafter = "<TD VALIGN=top>"
pagebefore = "<!-- begin included footer -->"
case "網絡"
TakenHTML = GetURL("http://cwhois.cnnic.net.cn/whois.jsp?entityname=domain&queryinfo=" &Domain)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
case "中國"
TakenHTML = GetURL("http://cwhois.cnnic.net.cn/whois.jsp?entityname=domain&queryinfo=" &Domain)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
case "公司"
TakenHTML = GetURL("http://cwhois.cnnic.net.cn/whois.jsp?entityname=domain&queryinfo=" &Domain)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
case else
if InStr(Request("ext"),"cn")<>0 then
TakenHTML = GetURL("http://ewhois.cnnic.net.cn/whois?entity=domain&value="&Domain)
pageafter = "<table border=1 cellspacing=0 cellpadding=2>"
pagebefore = "</table>"
else
TakenHTML = GetURL("http://www-whois.internic.net/cgi/whois?type=domain&whois_nic=" & Domain )
pageafter = "<pre>"
pagebefore = "</pre>"
end if
end select
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
'#################################查詢域名的詳細注冊情況的代碼開始####################################
Function dowith()
Dim tempcontent
Dim pagestart
Dim pageend
tempcontent = TakenHTML
pagestart = InStr(1,tempcontent, pageafter,1)
If pagestart = 0 Then
dowith = "對不起，暫時無法得到此域名的詳細注冊信息."
Exit Function
Else
pagestart = pagestart + Len(pageafter) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
If pageend = 0 Then
dowith = "對不起，暫時無法得到此域名的詳細注冊信息!"
d_exsit = 3
Exit Function
Else
pageend = pageend - pagestart '得到內容長度
tempcontent = Mid(tempcontent, pagestart, pageend)
End If
End If
dowith = tempcontent
if Request("ext") <> "cc" then dowith = "<pre>" + dowith + "</pre>"
if InStr(Request("ext"),"網絡") <> 0 then dowith = "<TABLE WIDTH=500 ALIGN=CENTER><TBODY><TR><TD WIDTH=150>" + dowith + "</TABLE>"
if InStr(Request("ext"),"中國") <> 0 then dowith = "<TABLE WIDTH=500 ALIGN=CENTER><TBODY><TR><TD WIDTH=150>" + dowith + "</TABLE>"
if InStr(Request("ext"),"公司") <> 0 then dowith = "<TABLE WIDTH=500 ALIGN=CENTER><TBODY><TR><TD WIDTH=150>" + dowith + "</TABLE>"
if InStr(Request("ext"),"cn") <> 0 then dowith = "<center>" + dowith + "</center>"
if request("ext") = "" then dowith = "" + dowith + "</TABLE>"
End Function
'#################################查詢域名的詳細注冊情況的代碼結束####################################
%>
<title>天使花園域名查詢</title>
<link href="cssdon.css" rel="stylesheet" type="text/css">
<link href="cssdon.css" rel="stylesheet" type="text/css">
<link href="cssdon.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="2">
<!--#include file="top.asp" -->
<table width="781" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="195" valign="top"><div align="center">
<p><img src="images/domainimg1.gif" width="180" height="114"></p>
<p> </p>
</div></td>
<td width="1" background="images/1.jpg"> </td>
<td width="547"><p> </p>
<p> </p>
<p>
<%if InStr(TakenHTML,"No entries") > 1 then%>
</p>
<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,"信息不存在")>1 or InStr(TakenHTML,"Not Exist")>1 or InStr(TakenHTML,"NOT FOUND")>1 or InStr(TakenHTML,"你所查詢的信息不存在")>1 then %>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="top"><font color="#FF0000">恭喜，您所查詢的域名<font color="#000000">
<% = Domain%>
</font> 還沒有被注冊</font><br> <br> <br>
<a href="user_login.asp">
<strong><font color="#3366FF">請登陸用戶域名面版申請 >></font></strong></a><br> <br>
</td>
</tr>
</table>
<%else%>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><p><strong><font color="#006600">對不起，您所查詢的域名 <font color="#FF0000">
<% = Domain%>
</font> 已被注冊，請您重新查詢</font></strong></p>
<p>
<%end if%>
<br>
<br>
</p>
<table border="0" cellspacing="1" cellpadding="0" align="center" width="390" bgcolor="#285278">
<tr bgcolor="#FFFFFF">
<td> <table width="388" border="0" cellspacing="0" cellpadding="0">
<form action="searchdns.asp" method="post" name="checkdomain">
<tr bgcolor="#B5C9D7">
<td height="25" valign="middle" bgcolor="B2D1F8">
<div align="center">英文域名查詢：<font color="#FF6600"><b>WWW</b></font>.
<input type="text" name="domain" id=Text1 size="17" class="form">
<input type="hidden" value="1" name="show">
<input type="image" border="0" name="imageField" src="images/sousuo.gif" width="40" height="18" align="middle" >
</div></td>
</tr>
<tr>
<td height="25"> <input name="ext" type="radio" class="unnamed1" value="com" checked>
.com
<input name="ext" type="radio" class="unnamed1" value="net">
.net
<input name="ext" type="radio" class="unnamed1" value="org">
.org
<input name="ext" type="radio" class="unnamed1" value="cc">
.cc
<input name="ext" type="radio" class="unnamed1" value="tv">
.tv
<input name="ext" type="radio" class="unnamed1" value="info">
.info
<input name="ext" type="radio" class="unnamed1" value="biz">
.biz </td>
</tr>
<tr>
<td height="25"> <input name="ext" type="radio" class="unnamed1" value="com.cn">
.com.cn
<input name="ext" type="radio" class="unnamed1" value="net.cn">
.net.cn
<input name="ext" type="radio" class="unnamed1" value="org.cn">
.org.cn
<input name="ext" type="radio" class="unnamed1" value="cn">
.cn</td>
</tr>
</form>
</table></td>
</tr>
</table>
<br> <table border="0" cellspacing="1" cellpadding="0" align="center" width="390" bgcolor="#285278">
<tr bgcolor="#FFFFFF">
<td> <table width="388" border="0" cellspacing="0" cellpadding="0">
<form action="searchdns.asp" method="post" name="checkdomain">
<tr bgcolor="#B5C9D7">
<td height="25" valign="middle" bgcolor="B2D1F8">
<div align="center">中文域名查詢：<font color="#FF6600"><b>WWW</b></font>.
<input type="text" name="domain" id=Text1 size="17" class="form">
.
<select name=ext>
<option selected value=中國>中國</option>
<option value=網絡>網絡</option>
<option value=公司>公司</option>
</select>
<input type="hidden" value="1" name="show">
<input type="image" border="0" name="imageField" src="images/sousuo.gif" width="40" height="18" align="middle">
</div></td>
</tr>
</form>
</table></td>
</tr>
</table>
<br> <table border="0" cellspacing="1" cellpadding="0" align="center" width="390" bgcolor="#285278">
<tr bgcolor="#FFFFFF">
<td> <table width="388" border="0" cellspacing="0" cellpadding="0">
<form action="searchdns.asp" method="post" name="checkdomain">
<tr bgcolor="#B5C9D7">
<td height="25" valign="bottom" bgcolor="B2D1F8">
<div align="center">通用網址查詢：
<input type="text" name="domain" id=Text1 size="27" class="form">
<input type="hidden" value="1" name="show">
<input type="image" border="0" name="imageField" src="images/sousuo.gif" width="40" height="18" align="middle">
</div></td>
</tr>
</form>
</table></td>
</tr>
</table>
<p><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>
以下是注冊信息<br>
<%=dowith()%></p>
<p><% end if %>
</p></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -