XSLT文件中内嵌脚本

最新推荐文章于 2025-02-20 09:06:11 发布

ztmaster

最新推荐文章于 2025-02-20 09:06:11 发布

阅读量1.4k

点赞数

分类专栏： XML 文章标签： xslt xsl stylesheet vbscript xml user

本文链接：https://blog.youkuaiyun.com/ztmaster/article/details/564284

版权

XML 专栏收录该内容

0 篇文章

订阅专栏

最近开始学习XML，对于XML的格式化用XSLT来实现还是不错的，这样在要展示的页面上只须加载XML和XSLT文件的关联即可，要修改样式也不用跑到展示页面了，直接在XSLT里修改即可。不过XSLT用起来不是太顺手，和一般的编程习惯有所不同，但实现却是简单的。以下是我在项目中做的一个XSLT模版，用做读取显示XML的标题链接，并用vbscript来截取指字长度的字符串（中文按2字数计，英文按1字数计。）

<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="test"
exclude-result-prefixes="msxsl user">

<xsl:output method="html"/>
<msxsl:script language="VBscript" implements-prefix="user">
Function cutstr(txt,length)
txt=trim(txt)
x=len(txt)
y=0
if x>=1 then
for ii=1 to x
acctemp=asc(mid(txt,ii,1))
if (acctemp>255) or (0>acctemp) then '此处因为小于号要做特殊处理，故交换顺序后直接用大于号来得方便
   y=y+2
else
   y=y+1
end if
if y>=length then
     txt=left(trim(txt),ii)
exit for
end if
next
   cutstr=txt
else
   cutstr=""
end if
End Function
</msxsl:script>

<xsl:template match="/">
  <xsl:apply-templates select="rss/channel/item[importance=1]"/>
</xsl:template>
<xsl:template match="rss/channel/item">
  <xsl:if test="position()<=6">
   <li>
    <span class="middate">
    [<xsl:value-of select="concat(substring(pubDate,6,2),'/',substring(pubDate,9,2))"/>]
    </span>
    <a href="{link}" title="{title}" target="_blank">
<xsl:value-of select="user:cutstr(string(title),34)" />
    </a>
   </li>
  </xsl:if>
</xsl:template>
</xsl:stylesheet>

注：XML文件略