仅用xsl和asp实现分页功能
注意事项：
※本文代码可能有一些多余部分未去掉，请在阅读时忽略。 一些外部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！！！ --> <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 上一篇：不用组件实现上载功能(2) 下一篇：在网页中实现OICQ里的头像选择的下拉框 更多相关文章
|
推荐文章
精彩文章
|
