我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp组件/脚本 > 半角<=>全角互转函数[JS版 VBS版]
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

半角<=>全角互转函数[JS版 VBS版] 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-28
<script>
/*
****************************
* 　　　 半角<=>全角 　　　*
* [NB联盟] *
* Writer YuPing *
****************************
*　参数说明:
* str:要转换的字符串
* flag:标记，为０时半转全，为非０时全转半
* 返回值类型：字符串
****************************
*/
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;
}
//示例：
alert(DBC2SBC("AＡabc",0));
document.write(DBC2SBC("abcdefg",0))
</script>
<input type=text value="abcdefg" id=txt><input type=button value="变" onclick=txt.value=DBC2SBC(txt.value)>


<script language="vbscript">
'****************************
'* 　　　 半角<=>全角 　　　*
'* [NB联盟] *
'* Writer YuPing *
'****************************
'*　参数说明:
'* str:要转换的字符串
'* flag:标记，为０时半转全，为非０时全转半
'* 返回值类型：字符串
'****************************
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
'示例：
alert(dbc2sbc("ＡＢ",1))
</script>



【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。