有沒有那位高手可以幫我解決問題嗎
問題：如果我在繁體下執行到下列程式時，會將網頁上的資料放到lifengplastic.mdb中的資料表裡，可是在存入以亂碼存入資料庫中，可當在簡體存入就沒有問題就要正常執行

dim conn
dim connstr
db="../Database/lifengplastic.mdb" '資料庫檔案位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")

if err then
err.clear
else
conn.open connstr
end
if
function decrypt(dcode)    
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function

function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function

%>