asp域名查詢的數(shù)據(jù)庫接口代碼< on error resume next Private d_exsit Dim Retrieval Dim Doma

asp域名查詢的數(shù)據(jù)庫接口代碼
<
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()   >