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判斷
您可能感興趣的文章:- jquery+ajax實現注冊實時驗證實例詳解
- 用AJAX實現頁面登陸以及注冊用戶名驗證的簡單實例
- PHP+Ajax異步通訊實現用戶名郵箱驗證是否已注冊( 2種方法實現)
- Ajax驗證用戶名或昵稱是否已被注冊
- Asp.net下利用Jquery Ajax實現用戶注冊檢測（驗證用戶名是否存）
- Ajax注冊用戶時實現表單驗證
- ajax對注冊名進行驗證檢測是否存在于數據庫中
- AJAX+JAVA用戶登陸注冊驗證的實現代碼
- 使用struts2+Ajax+jquery驗證用戶名是否已被注冊
- AJAX實現注冊驗證用戶名
