建站学 - 轻松建站从此开始!

建站学-个人建站指南,网页制作,网站设计,网站制作教程

当前位置: 建站学 > 网站开发 > asp教程 >

ASP实例教程:全角半角转换

时间:2011-03-16 10:52来源: 作者: 点击:
我们都知道我们在输入文字和标点的时候有全角和半角可以切换,那么在ASP编程中又如何进行转换呢?本文ASP实例教程,教你在全角半角间转换。 javascript转换部分:

我们都知道我们在输入文字和标点的时候有全角和半角可以切换,那么在ASP编程中又如何进行转换呢?本文ASP实例教程,教你在全角半角间转换。

javascript转换部分:

<SCRIPT>
/*
****************************
* 建站学参数说明:
* str:要转换的字符串
* flag:标记,为0时半转全,为非0时全转半
* 返回值类型:字符串

****************************
*/
function DBC2SBC(str,flag) {
var i;
var result='';
if (str.length<=0) {alert('字符串参数出错');return false;}
for(i=0;i<str.length;i++)
{ str1=str.charCodeAt(i);
if(str1<125&&!flag)
result+=String.fromCharCode(str.charCodeAt(i)+65248);
else
result+=String.fromCharCode(str.charCodeAt(i)-65248);
}
return result;
}
</script>
//示例:
<script>
alert(DBC2SBC("AAabc",0));
document.write(DBC2SBC("abcdefg",0))

</script>

asp转换部分:

<%
'****************************
'* 建站学参数说明:
'* str:要转换的字符串
'* flag:标记,为0时半转全,为非0时全转半
'* 返回值类型:字符串
'****************************
function DBC2SBC(str,flag)
dim i
if len(str)<=0 then
msgbox '字符串参数出错'
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
%>

(责任编辑:admin)
织梦二维码生成器
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
最新评论 进入详细评论页>>
栏目列表
推荐内容