ASP full-width half-width mutual Conversion Function

<%
Function dbc2sbc (STR, flag)
Rem fullwidth Conversion Function
When REM flag =-1, the halfwidth is converted to fullwidth.
When REM flag is set to 0, the half-width rotation is performed.
When REM flag = 1, the full angle is switched to the half angle.

Dim I, SSTR
If Len (STR) <= 0 Then exit function
Dbc2sbc = ""
For I = 1 to Len (STR)
SSTR = ASC (mid (STR, I, 1 ))
Select case flag
Case-1
If SSTR> 0 and SSTR <= 125 then
Dbc2sbc = dbc2sbc & CHR (ASC (mid (STR, I, 1)-23680)
Else
Dbc2sbc = dbc2sbc & Mid (STR, I, 1)
End if
Case 0
If SSTR> 0 and SSTR <= 125 then
Dbc2sbc = dbc2sbc & CHR (ASC (mid (STR, I, 1)-23680)
Else
Dbc2sbc = dbc2sbc & CHR (ASC (mid (STR, I, 1) + 23680)
End if
Case 1
If SSTR <0 or SSTR> 125 then
Dbc2sbc = dbc2sbc & CHR (ASC (mid (STR, I, 1) + 23680)
Else
Dbc2sbc = dbc2sbc & Mid (STR, I, 1)
End if
End select
Next
End Function
%>