[資料]全形半形轉換[NB聯盟](ASP,JavaScript)代碼

/*
****************************
* 　　　 半形<=>全形 　　　*
*           [NB聯盟]           *
*       Writer    YuPing         *
****************************
*　參數說明:
*    str:要轉換的字串
*    flag:標記，為０時半轉全，為非０時全轉半
*    傳回值類型：字串
****************************
*/
function DBC2SBC(str,flag) {
var i;
var result='';
if (str.length<=0) {alert('字串參數出錯');return false;}
    for(i=0;i<str.length;i++)
    { str1=str.charCodeAt(i);
      if(str1<125&&!flag)
       result+=String.fromCharCode(str.charCodeAt(i)+65248);
       else
       result+=String.fromCharCode(str.charCodeAt(i)-65248);
    }
return result;
}
//樣本：
alert(DBC2SBC("AＡabc",0));
document.write(DBC2SBC("abcdefg",0))'****************************
'* 　　　 半形<=>全形 　　　*
'*           [NB聯盟]           *
'*       Writer    YuPing         *
'****************************
'*　參數說明:
'*    str:要轉換的字串
'*    flag:標記，為０時半轉全，為非０時全轉半
'*    傳回值類型：字串
'****************************
function DBC2SBC(str,flag)
dim i
if len(str)<=0 then
       msgbox '字串參數出錯'
       exit function
end if
      for i=1 to len(str)
      str1=asc(mid(str,i,1))
       if str1>0 and str1<=125 and not flag then
         dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))-23680)
       else
         dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))+23680)
       end if
      next
end function