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