Afin d'empêcher les clients d'entrer dans le caractère complet-angle (demi-angle) lors de la saisie, nous devons le convertir au caractère à demi-angle (en angle complet) via le programme, qui est une fonction donnée.
<%
'*****************************
'* Description du paramètre:
'* Str: chaîne à convertir
'* Flag: Mark, tournez en entier à 0:00 et tournez-vous en moitié quand il n'est pas -0
'* Type de valeur de retour: chaîne
'*****************************
Functiondbc2sbc (str, drapeau)
dimi
iflen (str) <= 0
Réponse.write (les paramètres de chaîne sont vides)
sortie
endire
Fori = 1tolen (str)
str1 = asc (mid (str, i, 1)))
ifstr1> 0andstr1 <= 125andnotflaghen
DBC2SBC = DBC2SBC & CHR (ASC (Mid (Str, I, 1)) -23680)
autre
Dbc2sbc = dbc2sbc & chr (asc (mid (str, i, 1)) + 23680)
endire
suivant
Finition de fin
%>