新手初练:用ASP做一个域名查询系统

新手初练:用ASP做一个域名查询系统

开发这样一个域名查询系统其实是一件很容易的事情，只要我们能够让使用者进行查询后得出结果，看看自己输入的域名是不是被别人占用了就可以，如果没有被占用我们就可以自行去申请了。

<% 
On Error Resume Next 
Server.ScriptTimeOut=9999999 
Function getHTTPPage(Path) 
t = GetBody(Path) 
getHTTPPage=BytesToBstr(t,"GB2312") 
End function 
Function GetBody(url) 
on error resume next 
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False, "", "" 
.Send 
GetBody = .ResponseBody 
End With 
Set Retrieval = Nothing 
End Function

Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
%> 
<% 
if request("domain")<>"" then 
'url="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&request("domain")&"&"&request("root")&"=yes&work=whois&referer=http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain") 
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root") 
wstr=getHTTPPage(url)

'response.write Instr (wstr,"可以注册") 
if instr(lcase(wstr),"已被注册的域名")>0 then 
body="域名已经被注册" 
elseif instr(lcase(wstr),"未被注册的域名")>0 then 
body="域名未被注册" 
else 
body="网络延迟,请重新查找" 
end if 
end if 
%>

<table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999"> 
<tr> 
<td height="26" bgcolor="efefef">域名查询系统:<% if request("domain")>"" then response.Write(request("domain")&"."&request("root")&body) end if%></td> 
<tr> 
<td bgcolor="#FFFFFF"><form name="form1" method="post" action=""><table width="100%" border="0" cellspacing="1" cellpadding="1"> 
<tr>

<td height="36"> <div align="center">www. 
<input type="text" name="domain"> 
<select name="root" id="select"> 
<option value="cn" selected>.cn</option> 
<option value="com">.com</option> 
<option value="net">.net</option> 
<option value="org">.org</option> 
<option value="com.cn">.com.cn</option> 
<option value="net.cn">.net.cn</option> 
<option value="gov.cn">.gov.cn</option> 
</select> 
</div></td>

</tr> 
<tr> 
<td height="35"> 
<div align="center"> 
<input type="submit" name="Submit" value=" 查 询 "> 
</div> 
<div align="center"></div></td> 
</tr> 
</table></form></td> 
</tr> 
</table> 
<p align="center">&nbsp;</p> 
<table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999"> 
<tr> 
<td height="42" bgcolor=&0000ff;>