例10-10.asp

深入浅出XML示例下载

<% @ LANGUAGE="VBSCRIPT" %>
<% 
function GetLocalAddress()
    dim mm 
    mm=Request.ServerVariables("APPL_PHYSICAL_PATH")
    if right(mm,1)="\" then mm=left(mm ,len(mm)-1)
    mm=mm&Request.ServerVariables("PATH_INFO")
    mm=left(mm,len(mm)-3) & "xml"
    GetLocalAddress=mm
  end function 
function GetPageAddress()
    dim mm 
    mm="HTTP://" & Request.ServerVariables("Server_Name")
    mm=mm&Request.ServerVariables("PATH_INFO")
    mm=left(mm,len(mm)-3) & "xml"
    GetPageAddress=mm
  end function
  Set m_con = Server.CreateObject("ADODB.Connection")
  m_con.ConnectionString = "DSN=mydataname"
  m_con.Open
  Set m_recordset=Server.CreateObject("ADODB.RecordSet")
  m_recordset.ActiveConnection = m_con
  m_recordset.Open "Select * from studentmark"
  set fs =Server.CreateObject("Scripting.FileSystemObject")
  set ts =fs.CreateTextFile(GetLocalAddress(),true,false)
  ts.WriteLine  "<?xml version=""1.0"" encoding=""GB2312"" standalone=""yes"" ?>"
  ts.WriteLine  "<StudentList>"
  ts.Write "当前时间："
  ts.WriteLine  now()
  While Not m_recordset.eof
   ts.WriteLine  "<Student>"
   ts.WriteLine  "<Name>"
   ts.WriteLine  m_recordset("Name") 
   ts.WriteLine  "</Name>"
   ts.WriteLine  "<Age>"
   ts.WriteLine  m_recordset("Age") 
   ts.WriteLine  "</Age>"
   ts.WriteLine  "<MathMark>"
   ts.WriteLine  m_recordset("MathMark") 
   ts.WriteLine  "</MathMark>"
   ts.WriteLine  "<ComputerMark>"
   ts.WriteLine  m_recordset("ComputerMark") 
   ts.WriteLine  "</ComputerMark>"
   ts.WriteLine  "<EnglishMark>"
   ts.WriteLine  m_recordset("EnglishMark") 
   ts.WriteLine  "</EnglishMark>"
  ts.WriteLine  "</Student>"
     m_recordset.MoveNext
  Wend
  ts.WriteLine  "</StudentList>"
  ts.close
  m_con.Close
  set m_recordset=nothing
  set m_con= nothing
  set fs=nothing
'  Response.Write GetPageAddress() 
  Response.Redirect GetPageAddress() 
%>