转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
使用xsl对xml文档进行动态排序,分页显示的扩展         ★★★★

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

作者:闵涛 文章来源:闵涛的学习笔记 点击数:664 更新时间:2009/4/23 11:17:51
    
  在 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 稍作修改就可以显示我们的数据了。
  
    


[Web开发]XML与HTML在语法上的主要区别详解  [系统软件]如何让Expat支持中文XML
[VB.NET程序]vb.net 与 XML 的操作  [VB.NET程序]vb.net读写xml(2)--实现datagrid与xml的沟通(原创…
[VB.NET程序]vb.net 读写xml方法(1)  [VB.NET程序][VB.NET+XML]完成简单程序配置
[VB.NET程序]使用Visual Basic操纵XML文档  [VB.NET程序]XML 简单接口 (SAX2)用Visual Basic 实现的示例
[Delphi程序]Delphi 6 XML映象工具  [Delphi程序]Delphi 6 XML数据绑定
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台