当前位置:96看吧 > 技术文档 > ASP编程 > asp函数验证的正则表达式

asp函数验证的正则表达式

时间:2009/12/23
作者:诚心(MaWenDong)
来源:96看吧
查看:
标签:asp函数

asp函数验证网址的正则表达式

Function IsValidUrl(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
IsValidUrl = regEx.Test(str)
End Function

asp函数验证邮箱的正则表达式

Function IsValidEmail(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "[\w\-\.]+@[A-Za-z0-9]+\.(([A-Za-z0-9]{2,4})|([A-Za-z0-9]{2,4}\.[A-Za-z]{2,4}))$"
IsValidEmail = regEx.Test(str)
End Function

asp函数取出所有html标记标签

' ============================================
' 把字符串进行HTML解码,替换server.htmlencode
' 去除Html格式,用于显示输出
' ============================================
Function outHTML(str)
       Dim sTemp
       sTemp = str
       outHTML = ""
       If IsNull(sTemp) = True Then
              Exit Function
       End If
       sTemp = Replace(sTemp, "&", "&")
       sTemp = Replace(sTemp, "<", "&lt;")
       sTemp = Replace(sTemp, ">", "&gt;")
       sTemp = Replace(sTemp, Chr(39), "&apos;")
       sTemp = Replace(sTemp, Chr(34), """)
       sTemp = Replace(sTemp, Chr(10), "<br/>")
       outHTML = sTemp
End Function

' ============================================
' 去除Html格式,用于从数据库中取出值填入输入框时
' 注意:value="?"这边一定要用双引号
' ============================================
Function inHTML(str)
       Dim sTemp
       sTemp = str
       inHTML = ""
       If IsNull(sTemp) = True Then
              Exit Function
       End If
       sTemp = Replace(sTemp, "&", "&")
       sTemp = Replace(sTemp, "&lt;", "<")
       sTemp = Replace(sTemp, "&gt;", ">")
       sTemp = Replace(sTemp, "&apos;", Chr(39))
       sTemp = Replace(sTemp, """, Chr(34))
       sTemp = Replace(sTemp, "<br/>", Chr(10))
       inHTML = sTemp
End Function

上一篇:ASP实现智能分词搜索技术
下一篇:asp函数防止网页频繁刷新
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门