asp版域名查询的数据库接口

　　<%
on error resume next
PRivate d_exsit
Dim Retrieval
Dim Domain
Dim TakenHTML
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
Domain = Replace(Request.Form(domain),
Response.Write (<script>alert(看看您什么忘记填写了？没有填写域名吧？);javascript:history.back(1)</script>)
response.end
end if
TakenHTML = GetURL(
TakenHTML = GetURL(
d_exsit=1
if InStr(TakenHTML,No entries) > 1 then

Response.Write Domain 出错了,请返回！<br><br>
else
if InStr(TakenHTML,No match) > 1 then %>
祝贺您，您想注册的域名 <% =Domain %> 还没有被注册<p><a href=# onClick=MM_openBrWindow(../formmail/domain.htm,,scrollbars=auto,width=500,height=500)>
点击这里，开始注册您的域名</a></p></font>
<% else %>
<font color=red><br>很抱歉</font> 您想注册的域名 <% =Domain %> 已经被注册了！<p></p>请您换个域名再试</font>
<form method=post action=search.asp name=checkdomain id=Form1>

<select name=ext id=Select1>
</select>
<input type=submit name=Submit value=查询 id=Submit1 onClick = return submitchecken();>
</form>以下是此域名的详细注册信息<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% end if
end if
Function dowith()
Dim lStrURL
Dim pagebefore
Dim pageafter
Dim tempcontent
&nb