Verwenden Sie asp, um XML-Dateien zu generieren. Zuerst habe ich fso verwendet, das nur das Schreiben verwendet. Gleichzeitig habe ich Ihnen auch die Methode zum Lesen von Dateien gegeben.
ASP-Abfrage-XML nach Schlüsselwortproblem
'------------------------------------------------ - ----
'Lesen Sie die DateiReadTxtFile(FileName)
'------------------------------------------------ - ----
Funktion ReadTxtFile(FileName)
Dimmen Sie fso,f1,ts,FilePath
FilePath=server.mappath(Dateiname)
Setze fso = CreateObject(Scripting.FileSystemObject)
Setze ts = fso.OpenTextFile(FilePath,1,1)
ReadTxtFile = ts.ReadAll
setts=nichts
setze fso=nichts
Funktion beenden
'------------------------------------------------ - ---------
„Informationen in Datei schreiben.“
'------------------------------------------------ - ---------
Funktion WriteTxtFile(Text,FileName)
path=Server.MapPath(Dateiname)
Setze fso = CreateObject(Scripting.FileSystemObject)
Setze f1 = fso.CreateTextFile(path,true)
f1.Write(Text)
f1.Schließen
Funktion beenden
'------------------------------------------------ - ---------
'Xml-Datei generieren
'------------------------------------------------ - ---------
msg = <?xml version=1.0kodierung=utf-8?>
msg=msg & <bcaster>
msg=msg & <item item_url=http://www.vevb.com itemtitle=Script Home/>
msg=msg & </bcaster>
Aufruf von WriteTxtFile(msg,x1.xml)
fso ist standardmäßig ASCII-codiert, da UTF-8-Codierung verwendet werden muss. Verwenden Sie ado.stream, um diese Datei zu schreiben. Der Code lautet wie folgt:
Sub CreateFile(Text,FileName)
Dim st
Setze st=Server.CreateObject(ADODB.Stream)
st.Type=2
st.Mode=3
st.Charset=utf-8
st.Open()
st.WriteText Text
st.SaveToFile Server.MapPath(FileName),2
st.Close()
Setze st=Nichts
Sub beenden
msg = <?xml version=1.0kodierung=utf-8?>
msg=msg & <bcaster>
msg=msg & <item item_url=http://www.vevb.com itemtitle=Script Home/>
msg=msg & </bcaster>
Rufen Sie CreateFile(msg,x1.xml) auf