成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

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)被注冊了!

請您換個域名再試

type="text" name="domain" id=Text1>

,

以下是此域名的詳細注冊信息

<   =dowith()   >
< end if

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

>

標簽: