当前位置: 首页 > 图文教程 > 网络编程 > ASP > 仅用xsl和asp实现分页功能

ASP
Access 2000 数据库 80 万记录通用快速分页类
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
收藏的ASP常用的函数集
asp分页的一个类
ASP开发网页牢记注意事项
ASP下操作Excel技术总结分析
ASP数据岛操作类
ASP经典分页类
asp论坛在线人数统计研究
ASP调用SQL SERVER存储程序
asp输出bmp
ASP连接数据库的全能代码
ASP面向对象编程探讨及比较
web文件管理器的后续开发
一小偷类!!有兴趣的可以看看
利用ASP实现事务处理的方法
大数量查询分页显示 微软的解决办法
如何把ASP编写成DLL
asp实现树型结构
超级ASP大分页_我的类容我做主

ASP 中的 仅用xsl和asp实现分页功能


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 220 ::
收藏到网摘: n/a

  注意事项:
※本文代码可能有一些多余部分未去掉,请在阅读时忽略。
  一些外部include进来的文件这里就不贴上来了。
※小乙写xsl也不久,很多语句都不会使用,有些地方写得比较罗嗦,
  如果您有更好的分页代码,请多多拿来交流。
※适用于:用asp load进来xml代码,然后用此xsl文件进行分页处理。
※[2001.2.19]
------------------------------------
asp文件大致结构:
<%@ Language=VBScript %>
<!-- #include file=include/lib.asp -->
<%
cc=server.MapPath("trans.xml")
set source=server.CreateObject("msxml2.domdocument")
source.async=false
source.load(cc)

xslfile=server.MapPath("index.xsl")
set style=server.CreateObject("msxml2.domdocument")
style.async=false
style.load(xslfile)

'Response.write source.transformNode(style)
Response.write gb_html(source.transformNode(style))
Response.End
%>
------------------------------------load进来的xml数据是这样的:
<?xml version="1.0" encoding="GB2312" ?>
<root>
<function>
<PO>里面的标签在后面的xsl文件里被"<xsl:for-each>"</PO>
<PO>……………………</PO>
<PO>……………………</PO>
<PO>……………………</PO>
</function>
</root>


------------------------------------
xsl文件的内容:

<?xml version="1.0" encoding="GB2312"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:include href="include/ydzhongxin.xsl"/><!--  嵌入头模板,尾模板  -->
<xsl:param name="yd">7</xsl:param><!--  调用二级导航条所用参数 -->
<xsl:param name="page">    <xsl:value-of select="count(//PO)"/></xsl:param>

<!-- 定义根模板  -->
<xsl:template match="/">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<link rel="stylesheet" type="text/css" href="include/style.css"/>
<title>结果列表</title>
</head>
<body leftMargin="0" topMargin="0">
<xsl:call-template name="ydtitle"/>

        <div align="center">
        <xsl:apply-templates select="root/function"/>
        <!--  匹配function模板  -->
        </div>

<xsl:call-template name="end"/>
</body>
</html>
</xsl:template>



<!--  定义function模板  -->
<xsl:template match="function">
<!-- ---------------翻页链接开始----------- -->
<xsl:variable name="pagesize">5</xsl:variable><!--  是分页参数 -->

<xsl:choose>
<xsl:when test="/root/session/page[text()!='']">
<!-- 进入一级choose的一个when条件分支!!!!!
-------------进入此分支,证明用户已有翻页操作-------------- -->
<xsl:variable name="page"><xsl:value-of select="/root/session/page"/></xsl:variable>
<table border="0" cellpadding="2" cellspacing="0" width="630">
    <tr>
        <td align="right">
        <!-- 进入二级choose!!! -->
   &nbs