<％
'*******************************
'機能：CheckString（strng）
'パラメーター：STRNG、検証する文字列
著者：アリクシ
'日付：2007/7/13
'説明：文字列が純粋な文字と数字の組み合わせであるかどうかを検出します
'例：<％= checkString（strng）％>
'*******************************
functionCheckString（strng）
CheckString = true
Dimregex、マッチ
setRegex = newRegexp
regex.pattern = "^[a-za-z0-9]+$"
regex.ignorecase = true
setMatch = regex.execute（strng）
ifmatch.countthencheckstring = false
エンド機能
％>
漢字であるかどうかを検出します
<％
'*******************************
'機能：Checkchinese（strng）
'パラメーター：STRNG、検証する文字
著者：アリクシ
'日付：2007/7/13
'説明：それが漢字であるかどうかを検出し、価値：中国語で真、そうでなければ偽
'例：<％= checkchinese（strng）％>
'*******************************
functioncheckchinese（strng）
checkchinese = true
Dimregex、マッチ
setRegex = newRegexp
regex.pattern = "/||/＃|/＆|？|/@|/％|/*|//。|/。|/、|/; |/'|/：|/_ |/+|/^|/" |/<|/////
regex.ignorecase = true
setMatch = regex.execute（strng）
ifmatch.countthencheckchinese = false
エンド機能
％>