[b]asp全角半角转换函数[/b]
flag=-1时进行半角转全角
flag=0时进行半角全角互转
flag=1时进行全角转半角
<%
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
%>
[b]javascript版 全角半角转换函数
[/b]
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;
}
[b]Javascript常用函数 sbc2dbc()
[/b]
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;
}
var re = new RegExp(stringFromCharCode, "g");
var va = String.fromCharCode(i + 65248);
sbc2dbc = sbc2dbc.replace(re, va);
}
sbc2dbc = sbc2dbc.replace(/ /g, ' ');
return sbc2dbc;
}
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码（独立后台）...
