<%
on error resume next
PRivate d_exsit
Dim Retrieval
Dim Domain
Dim TakenHTML
Function GetURL(url)
Set Retrieval = ServerCreateObject("MicrosoftxmlHTTP")
With Retrieval
Open "GET" url False "" ""
Send
GetURL = ResponseText
End With
Set Retrieval = Nothing
End Function
Domain = Replace(RequestForm("domain")"www""") & "" & RequestForm("ext")
if Domain="com" or RequestForm("domain")="" then
ResponseWrite ("<script>alert(看看您什么忘记填写了？没有填写域名吧？);javascript:historyback()</script>")
responseend
end if
TakenHTML = GetURL("
TakenHTML = GetURL(" & Domain)
d_exsit=
if InStr(TakenHTML"No entries") > then
ResponseWrite Domain & "出错了请返回！<br><br>"
else
if InStr(TakenHTML"No match") > then %>
祝贺您您想注册的域名 <% =Domain %> 还没有被注册<p><a href="#" >
点击这里开始注册您的域名</a></p></font>
<% else %>
<font color="red"><br>很抱歉</font> 您想注册的域名 <% =Domain %> 已经被注册了！<p></p>请您换个域名再试</font>
<form method="post" action="searchasp" name="checkdomain" id=Form>
www<input type="text" name="domain" id=Text>
<select name="ext" id=Select>
<option value="com" selected>com</option>
<option value="net">net</option>
<option value="org">org</option>
<option value="comcn">comcn</option>
<option value="netcn">netcn</option>
<option value="orgcn">orgcn</option>
<option value="cc">cc</option>
<option value="tv">tv</option>
<option value="biz">biz</option>
<option value="info">info</option>
</select>
<input type="submit" name="Submit" value="查询" id=Submit onClick = "return submitchecken();">
</form>以下是此域名的详细注册信息<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% end if
end if
Function dowith()
Dim lStrURL
Dim pagebefore
Dim pageafter
Dim tempcontent
Dim pagestart
Dim pageend
dim temps
pageafter = "<PRE>"
pagebefore = "</PRE>"
tempcontent = TakenHTML
if d_exsit<> then
pagestart = InStr(tempcontent pageafter)
If pagestart = Then
dowith = "<font color=""red"">意外的错误!</font>"
d_exsit =
Exit Function
Else
pagestart = pagestart + Len(pageafter) +
pageend = InStr(pagestart tempcontent pagebefore)
If pageend = Then
dowith = "<font color=""red"">意外的错误!</font>"
d_exsit =
Exit Function
Else
pageend = pageend pagestart 得到内容长度
tempcontent = Mid(tempcontent pagestart pageend)
End If
End If
Set pageregexp = New RegExp
pageregexpGlobal = True
pageregexpPattern = "<[^>]*>"
tempcontent = pageregexpReplace(tempcontent "")
Set pageregexp = Nothing
dowith = tempcontent
End If
End Function
%>
