為了防止客戶在輸入的時候，錯誤地輸入了全角（半角）字符，我們要通過程序將它轉換成正確的半角（全角）字符，這是給定的函數。
<%
'****************************
'*參數說明:
'*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
%>