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

ASP
asp中利用数组实现数据库记录的批量录入方法
vbs(asp)的栈类
加密處理使密碼更安全[CFS編碼加密]
在asp中通过vbs类实现rsa加密与解密
披著羊皮的大野狼 - Session
简体中文编码对应器
len(),lift(),right()不能正常识别中文的解决方法
实现WEB中的@虚拟域名系统(原理篇)
巧用ASP生成PDF文件
二级域名原理以及程序,申请即可开通
无组件上传图片到数据库中,最完整解决方案
在ASP中使用SQL语句之1:SELECT 语句
在ASP中使用SQL语句之2:用WHERE子句设置查询条件
在ASP中使用SQL语句之3:LIKE、NOT LIKE和 BETWEEN
在ASP中使用SQL语句之4:联合语句
在ASP中使用SQL语句之5:开始执行
在ASP中使用SQL语句之6:存储查询
在ASP中使用SQL语句之7:ORDER BY
在ASP中使用SQL语句之8:随机数
在ASP中使用SQL语句之9:表单操作

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 121 ::
收藏到网摘: 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