全角与半角字符的相互转换的asp函数

2009-05-12 15:05:09来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

为了防止客户在输入的时候,错误地输入了全角(半角)字符,我们要通过程序将它转换成正确的半角(全角)字符,这是给定的函数。
<% 
'**************************** 
'*参数说明: 
'* str:要转换的字符串 
'* flag:标记,为0时半转全,为非0时全转半 
'* 返回值类型:字符串 
'**************************** 
function DBC2SBC(str,flag) 
dim i 
if len(str)<=0 then 
REsponse.Write("字符串参数为空") 
exit function 
end if 
for i=1 to len(str) 
str1=asc(mid(str,i,1)) 
if str1>0 and str1<=125 and not flag then 
dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))-23680) 
else 
dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))+23680) 
end if 
next 
End function 
%>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:asp的Request对象

下一篇:asp session 使用数组

热门词条
热门标签