asp檢測(cè)是否為中文字符函數(shù)
更新時(shí)間：2009年02月21日 03:46:55 作者：
檢測(cè)是否為中文字符
<%
'******************************
'函數(shù)：CheckChinese(strng)
'參數(shù)：strng,待驗(yàn)證字符
'描述：檢測(cè)是否為中文字符，返回值：中文為true，否則false
'示例：<%=CheckChinese(strng)%>
'******************************
Function CheckChinese(strng)
CheckChinese = true
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "\||\#|\&|\?|\@|\%|\*|\/|\.|\,|\;|\'|\:|\-|\_|\+|\^|\""|\=|\<|\>|\ "
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then CheckChinese= false
End Function
%>
'******************************
'函數(shù)：CheckChinese(strng)
'參數(shù)：strng,待驗(yàn)證字符
'描述：檢測(cè)是否為中文字符，返回值：中文為true，否則false
'示例：<%=CheckChinese(strng)%>
'******************************
Function CheckChinese(strng)
CheckChinese = true
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "\||\#|\&|\?|\@|\%|\*|\/|\.|\,|\;|\'|\:|\-|\_|\+|\^|\""|\=|\<|\>|\ "
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then CheckChinese= false
End Function
%>
相關(guān)文章
asp實(shí)現(xiàn)本周的一周時(shí)間列表的代碼
原理也相對(duì)簡(jiǎn)單，就是利用date函數(shù)獲取日期，然后通過(guò)固定的字符串?dāng)?shù)組進(jìn)行替換。2009-02-02
我們經(jīng)常會(huì)遇到多重查詢問(wèn)題，而長(zhǎng)長(zhǎng)的SQL語(yǔ)句往往讓人丈二和尚摸不著頭腦。特別是客戶端部分填入查詢條件時(shí)，如用普通方法將更是難上加難。 以下巧妙地利用"where 1=1"的恒等式（事實(shí)上很多，讓它值為T(mén)RUE即可）解決此問(wèn)題。2008-09-09
巧用FileSystem組件實(shí)現(xiàn)WEB應(yīng)用中的本地特定打印的方法
巧用FileSystem組件實(shí)現(xiàn)WEB應(yīng)用中的本地特定打印的方法...2007-04-04
ASP生成柱型體，折線圖，餅圖源代碼提供了...2007-11-11
如何通過(guò)ASP管理NT帳號(hào)...2007-01-01
2008-01-01
本人常用的asp代碼...2006-08-08
用asp實(shí)現(xiàn)網(wǎng)頁(yè)郵箱訪問(wèn)的方法
用asp實(shí)現(xiàn)網(wǎng)頁(yè)郵箱訪問(wèn)的方法...2007-04-04
[橙色][醬色][紫色][綠色]簡(jiǎn)單分頁(yè)函數(shù)一 常用...2006-08-08
A利用ASP小偷和Google實(shí)現(xiàn)在線翻譯功能的代碼
A利用ASP小偷和Google實(shí)現(xiàn)在線翻譯功能的代碼...2007-11-11