对于xml没接触过,网上查询xml好像第一行应为
<?xml version="1.0" encoding="gb2312"?>

于是通过以下先获取aa.xml内容然后再生成bb.xml的方式加入到第一行
Function LoadFile(file)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
If Err.Number<>0 Then
Response.Write "<div align='center'>文件<font color='#ff0000'>"&File&"</font>无法被打开，请检查是否存在!</font></div>"
Err.Clear
Response.End
End If
.Charset = "GB2312"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function

'通过LoadFile获取aa.xml文件内容
xmltxt=LoadFile("aa.xml")

'生成bb.xml
xmlfile=server.mappath("bb.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
MyFile.WriteLine(xmltxt)
MyFile.Close

现在出现的问题是:
我在读取这个bb.xml内容的时候报错,但是如果把bb.xml用记事本打开然后再保存一下就能正常使用了,实际要求中没办法做到将每个文件都进行打开保存这样操作一遍,不知道问题出在哪,弄了两天了都没解决,请各位帮忙指点一下.

另外如果我直接生成bb.xml内容的话能读
'生成bb.xml及内容
xmlfile=server.mappath("bb.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<NewDataSet>")
MyFile.WriteLine("<COMMON>")
MyFile.WriteLine("<aa>测试</aa>")
MyFile.WriteLine("<bb>测试1</bb>")
MyFile.WriteLine("</COMMON>")
MyFile.WriteLine("</NewDataSet>")
MyFile.Close

'读取bb.xml
SettingFile="bb.xml"
Dim objXML,objRoot,Total,I
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.async=False
objXML.load (Server.Mappath(SettingFile))
 
Set objRoot=objXML.selectsinglenode("NewDataSet/COMMON")
    if isobject(objRoot)=false then
       Response.write "文件读取失败"
    end if
 
    Total=objRoot.childnodes.length  '//就是这句报错: (0x800A01A8)缺少对象

    ReDim Site_Info(Total-1)
    For I=0 To Total-1
     Site_info(i)=objRoot.childnodes(i).text
     Response.Write "site_info("&i&")="&site_info(i)&"
"
    Next
    Set objRoot=Nothing
    Set objXML=Nothing

文件编码可用记事本打开后“另存为”，看其编码为当前文件编码。

txtcon=LoadFile("aa.xml")

'生成bb.xml
 
call SaveToFile(txtcon,"bb.xml")

Function LoadFile(File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(File)
If Err.Number<>0 Then
Response.Write "<div align='center'>文件<font color='#ff0000'>"&File&"</font>无法被打开，请检查是否存在!</font></div>"
Err.Clear
Response.End
End If
.Charset = "gb2312"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function

Sub SaveToFile(strBody,File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then
        Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        Err.Clear
        Response.End
    End If
    With objStream
        .Type = 2
        .Open
        .Charset = "gb2312"
        .Position = objStream.Size
  .WriteText = "<?xml version=""1.0"" encoding=""ANSI""?>"&vbcrlf     
        .WriteText = strBody
  
        .SaveToFile Server.MapPath(File),2
        .Close
    End With
    Set objStream = Nothing
End Sub

'读取bb.xml

SettingFile="bb.xml"
    Dim objXML,objRoot,Total,I
    Set objXML=Server.CreateObject("Microsoft.XMLDOM")
    objXML.async=False
    objXML.load (Server.Mappath(SettingFile))
    Set objRoot=objXML.selectsinglenode("NewDataSet/COMMON")
    if isobject(objRoot)=false then
       Response.write "文件读取失败"
    end if
    Total=objRoot.childnodes.length
    ReDim Site_Info(Total-1)
    For I=0 To Total-1
     Site_info(i)=objRoot.childnodes(i).text
     Response.Write "site_info("&i&")="&site_info(i)&"
"
    Next
    Set objRoot=Nothing
    Set objXML=Nothing

%>

上面这样试了不行

Sub SaveToFile(strBody,File)里面
Charset = "gb2312"
Charset = "UTF-8"

<?xml version="1.0" encoding="UTF-8"?>
<?xml version="1.0" encoding="ANSI"?>

aa.xml的编码格式是 ANSI

都试了不行,愁死我了

Qr版主,商量一下,我这里也没上传权限,能QQ给你传一下aa.xml的源文件帮我试试吗

你用记事本打开aa.xml，然后“另存为”，查看“另存为”对话框窗口中的编码是“ANSI”还是“UTF-8”，在此贴出来。或者直接把文件打包，发到我的EMAIL中。
睡觉咯，有事明天再说，呵呵!