【图】如何用Asp动态生成xml文件

Function ReplaceChar ( FstrSource )
dim strRet
if IsNull(FstrSource) then
    FstrSource = ""
end if
strRet = Replace ( FstrSource , "&" , "&" )
strRet = Replace ( strRet , "<" , "<" )
strRet = Replace ( strRet , "" , ">" )
strRet = Replace ( strRet , """" , """ )
strRet = Replace ( strRet , "'" , "'" )
ReplaceChar = strRet
End Function
function RstToXML (FrstRst, FstrRstName)
    dim strSpace 'space string behand of element
    dim intLevel 'level of the element
    dim strXML    'the return string(xml string)
    dim intRstField
    dim strShortDate

    'document level
    intLevel = 0
    strSpace = space (intLevel * 2)
    if Len(FstrRstName)0 then
    strXML=strSpace & "<" & FstrRstName & "" & vbCR
    intLevel = intLevel + 1
    strSpace = space(intLevel*2)
end if
if FrstRst.EOF then
    strXML = strXML&strSpace & "<Record"
    for nCount=0 to FrstRst.Fields.Count-1
      strXML = strXML & space(1)&FrstRst.Fields(nCount).Name&"=''"
    next
    strXML = strXML & "/" &vbCR
    if Len(FstrRstName)0 then
    strXML=strXML&strSpace & "</" & FstrRstName & "" & vbCR
    end if
    RstToXML=strXML
    exit function
end if

' now move in one level
intLevel = intLevel + 1
strSpace = space (intLevel * 2)

' loop through the records
dim strTemp
FrstRst.MoveFirst
do while not FrstRst.EOF
    strTemp = ""
      'loop through the fields
      'strXML = strXML & strSpace & "<Record"
      for each objField in FrstRst.Fields
      'set objField = FrstRst.Fields(intRstField)
          strTemp = strTemp & space (1) & objField.Name & "="
             strTemp = strTemp & """" & ReplaceChar(objField.Value) & """"
      end if
      next
      strXML = strXML & "<Record "&strTemp& "/" & vbCR
      FrstRst.MoveNext
loop

intLevel=intLevel-1
strSpace=space(intLevel * 2)