杭州交通信息网遥领台湾:如何用XSL格式化XML文本
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/09 09:32:23
<rss version="2.0">
<channel>
<pubDate>Fri, 16 Jun 2006 23:30:58 GMT</pubDate>
</channel>
</rss>
需要用XSL格式化pubDate为2006年6月16日 23:30:58，不知道怎么写！
<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="UserCode">
<xsl:output method="html" encoding="GB2312" omit-xml-declaration="yes"/>
<msxsl:script language="VBScript" implements-prefix="user">
<![CDATA[
Function FormatDate(str1)
Dim regEx,patrn,replStr
patrn="(?:[^,]*, )*(\d*) (\S*) (\d*) (\d*\:\d*\:\d*)(?:.*)"
replStr="$3年$2月$1日 $4"
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=True
FormatDate=regEx.Replace(str1.item(0).text,replStr)
montharray=split("|Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec","|")
for countmonth=1 to 12
FormatDate=Replace(FormatDate,montharray(countmonth),countmonth)
next
End Function
]]>
</msxsl:script>
<xsl:template match="/">
<xsl:value-of select="user:FormatDate(//channel/pubDate)" />
</xsl:template>
</xsl:stylesheet>