Para evitar que los clientes ingresen al carácter de ángulo completo (medio angular) al ingresar, necesitamos convertirlo en el carácter de medio ángulo completo (ángulo completo) a través del programa, que es una función dada.
<%
'******************************
'*Descripción del parámetro:
'*Str: cadena para convertir
'*Bandera: Marque, entregue por completo a las 0:00 y gire a la mitad cuando no sea -0
'*Tipo de valor de retorno: cadena
'******************************
FunctionDBC2SBC (STR, FLAG)
dimi
iflen (str) <= 0then
Response.write (los parámetros de cadena están vacíos)
extinción
endif
Fori = 1Tolen (str)
str1 = asc (mid (str, i, 1)))
ifstr1> 0andstr1 <= 125andnotflagthen
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR, I, 1)) -23680)
demás
DBC2SBC = DBC2SBC & CHR (ASC (MID (STR, I, 1))+23680)
endif
próximo
Función final
%>