解決辦法是用轉碼軟件，把寫好的代碼轉換壹下就行了，中文的格式不變。我之前寫過這樣壹個工具，妳可以下載。com/soft/25302.html這裏如果不是太差的話。呵呵，當然還有其他專家寫的更好的轉碼工具，這裏就略過了。..
也可以使用函數轉換。當妳想輸出中文的時候，妳要回應。writeutf8(“中文”)，但執行效率差，可能會錯過轉換，調試時要註意。
= = = = = = = = = = = = = =以下是UTF8函數= = = = = = = = = = = = = = = = = = = = = = = = = = = =
函數UTF8(字符串)
Dim i，OneStr，AllStr
For i = 1到Len(Str)
OneStr = Mid(Str，I，1)
AllStr = AllStr & ampchr(38)和ampchr(35)和ampchr(120)十六進制(Ascw(OneStr))& amp；人權委員會(59)
然後
UTF8 = AllStr
結束功能