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

asp 域名查询的数据库接口代码文库.txt 鲜花往往不属于赏花的人，而属于牛粪。。。道德常常能弥补智慧的缺陷，然而智慧却永远填补不了道德空白人生有三样东西无法掩盖：咳嗽 贫穷和爱，越隐瞒，就越欲盖弥

asp 域名查询的数据库接口代码文库.txt 鲜花往往不属于赏花的人，而属于牛粪。。。道德常常能弥补智慧的缺陷，然而智慧却永远填补不了道德空白人生有三样东西无法掩盖：咳嗽 贫穷和爱，越隐瞒，就越欲盖弥彰。 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 > 还没有被注册

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

< else >

很抱歉 您想注册的域名 < =Domain > 已经被注册了！

<   =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 ’得到内容长度

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

>