asp 验证输入网址是否有效并可以访问 与正则验证输入网址_应用技巧

核心代码：

验证输入网址是否有效并可以访问
<%
'******************************
'函数：UrlOK(strURL)
'参数：strURL,待验证的网址
'日期：2007/7/13
'描述：验证输入网址是否有效并可以访问
'示例：<%=UrlOK("http://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
%> 

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索asp
， 验证
输入网址
验证网址的正则表达式、js正则表达式验证网址、正则表达式网址验证、正则验证网址、js正则验证网址，以便于您获取更多的相关知识。