为了防止客户在输入的时候，错误地输入了全角（半角）字符，我们要通过程序将它转换成正确的半角（全角）字符，这是给定的函数。
<%
'****************************
'*参数说明:
'*str:要转换的字符串
'*flag:标记，为0时半转全，为非0时全转半
'*返回值类型：字符串
'****************************
functionDBC2SBC(str,flag)
dimi
iflen(str)<=0then
REsponse.Write(字符串参数为空)
exitfunction
endif
fori=1tolen(str)
str1=asc(mid(str,i,1))
ifstr1>0andstr1<=125andnotflagthen
dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))-23680)
else
dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))+23680)
endif
next
Endfunction
%>