title.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 objname = objdom.documentElement.SelectSingleNode("//TITLE")

'判断
set conn=Server.CreateObject("ADODB.Connection")
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 "
rs.open strSql,conn, 1, 1     
tempNum = 1
strResult = ""
do until tempNum = 11
  if rs.eof then 
    exit do
  end if 
  strResult = strResult & " title" & tempNum & "=""" & rs("title") & """" & " id" & tempNum & "=""" & rs("ID") & """"
  tempNum = tempNum + 1
  rs.movenext
loop
rs.close
conn.close

'返回
MyTextFile.WriteLine(strResult)
response.write("<TITLE " & strResult & "></TITLE>")
%>