ASP (JavaScript) full-width half-width conversion code dbc2sbc

ASP full-width half-width Conversion Function
When flag =-1, the halfwidth is converted to fullwidth.
When flag is set to 0, the half-width rotation is performed.
When flag is set to 1, the full angle is converted to the half angle. CopyCode The Code is as follows: <%
Function dbc2sbc (STR, flag)
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
%>

Javascript full-width Conversion Function
Copy codeThe Code is as follows: function dbc2sbc (SSTR ){
VaR dbc2sbc = SSTR;
For (VAR I = 65281; I <65375; I ++ ){
VaR Re = new Regexp (string. fromcharcode (I), "G ");
VaR Va = string. fromcharcode (I-65248 );
Dbc2sbc = dbc2sbc. Replace (Re, VA );
}
Dbc2sbc = dbc2sbc. Replace (// G ,'');
Return dbc2sbc;
}

common JavaScript Functions sbc2dbc ()
copy Code the code is as follows: function sbc2dbc (SSTR) {
var sbc2dbc = SSTR;
for (VAR I = 33; I <127; I ++) {
stringfromcharcode = string. fromcharcode (I);
switch (stringfromcharcode) {
case "(":
case ")":
case "*":
case "+":
case "/":
case "\":
case "[":
case "]":
case "? ":
case" $ ":
case ". ":
case" ^ ":
case" | ":
stringfromcharcode = '\' + stringfromcharcode;
default:
break;
}< br> var Re = new Regexp (stringfromcharcode, "G");
var Va = string. fromcharcode (I + 65248);
sbc2dbc = sbc2dbc. replace (Re, VA);
}< br> sbc2dbc = sbc2dbc. replace (// G, '');
return sbc2dbc;
}