asp 域名查詢的數(shù)據(jù)庫接口代碼文庫.txt 鮮花往往不屬于賞花的人，而屬于牛糞。。。道德常常能彌補(bǔ)智慧的缺陷，然而智慧卻永遠(yuǎn)填補(bǔ)不了道德空白人生有三樣?xùn)|西無法掩蓋：咳嗽 貧窮和愛，越隱瞞，就越欲蓋彌

asp 域名查詢的數(shù)據(jù)庫接口代碼文庫.txt 鮮花往往不屬于賞花的人，而屬于牛糞。。。道德常常能彌補(bǔ)智慧的缺陷，然而智慧卻永遠(yuǎn)填補(bǔ)不了道德空白人生有三樣?xùn)|西無法掩蓋：咳嗽 貧窮和愛，越隱瞞，就越欲蓋彌彰。 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 > 還沒有被注冊

點擊這里，開始注冊您的域名

< else >

很抱歉 您想注冊的域名 < =Domain > 已經(jīng)被注冊了！

<   =dowith()   >

end if

Function dowith()

Dim lStrURL

Dim pagebefore

Dim pageafter

Dim tempcontent

Dim pagestart

Dim pageend

dim temps

pageafter = "

"
pagebefore   =   "

tempcontent = TakenHTML

if d_exsit<>0 then

pagestart = InStr(1,tempcontent, pageafter,1)

If pagestart = 0 Then

dowith = "意外的錯誤2!"

d_exsit = 3

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 ’得到內(nèi)容長度

tempcontent = Mid(tempcontent, pagestart, pageend)

End If

End If

Set pageregexp = New RegExp

pageregexp.Global = True

pageregexp.Pattern = "<[^>]*>"

tempcontent = pageregexp.Replace(tempcontent, "") Set pageregexp = Nothing

dowith = tempcontent

End If

End Function

>