当前位置:96看吧 > 技术文档 > ASP编程 > asp函数全角半角字符相互转换

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

时间:2008/12/29
作者:佚名
来源:96KB看吧
查看:
标签:asp函数
<% 
'**************************** 
'*参数说明: 
'* str:要转换的字符串 
'* flag:标记,为0时半转全,为1时全转半 
'* 返回值类型:字符串 
'**************************** 
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 
%>
上一篇:LineSoft ASPRunner Professional
下一篇:asp各进制转换函数
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门