驗證輸入網址是否有效并可以訪問
% 
'****************************** 
'函數：UrlOK(strURL) 
'參數：strURL,待驗證的網址 
'日期：2007/7/13 
'描述：驗證輸入網址是否有效并可以訪問 
'示例：%=UrlOK("https://www.jb51.net")%> 
'****************************** 
Function UrlOK(strURL) 
On Error Resume Next 
If strURL>"" Then 
Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
objHTTP.Open "GET", strURL, FALSE 
objHTTP.Send 
 If instr(objHTTP.statusText,"OK") Then 
 UrlOK = "有效" 
 Else 
 UrlOK = "無效" 
 End if 
Else 
 UrlOK = "錯誤:您沒有輸入網址!" 
End If 
End Function 
%>
正則驗證輸入網址是否合法的URL
% 
'****************************** 
'函數：checkexp(patrn,strng) 
'參數：patrn 正則表達式；strng 驗證字符串 
'作者：阿里西西 
'日期：2007/7/13 
'描述：正則驗證輸入網址是否合法的URL 
'示例：%=checkexp(patrn,strng)%> 
'****************************** 
function checkexp(patrn,strng) 
dim regex,match 
set regex = new regexp ' 建立正則表達式。 
regex.pattern = patrn ' 設置模式。 
regex.ignorecase = true ' 設置是否區分字符大小寫。 
regex.global = true ' 設置全局可用性。 
matches = regex.test(strng) 
checkexp = matches 
end function 
%>