以前のエントリで、Shift-JISの場合における、
JIS2004対応について書きました。
[ASP.NET] Shift-JISのページにおけるJIS2004対応の注意点
今回は、ASP.NETではなく、
従来のASPの場合の対応について書きたいと思います。
最も簡単なチェックは、Shift-JISの場合であれば、
数値文字参照が存在すればエラーとする方法です。
(前回のエントリでいうと、「② 数値文字参照であれば、すべてエラーにしてしまう」のパターン)
単純に、正規表現でチェックし、存在すればエラーとします。
当然のことながら、Shift-JIS以外の文字コード指定の場合には動作しません。
簡易チェックではありますが、
既にASPのシステムがあり、Windows Vistaのクライアントに対応したいが、
できるだけ工数をかけたくない場合には、一つの選択肢になると思います。
'JIS2004入力チェック
'引数 :vsStr=入力文字
'戻り値:OK = True / NG = False
Function ChkJIS2004(ByVal vsStr)
Dim lbRet
lbRet = TrueDim objRE
Set objRE = new RegExp
'数値文字参照が存在すればエラー
objRE.pattern = "([0-9]+);"
lbRet = NOT objRE.Test(vsStr)
Set objRE = NothingChkJIS2004 = lbRet
End Function