【正文】
ode=AscB(MidB(vIn,i+1,1)) strReturn=strReturnamp。Chr(CLng(ThisCharCode)*amp。H100+CInt(NextCharCode)) i=i+1 End If Next bytes2BSTR=strReturn End Function /script 39。 以上轉(zhuǎn)換代碼用于解決無法顯示漢字 script language=javascript var lengt=0。 39。 消除右鍵功能 function no(){ alert(噢 ,不支持右鍵 !)。 =false。 } 39。 彈出 對話框 function sqq(uid,id){ (?id=+id+amp。uid=+uid,_blank,width=400,height=180)。 } 39。 此函數(shù)用于顯示在線人員 function online(){ var xml = new ActiveXObject()。 (post,false)。 ()。 var xmldom=ne