ASP中的全角和半角之间的转化
来源:asp之家 时间:2008-06-06 13:34:00
ASP中的全角和半角转化函数,使用方法,传入要转换的字符给str即可,flag设置要转换的类型。
<%
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
%>
测试代码:
key="关键词:asp之家 www.aspxhome.com"
response.write "<b>"&key&"</b>"
response.write "<br>半角转全角: "&DBC2SBC(key,-1)
response.write "<br>半角全角互转: "&DBC2SBC(key,0)
response.write "<br>全角转半角: "&DBC2SBC(key,1)
输入:
标签:全角,半角,换行,函数,asp
0
投稿
猜你喜欢
SQL 语句中的通配符
2007-10-11 18:03:00
SQL Server中应当怎样得到自动编号字段
2009-01-15 12:48:00
用Mimer Validator检查SQL查询
2009-04-24 11:59:00
asp 输出换行的详细说明 原创
2011-02-24 11:15:00
asp统计在线人数是实时的吗?
2010-07-14 21:07:00
ASP代码中的容错机制
2008-10-19 17:30:00
发一个较复杂的字符串截取函数
2009-12-08 16:23:00
SQL--JOIN之完全用法
2008-09-12 17:30:00
在https页面中使用iframe出现安全警告的解决方法
2009-03-04 12:01:00
SQL SERVER的字段类型介绍
2008-05-23 13:27:00
Dreamweaver基础技巧全面接触
2010-03-25 12:23:00
认识MySQL数据库对服务器端光标的限制
2009-03-25 17:35:00
asp使用模板生成静态页面方法详解
2007-09-24 12:29:00
MySQL数据库root权限丢失解决方案
2008-07-13 13:59:00
SQL Server 2008的一些新特点及独到之处
2009-01-15 12:59:00
阿里巴巴中秋节logo设计的艰辛曲折过程
2008-09-11 17:15:00
提醒各位一下,IE透明会失效的
2009-03-31 12:48:00
对“关于购物车的想法”的一些回复
2009-03-10 18:15:00
文字超长自动省略,以...代替,CSS实现
2009-07-16 10:15:00
整理及优化CSS代码的七个原则[译]
2009-04-23 12:35:00