当前位置:编程学习 > asp >>

仅用xsl和asp实现分页功能。源码

答案: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=><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=><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!!! -->
        <xsl:choose>
        <!-- ①id小于等于0的情况,显示最后一页。-->
        <xsl:when test="$pid<1">
        <a><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="count
(//PO)"/></xsl:attribute>
[ 首 ]</a>
        <a title="前一页"><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of
select="$size*2"/></xsl:attribute>[ <<< ] </a>
        <a title="后一页">[ >>> ] </a>
        <a>[ 尾 ]</a>
        </xsl:when>
        <!-- ②id位于[0~pagesize]之间的情况,前页正常,后页无。 -->
        <xsl:when test="$pid<($size + 1) and $pid>0">
        <a><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="count
(//PO)"/></xsl:attribute>
[ 首 ]</a>
        <a title="前一页"><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of
select="$pid+$size"/></xsl:attribute>[ <<< ] </a>
        <a title="后一页">[ >>> ] </a>
        <a>[ 尾 ]</a>
        </xsl:when>
        <!-- ③id位于[pagesize~count]之间的情况,前页无,后页正常。 -->
        <xsl:when test="$pid<count(//PO) and $pid>(count(//PO)-$size)">
        <a><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="count
(//PO)"/></xsl:attribute>
[ 首 ]</a>
        <a title="前一页"><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="count
(//PO)"/></xsl:attribute>[ <<< ] </a>
        <a title="后一页"><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="$pid -
$size"/></xsl:attribute>[ >>> ] </a>
        <a><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="$size"/></xsl:attribute>
[ 尾 ]</a>
        </xsl:when>

        <!-- ④id等于count的情况,显示首页。 -->
        <xsl:when test="$pid=count(//PO)">
        <a>[ 首 ]</a>
        <a title="前一页">[ <<< ] </a>
        <a title="后一页"><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="count
(//PO)-$size"/></xsl:attribute>[ >>> ] </a>
        <a><xsl:attribute name="href">search_jieguo.asp?id=<xsl:value-of select="$size"/></xsl:attribute>
[ 尾 ]</a>
        </xsl:when>
 &

上一个:Using SOAP from inside ASP,maybe helpful for you!
下一个:SQL Server XML 和 Web 应用体系结构 ------ 没有图 :(

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,