网络编程 
首页 > 网络编程 > 浏览文章

asp ajax注册验证之 防止用户名输入空格

(编辑:jimmy 日期: 2024/11/9 浏览:3 次 )
check.asp
复制代码 代码如下:
<%
''''''''''''''''''''''''''''''''''''
Function ReplaceText(fString,patrn,replStr)
    Set regEx = New RegExp     ' 建立正则表达式。
        regEx.Pattern = patrn ' 设置模式。
        regEx.IgnoreCase = True ' 设置是否区分大小写。
        regEx.Global = True ' 设置全局可用性。
        ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") ' 作替换。
    Set regEx=nothing
End Function
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
Function HTMLEncode(fString)
    fString=Trim(fString)
    fString=Replace(fString,CHR(9),"")
    fString=Replace(fString,CHR(13),"")
    fString=Replace(fString,CHR(22),"")
    fString=Replace(fString,CHR(38),"&#38;")    '“&”
    fString=Replace(fString,CHR(32),"&#32;")    '“ ”
    fString=Replace(fString,CHR(34),"&quot;")    '“"”
    fString=Replace(fString,CHR(37),"&#37;")    '“%”
    fString=Replace(fString,CHR(39),"&#39;")    '“'”
    fString=Replace(fString,CHR(42),"&#42;")    '“*”
    fString=Replace(fString,CHR(43),"&#43;")    '“+”
    fString=Replace(fString,CHR(44),"&#44;")    '“,”
    fString=Replace(fString,CHR(45)&CHR(45),"&#45;&#45;")    '“--”
    fString=Replace(fString,CHR(92),"&#92;")    '“\”
    'fString=Replace(fString,CHR(95),"&#95;")    '“_”
    fString=Replace(fString,CHR(40),"&#40;")    '“(”
    fString=Replace(fString,CHR(41),"&#41;")    '“)”
    fString=Replace(fString,CHR(60),"&#60;")    '“<”
    fString=Replace(fString,CHR(62),"&#62;")    '“>”
    fString=Replace(fString,CHR(123),"&#123;")    '“{”
    fString=Replace(fString,CHR(125),"&#125;")    '“}”
    fString=Replace(fString,CHR(59),"&#59;")    '“;”
    fString=Replace(fString,CHR(10),"<br>")
    fString=ReplaceText(fString,"([&#])([a-z0-9]*)&#59;","$1$2;")
    fString=ReplaceText(fString,"(fuck|shit)",string(len("&$1&"),"*"))
    if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi
        fString=escape(fString)
        fString=ReplaceText(fString,"%u30([A-F][0-F])","&#x30$1;")
        fString=unescape(fString)
    end if
    HTMLEncode=fString
End Function
''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
Function RequestInt(fString)
    RequestInt=Request(fString)
    if IsNumeric(RequestInt) then
        RequestInt=int(RequestInt)
    else
        RequestInt=0
    end if
End Function
''''''''''''''''''''''''''''''''''''
UserName=HTMLEncode(unescape(Request.QueryString("UserName")))
UserNameLength=RequestInt("UserNameLength")
If len(UserName)<>UserNameLength Then
    response.write "用户名非法!"
Else
    response.write "用户名合法!"
End If
%>

HTMLEncode 函数是将用户名转换成合法字符的必须步骤。
RequestInt 函数主要根据输入有效字符的个数判断用户名是否包含空格。
调用方法:check.asp?UserName=用户名&UserNameLength=用户名长度
check.asp一般用于Ajax判断
上一篇:asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作
下一篇:关于ASP eof与bof 区别分析
一句话新闻
微软与英特尔等合作伙伴联合定义“AI PC”:键盘需配有Copilot物理按键
几个月来,英特尔、微软、AMD和其它厂商都在共同推动“AI PC”的想法,朝着更多的AI功能迈进。在近日,英特尔在台北举行的开发者活动中,也宣布了关于AI PC加速计划、新的PC开发者计划和独立硬件供应商计划。
在此次发布会上,英特尔还发布了全新的全新的酷睿Ultra Meteor Lake NUC开发套件,以及联合微软等合作伙伴联合定义“AI PC”的定义标准。