顧客が入力するときに顧客がフルアングル（半角）文字を入力するのを防ぐために、特定の関数であるプログラムを介して、それを正しいハーフアングル（フルアングル）文字に変換する必要があります。
<％
'***************************
'*パラメーター説明：
'*str：変換する文字列
'*flag：マーク、0：00に完全に回し、-0ではない場合は半分に変わります
'*return値タイプ：文字列
'***************************
functiondbc2sbc（str、flag）
ディミ
iflen（str）<= 0then
Response.Write（文字列パラメーターは空です）
exitFunction
endif
fori = 1tolen（str）
str1 = asc（mid（str、i、1）））
ifstr1> 0andstr1 <= 125andnotflagthen
dbc2sbc = dbc2sbc＆chr（asc（mid（str、i、1））-23680）
それ以外
dbc2sbc = dbc2sbc＆chr（asc（mid（str、i、1））+23680）
endif
次
エンド機能
％>