asp域名查询的数据库接口代码

asp域名查询的数据库接口代码< on error resume next Private d_exsit Dim Retrieval Dim Doma

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"),"www.","") & "." & Request.Form("ext")
if Domain=".com" or Request.Form("domain")="" then
Response.Write ("")
response.end
end if
’TakenHTML = GetURL("")
TakenHTML = GetURL("=" & Domain)
d_exsit=1
if InStr(TakenHTML,"No entries") > 1 then

Response.Write Domain & "出错了,请返回！

"
else
if InStr(TakenHTML,"No match") > 1 then >
祝贺您，您想注册的域名 < =Domain > 还没有被注册

点击这里，开始注册您的域名

<   =dowith()   >