aspHtml过滤以及四位验证码

最新推荐文章于 2024-09-04 22:39:59 发布

转载最新推荐文章于 2024-09-04 22:39:59 发布 · 235 阅读

文章标签：

#function #session #each

Asp 专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一段ASP.NET代码实现HTML解码的功能及如何生成随机验证码的方法。该方法通过正则表达式移除HTML标签，实现纯文本内容的提取，并通过随机选择字符集中的字符来生成指定长度的验证码。

<%
Function htmlDecode(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
htmlDecode=strHTML
Set objRegExp = Nothing
End Function

Function CheckCode()               '用于留言中
       const theNum = 4              '设置位数,修改就是了
'*************************************************************
       dim strCode,theCodes,str0
       theCodes = ""    '初始化验证码字符
            strCode = "123456789AABCDEFGHI135GGW468HJKLMNTPQRS148963TUVWR"
            strCode = LCASE(strCode)    '全部换成小写,当然也可不换
       RANDOMIZE
           for i = 1 to theNum
                '循环结构重复筛选单个字符进行组合,生成theNum位的验证码
           str0=mid(strCode,INT((50-1+1)*RND+1),1)
                'str0为一次循环周期内经筛选的单个临时字符
           theCodes = theCodes&str0    '字符叠加过程
           next
       if theCodes = "" then
                theCodes = "9999"
            end if
       Session("SystemRocCode") = cstr(theCodes)
            '将字符结果保存在Seesion中
       CheckCode=theCodes    '显示出验证字符
End Function