DB2提取与vbscript

Question

我想从db2主机提取数据，它使用IBM代码页285（EBCDIC代码页） 与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，真，真） '用来转换为UTF8，仿佛写入文件

Answer 1

见How to convert between ASCII and EBCDIC character codes时，会出现只有一个真正的错误。它用VB编写，但很容易转换为VBScript。