用Flash和XML构建论坛实例（上）

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

set objDom = server.CreateObject("microsoft.xmldom") ‘注释3
objDom.loadxml(Request.Form) ‘注释4
set objid = objdom.documentElement.SelectSingleNode("//FILE/ID") ‘注释5
id = objid.text

'判断
set conn=Server.CreateObject("ADODB.Connection") ‘注释6
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xmlbbs/xmlbbs.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
strSql="select * from FileInfo where id = " & id ‘注释7
rs.open strSql,conn, 1, 1
title = ""
author = ""
content = ""
if not(rs.bof and rs.eof) then ‘注释8
id = rs("id")
title = rs("title")
author = rs("author")
content = rs("content")
end if

'要单独处理回复
rs.close
reply = ""
strSql="select * from FileInfo where fid = " & id ‘注释9
rs.open strSql,conn, 1, 1
do while not rs.eof
reply = reply & " " & rs("content") ‘注释10
rs.moveNext ‘注释11
loop
rs.close
conn.close
'返回
response.write("<FILE id=""" & id & """ title=""" & title & """ author=""" & author & """ content=""" & content & """ reply=""" & reply & """></FILE>") ‘注释12
%>

　　注释1：创建一个临时文件对象。

　　注释2：将从Flash端传来的XML字符串写到临时文件中。

　　注释3：创建一个XML对象。

　　注释4：将Flash端传送来的XML字符串导入到XML对象中。

　　注释5：读取XML对象中//FILE/ID结点的内容。

　　注释6：创建一个数据库的ADO连接。

　　注释7：构造一个SQL字符串，根据传送来的ID号去查询数据库。

　　注释8：如果有符合条件的记录，读取相应的记录。

　　注释9：回复的帖子的查询条件是Fid，所以要重新查询一下数据库。

　　注释10：将查询处理的记录构造成一个字符串。

　　注释11：记录集的指针下移一步。

　　注释12：构造一个XML格式的字符串，并发送到Flash端。

（出处：清风下载学院）