使用vbscript进行DB2提取

我想从使用IBM代码页285（EBCDIC代码页）的db2大型机中提取数据 使用vbscript但保存此文件（xml数据）时，显示方式错误。 在保存文件之前，如何将vbscript RecSet从285转换为ASCII或UTF-8

Function used for saving file:
Function WriteFileText( sText, sFileName)
    Dim sFilePath
Dim objFSO 'As FileSystemObject
Dim objTextFile 'As Object
    Dim i
    Dim arr

sFilePath = "c:\jdk1.3\temp\" & sFileName
Const ForWriting = 2


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(sFilePath, True, True)

a = 0

for i=1 to len(sText)
s2Text = right(left(sText,i),1)
if i > 54 and asc(s2Text) = 63 then a = a + 1 else objTextFile.Write (s2Text) end if
next

objTextFile.Close

“”设置objTextFile=objFSO.CreateTextFile（sFilePath，True，True）

---

“”用于转换为UTF8，好像写入文件时只出现一个真正的错误

请参阅。它是用VB编写的，但很容易转换为VBScript。

用于保存记录集的函数：