<%
'******************************
'函数：UrlOK(strURL)
'参数【cān shù】🏼：strURL,待验证的网址【zhǐ】
'作者：阿里西【xī】西【xī】
'日期🆎：2007/7/13
'描述【miáo shù】：验证输入网址【zhǐ】是否有效【xiào】🐱并可以访问
'示例【shì lì】💮：<%=UrlOK("http://zbbingyang.com")%>
'******************************
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 = "有效【xiào】🐱"
Else
UrlOK = "无效【wú xiào】🚄"
End if
Else
UrlOK = "错误🍼:您没有输入网址【zhǐ】!"
End If
End Function
%>

<%=UrlOK("http://zbbingyang.com")%>
测试通【cè shì tōng】过🥙！

正则验【zhèng zé yàn】⛄证输入🌪网址是【wǎng zhǐ shì】🏇否合法👏的URL
<%
'******************************
'函数【hán shù】：checkexp(patrn,strng)
'参数：patrn 正则表【zhèng zé biǎo】👧达式【shì】✋；strng 验证字符串
'作者：阿里西【ā lǐ xī】西【xī】
'日期🎱：2007/7/13
'描述💴：正则验【zhèng zé yàn】⛄证输入🌪网址是【wǎng zhǐ shì】🏇否合法👏的URL
'示例：<%=checkexp(patrn,strng)%>
'******************************
function checkexp(patrn,strng)
dim regex,match
set regex = new regexp ' 建立正则表【zhèng zé biǎo】👧达式【shì】✋。
regex.pattern = patrn ' 设置模😯式【shì】✋。
regex.ignorecase = true ' 设置是否区分【fǒu qū fèn】字符大📀小写。
regex.global = true ' 设置全【shè zhì quán】局可用【jú kě yòng】性🏢。
matches = regex.test(strng)
checkexp = matches
end function

%>