Um zu verhindern, dass Kunden beim Eintritt in den vollständigen Anschluss (halb -angle) eingeben, müssen wir ihn durch das Programm in den richtigen halben Winkelcharakter (Vollwinkel) umwandeln, was eine bestimmte Funktion ist.
<%
'*************************************
'*Parameter Beschreibung:
'*STR: String, die konvertiert werden soll
'*Flag: Markieren Sie, drehen Sie um 0:00 Uhr voll und wenden Sie sich auf die Hälfte, wenn es nicht -0 ist
'*Rückgabewerttyp: String
'*************************************
FunktionDBC2SBC (STR, Flag)
Dimi
iflen (str) <= 0Then
Antwort.Write (Die String -Parameter sind leer)
Ausgangsfunktion
Endif
Fei = 1tolen (str)
STR1 = ASC (MID (STR, I, 1)))
IFSTSTR1> 0andSSTR1 <= 125andnotflagthen
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR, I, 1)) -23680)
anders
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR, I, 1))+23680)
Endif
nächste
Endfunktion
%>