newreply.asp

在flash中

<%
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObject.CreateTextFile("G:\写作\flashxmlbbs\login.xml", 8, TRUE)
MyTextFile.WriteLine(Request.Form)

set objDom = server.CreateObject("microsoft.xmldom")
objDom.loadxml(Request.Form)
set objID = objdom.documentElement.SelectSingleNode("//NEW/ID")
id = objID.text
set objTitle = objdom.documentElement.SelectSingleNode("//NEW/TITLE")
Title = objTitle.text
set objAuthor = objdom.documentElement.SelectSingleNode("//NEW/NAME")
Author = objAuthor.text
set objContent = objdom.documentElement.SelectSingleNode("//NEW/FILE")
Content = objContent.text


'判断
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xmlbbs/xmlbbs.mdb")
sqltemp="insert into FileInfo (title,author,fid,content) values ('" & Title & "','" & Author & "'," & id & ",'" & Content & "')"
conn.Execute(sqltemp)   
conn.close

'返回
response.write("<BACK flag1=""1""></BACK>")
%>