使用 xsl 对 xml 文档进行动态排序，分页显示的扩展

答案：     
  在 http://www.asptoday.com/articles/20000724.htm 有非常好的例子，是关于
  使用 xsl 对 xml 文档进行动态排序，分页显示的。
  主要使用三个文件：
  default.asp   把 xml, xsl 文件串起来
  getxml.asp    对 default 来说相当于 xml
  sample.xsl    主要的格式编排工作在这里做
  ===================================================
  我们可以再进一步拓展这个巨酷的例子：
  1。把 getxml.asp 写好。但我们的真正工作不在 asp 里做。我们用 vb。
     这样一会我们就可以把这个贴子一稿多投到 VB 论坛。
     形如：
     <%@ Language=VBScript %>
     <SCRIPT LANGUAGE=vbscript RUNAT=Server>
      Dim oMyTool
      Dim sXML    
      Set oMyTool = Server.CreateObject("MyPackage.MyComponent")
      sXML = oMyTool.GetData()
      
      Response.ContentType="text/xml"
      Response.Write sXML
      
      set oMyTool = nothing
     </SCRIPT>
  
  2。 在 VB 中我们使用 SQL 2000 的 for XML 来得到所需的 XML String。
  Public Function GetData() As Variant
  
      Dim oConn As ADODB.Connection
      Dim oCmd As Command
      Dim oRS As ADODB.Recordset
      Dim myStream As ADODB.Stream
      'Dim strConn As String
      Dim strXML As String
      
      Set oConn = New ADODB.Connection
      oConn.Open (GetConnectionString)
      
      Set oCmd = New ADODB.Command
      oCmd.ActiveConnection = oConn
      
      Set myStream = New ADODB.Stream
      myStream.Open
      
      oCmd.Properties("Output Stream") = myStream
  
      oCmd.CommandText = "SELECT EmployeeID, LastName, FirstName, BirthDate, Notes " & _
                          "FROM Employees FOR XML auto"
  
      oCmd.Execute , , adExecuteStream
      myStream.Position = 0
      strXML = myStream.ReadText
      strXML = "<RET>" & strXML & "</RET>"
      
      GetData = strXML    
      
      Set oCmd = Nothing
      oConn.Close
      Set oConn = Nothing
      
  End Function
  =============================
  有两点要注意，一是 sql for xml auto 比较土，我们需要自己加上个 root。
  二是我使用 GetConnectionString 获得 sql conn str 是因为把该 str 
  放在了 COM+ Construction string 里。这样一会我们就可以把这个贴子一稿多投到 
  COM 论坛和多层结构论坛，还有安全性论坛，当然还有 SQL 论坛。
  
  我们只需要对 sample.xsl 稍作修改就可以显示我们的数据了。
  
   

上一个：SOAP ABC
下一个：XML 和Java – 是敌还是友？