推薦：ASP常用函數:LastDay()程序代碼% '功能:判斷一個值是否存在於數組'來源:http://www.cncms.com/asp.asp Function InArray( sValue, aArray ) Dim x InArray = False For Each x In aArray If x = sValue Then InArray = True Exit For End If Next End Function % 程序代碼% '功能:判斷一
<%
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 (<script>alert('看看您什麼忘記填寫了？沒有填寫域名吧？');javascript:history.back(1)</script>)
response.end
end if
'TakenHTML = GetURL(http://www.internic.net/cgi/whois?whois_nic=&Domain&&type=domain)
TakenHTML = GetURL(http://www.china-channel.com/checkdomain.asp?action=whois&domain= & Domain)
d_exsit=1
if InStr(TakenHTML,No entries) > 1 then
Response.Write Domain & 出錯了,請返回！ <br><br>
else
if InStr(TakenHTML,No match) > 1 then %>
祝賀您，您想註冊的域名<% =Domain %> 還沒有被註冊<p><a href=# >
點擊這裡，開始註冊您的域名</a></p></font>
<% else %>
<font color=red><br>很抱歉</font> 您想註冊的域名<% =Domain %> 已經被註冊了！ <p></p>請您換個域名再試</font>
<form method=post action=search.asp name=checkdomain id=Form1>
www.<input type=text name=domain id=Text1>
<select name=ext id=Select1>
<option value=com selected>.com</option>
<option value=net>.net</option>
<option value=org>.org</option>
<option value=com.cn>.com.cn</option>
<option value=net.cn>.net.cn</option>
<option value=org.cn>.org.cn</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=Submit1 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<>0 then
pagestart = InStr(1,tempcontent, pageafter,1)
If pagestart = 0 Then
dowith = <font color=red>意外的錯誤2!</font>
d_exsit = 3
Exit Function
Else
pagestart = pagestart + Len(pageafter) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
If pageend = 0 Then
dowith = <font color=red>意外的錯誤!</font>
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
%>
分享：ASP常用函數:CheckBoxScript()程序代碼% '功能:用來在指定CheckBox的哪幾個值上打勾'來源:http://www.cncms.com/asp.asp Function CheckBoxScript(ByVal FormElement , ByVal ElementValue) CheckBoxScript = scr ipt language=javascript type=text/Javascript vbCrLf String.PRototype. CheckBo