asp ajax注冊驗證之 防止用戶名輸入空格
更新時間：2009年08月01日 12:46:16 作者：
注冊驗證之防止用戶名輸入空格,asp批量替換特殊字符函數(shù)代碼
check.asp
<%
''''''''''''''''''''''''''''''''''''
Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設置模式。
regEx.IgnoreCase = True ' 設置是否區(qū)分大小寫。
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),"&") '“&”
fString=Replace(fString,CHR(32)," ") '“ ”
fString=Replace(fString,CHR(34),""") '“"”
fString=Replace(fString,CHR(37),"%") '“%”
fString=Replace(fString,CHR(39),"'") '“'”
fString=Replace(fString,CHR(42),"*") '“*”
fString=Replace(fString,CHR(43),"+") '“+”
fString=Replace(fString,CHR(44),",") '“,”
fString=Replace(fString,CHR(45)&CHR(45),"--") '“--”
fString=Replace(fString,CHR(92),"\") '“\”
'fString=Replace(fString,CHR(95),"_") '“_”
fString=Replace(fString,CHR(40),"(") '“(”
fString=Replace(fString,CHR(41),")") '“)”
fString=Replace(fString,CHR(60),"<") '“<”
fString=Replace(fString,CHR(62),">") '“>”
fString=Replace(fString,CHR(123),"{") '“{”
fString=Replace(fString,CHR(125),"}") '“}”
fString=Replace(fString,CHR(59),";") '“;”
fString=Replace(fString,CHR(10),"<br>")
fString=ReplaceText(fString,"([&#])([a-z0-9]*);","$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])","0$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 函數(shù)是將用戶名轉(zhuǎn)換成合法字符的必須步驟。
RequestInt 函數(shù)主要根據(jù)輸入有效字符的個數(shù)判斷用戶名是否包含空格。
調(diào)用方法：check.asp?UserName=用戶名&UserNameLength=用戶名長度
check.asp一般用于Ajax判斷
復制代碼 代碼如下:
<%
''''''''''''''''''''''''''''''''''''
Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設置模式。
regEx.IgnoreCase = True ' 設置是否區(qū)分大小寫。
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),"&") '“&”
fString=Replace(fString,CHR(32)," ") '“ ”
fString=Replace(fString,CHR(34),""") '“"”
fString=Replace(fString,CHR(37),"%") '“%”
fString=Replace(fString,CHR(39),"'") '“'”
fString=Replace(fString,CHR(42),"*") '“*”
fString=Replace(fString,CHR(43),"+") '“+”
fString=Replace(fString,CHR(44),",") '“,”
fString=Replace(fString,CHR(45)&CHR(45),"--") '“--”
fString=Replace(fString,CHR(92),"\") '“\”
'fString=Replace(fString,CHR(95),"_") '“_”
fString=Replace(fString,CHR(40),"(") '“(”
fString=Replace(fString,CHR(41),")") '“)”
fString=Replace(fString,CHR(60),"<") '“<”
fString=Replace(fString,CHR(62),">") '“>”
fString=Replace(fString,CHR(123),"{") '“{”
fString=Replace(fString,CHR(125),"}") '“}”
fString=Replace(fString,CHR(59),";") '“;”
fString=Replace(fString,CHR(10),"<br>")
fString=ReplaceText(fString,"([&#])([a-z0-9]*);","$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])","0$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 函數(shù)是將用戶名轉(zhuǎn)換成合法字符的必須步驟。
RequestInt 函數(shù)主要根據(jù)輸入有效字符的個數(shù)判斷用戶名是否包含空格。
調(diào)用方法：check.asp?UserName=用戶名&UserNameLength=用戶名長度
check.asp一般用于Ajax判斷
您可能感興趣的文章:
- jquery+ajax實現(xiàn)注冊實時驗證實例詳解
- 用AJAX實現(xiàn)頁面登陸以及注冊用戶名驗證的簡單實例
- PHP+Ajax異步通訊實現(xiàn)用戶名郵箱驗證是否已注冊( 2種方法實現(xiàn))
- Ajax驗證用戶名或昵稱是否已被注冊
- Asp.net下利用Jquery Ajax實現(xiàn)用戶注冊檢測（驗證用戶名是否存）
- Ajax注冊用戶時實現(xiàn)表單驗證
- ajax對注冊名進行驗證檢測是否存在于數(shù)據(jù)庫中
- AJAX+JAVA用戶登陸注冊驗證的實現(xiàn)代碼
- 使用struts2+Ajax+jquery驗證用戶名是否已被注冊
- AJAX實現(xiàn)注冊驗證用戶名
相關文章
有時候我們需要 延遲 下面的函數(shù)的執(zhí)行，但不建議使用啊，最好能換個思路。2009-06-06
這篇文章主要介紹了asp實現(xiàn)的sha1加密解密代碼,可以和ASP.NET（C#）相互兼容,需要的朋友可以參考下2014-08-08
這篇文章主要介紹了ASP固定比例裁剪縮略圖的方法，需要的朋友可以參考下2015-10-10
asp 由動態(tài)網(wǎng)頁轉(zhuǎn)變?yōu)殪o態(tài)網(wǎng)頁的實現(xiàn)代碼
在asp中實現(xiàn)由動態(tài)網(wǎng)頁轉(zhuǎn)變?yōu)殪o態(tài)網(wǎng)頁可以使用模板生成，通過FsoFile進行操作根據(jù)模板生成靜態(tài)網(wǎng)頁，比較適合產(chǎn)品和新聞兩個板塊轉(zhuǎn)變！2009-07-07
其實我這樣做的本意是為了防止盜鏈！大家?guī)兔匆幌峦ㄟ^代碼能夠根治盜鏈！2009-03-03
Insert Date and Time into Access
Insert Date and Time into Access...2007-04-04
ASP刪除img標簽的style屬性只保留src的正則函數(shù)
做手機網(wǎng)站的時候圖片要做自適應，由于手機網(wǎng)站跟PC網(wǎng)站共用1個數(shù)據(jù)庫，導致文章內(nèi)的圖片有部分帶有：style=""等屬性，導致手機端圖片width:100%失效，去掉mg標簽style屬性只保留src即可解決問題2020-09-09
asp連接mysql數(shù)據(jù)庫詳細實現(xiàn)代碼
文章詳細的介紹在asp中如何來連接mysql數(shù)據(jù)庫并查出數(shù)據(jù)并輸出，同時也介紹了連接mysql核心代碼及中文亂碼解決辦法2012-04-04
如何把ASP編寫成DLL...2007-03-03
ASP 常見對象總結(熟悉一下利用以后的開發(fā)使用)2009-11-11