Using ASP to realize the transformation between the whole angle and the half angle

In the case of an array that accepts a form, it is mostly separated by | or. However "," "," the whole horn is different from the half-width, and today we are going to explain how to convert it

<%
Function DBC2SBC (STR, flag)

REM Full-angle half-angle conversion function

In rem flag=-1, half angle and full angle

In rem flag=0, half angle and full angle are transferred

Full angle and half angle in rem flag=1

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<= 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<= 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
%>