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

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

时间:2009/11/05
作者:诚心(MaWenDong)
来源:96看吧
查看:
标签:asp函数

<%
'半角字符的ASCII
'32       空格
'33-47    标点
'48-57    0~9
'58-64    标点
'65-90    A~Z
'91-96    标点
'97-122    a~z
'123-127 标点

'当intState=0时,strCommix转换成半角,当intState<>0的时候,strCommix转换成全角
Function strConv(strCommix,intState)
Dim strChar
Dim intAsc
Dim strTmp

If intState = 0 Then
    For i = 1 To Len(strCommix)
      strChar = Mid(strCommix, i, 1)
      intAsc = Asc(strChar)
      If (intAsc>=-23648 And intAsc<=-23553) Then
         strTmp = strTmp & Chr(intAsc+23680)
      Else
         strTmp = strTmp & strChar
      End if   
    Next
Else
    For i = 1 To Len(strCommix)
      strChar = Mid(strCommix, i, 1)
      intAsc = Asc(strChar)
      If (intAsc>=32 And intAsc<=127) Then
         strTmp = strTmp & Chr(intAsc-23680)
      Else
         strTmp = strTmp & strChar
      End if   
    Next
End If
strConv = Trim(strTmp)
End Function

'如:
str = "商场ABCDABCD12341234"
Response.Write strConv(str, 0) '结果为:商场ABCDABCD12341234
%>

=========================================

<%
Function DBC2SBC(Str, flag)
rem 全角半角转换函数
rem flag=-1时进行半角转全角
rem flag=0时进行半角全角互转
rem flag=1时进行全角转半角

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
%>

上一篇:asp函数截取字符串
下一篇:ADO通过GetString加速脚本
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门