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