使用 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 %>
  
  
  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 = "" & strXML & ""
  
   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 稍作修改就可以显示我们的数据了。
  
  

原文转自：http://www.ltesting.net