【 tulaoshi.com - 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！！！ --
&nbs
