您的位置：建站学院首页 >> 文章 >> asp技术 >> XML相关
仅用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="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条件分支！！！！！
－－－－－－－－－－－－－进入此分支，证明用户已有翻页操作－－－－－－－－－－－－－－ -->
<%@ 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条件分支！！！！！
－－－－－－－－－－－－－进入此分支，证明用户已有翻页操作－－－－－－－－－－－－－－ -->