sp中的全角和半角之间的转化

<%
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="关键词：点晴mis管理信息系统 clicksun.com.cn"
response.write ""&key&""
response.write "
半角转全角： "&dbc2sbc(key,-1)
response.write "
半角全角互转： "&dbc2sbc(key,0)
response.write "
全角转半角： "&dbc2sbc(key,1)