asp 验证输入网址是否有效并可以访问 与正则验证输入
<%
'******************************
'函数:UrlOK(strURL)
'参数:strURL,待验证的网址
'作者:阿里西西
'日期:2007/7/13
'描述:验证输入网址是否有效并可以访问
'示例:<%=UrlOK("http://www.downcc.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 = "有效"
Else
UrlOK = "无效"
End if
Else
UrlOK = "错误:您没有输入网址!"
End If
End Function
%>
<%=UrlOK("http://www.downcc.com")%>
测试通过!
正则验证输入网址是否合法的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
相关阅读
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 05-05Windows2008 64位IIS7+ACCESS数据库无法打开Asp页面
- 05-05win7 iis7.5 Request 对象 错误 'ASP 0104 : 80004005'
- 10-16"Request 对象 错误 'ASP 0104 : 80004005'”解决办法
- 05-03Win7 IIS7.5配置解决ASP的500错误
- 04-07ASP和PHP的区别所在
- 03-09aspx文件怎么打开,ASPX的文件用什么打开?
- 03-04301转向代码大合集 包括IIS、apache和PHP程序/asp程序的301转向设置
- 02-28asp.net“服务器应用程序不可用"解决方法
- 09-24修改IIS的 ASPMaxRequestEntityAllowed
阅读本文后您有什么感想? 已有 人给出评价!
用户评论
热门评论
最新评论
相关软件
热点图文
- 05-02解决:错误提示:Microsoft OLE DB Provider for ODBC Drivers (0x80004005) ...不能更新
- 05-02解决:ADODB.Stream 错误 '800a0bbc' 写入文件失败
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 04-08对象不支持此属性或方法: 'Response.CharSet'
- 04-13asp是什么文件/asp是什么意思/asp是什么格式
- 05-11asp将access数据导出为excel电子表的方法
- 06-14ASP实例教程:FileSystemObject对象
- 07-14使用NetBox编译asp 完全摆脱iis束缚
- 01-10ASP连接Excel文件的方法
- 07-17Microsoft JET Database Engine 错误 '80004005' 错误解决办法