nc_slide.xslt

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· XSLT 代码 · 共 141 行

<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/xsl/transform" >
<xsl:output method="xml" omit-xml-declaration = "yes" indent="yes" version="4.0"/>
	<!--
	copyright (c) 2003-2006 gnet.com.cn. all rights reserved.
	software：newcloud site management system
	web: http://www.gnet.com.cn/,http://www.newasp.cn/
	email: [e-mail]	qq：19988567
	-->
<xsl:variable name="slidetype" select="xml/setting/@slidetype"/><!--设置幻灯片类型,1=flash,2=vbscript-->
<xsl:variable name="myscript">
<![cdata[
	document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
	document.write('<param name="allowscriptaccess" value="samedomain"><param name="movie" value="'+swf_path+'images/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#ffffff">');
	document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
	document.write('<param name="flashvars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
	document.write('<embed src="'+swf_path+'images/pixviewer.swf" wmode="opaque" flashvars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowscriptaccess="samedomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
	document.write('</object>');
]]>
</xsl:variable>
<xsl:variable name="myvbscript">
<![cdata[
filelistarr = split(filelist,"|")
linkarr = split(linklist,"|")
txtlistarr = split(txtlist,"|")

canplay = cint(split(split(navigator.appversion,";")(1)," ")(2))>5

filterstr = "revealtrans(duration=2,transition=23)"
filterstr = filterstr + ";blendtrans(duration=2)"
if canplay then
	filterstr = filterstr + ";progid:dximagetransform.microsoft.fade(duration=2,overlap=0)"
	filterstr = filterstr + ";progid:dximagetransform.microsoft.wipe(duration=3,gradientsize=0.25,motion=reverse)"
else
	msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为ie5.5或以上版本，否则您将只能看到部分的切换效果。",64
end if

filterarr = split(filterstr,";")

playimg_m = 5 * 1000  

i = 1

sub changeimg()
	do while filelistarr(i)=""
		i = i + 1
		if i>ubound(filelistarr) then i = 0
	loop
	dim j
	if i>ubound(filelistarr) then i = 0
	randomize
	j = int(rnd * (ubound(filterarr)+1))
	img.style.filter = filterarr(j)
	img.filters(0).apply
	img.src = filelistarr(i)
	img.filters(0).play
	link.href = linkarr(i)
	i = i + 1
	if i>ubound(filelistarr) then i = 0
	tempimg.src = filelistarr(i)
	templink.href = linkarr(i)
	settimeout "changeimg", playimg_m,"vbscript"
end sub
]]>
</xsl:variable>
<xsl:variable name="slidetxtlist">
	<xsl:value-of select="xml/slide[@slideid=1]/@title" disable-output-escaping="yes"/><xsl:for-each select="xml/slide[@slideid!=1]">|<xsl:value-of select="@title" disable-output-escaping="yes"/></xsl:for-each>
</xsl:variable>
<xsl:variable name="slidepiclist">
	<xsl:value-of select="xml/slide[@slideid=1]/@picurl" disable-output-escaping="yes"/><xsl:for-each select="xml/slide[@slideid!=1]">|<xsl:value-of select="@picurl" disable-output-escaping="yes"/></xsl:for-each>
</xsl:variable>
<xsl:variable name="slidelinklist">
	<xsl:value-of select="xml/slide[@slideid=1]/@url" disable-output-escaping="yes"/><xsl:for-each select="xml/slide[@slideid!=1]">|<xsl:value-of select="@url" disable-output-escaping="yes"/></xsl:for-each>
</xsl:variable>
<xsl:variable name="classid" select="xml/@classid"/>
<xsl:variable name="maxpic" select="xml/setting/@maxpic"/>
<xsl:variable name="maxlen" select="xml/setting/@maxlen"/>
<xsl:variable name="channelid" select="xml/setting/@channelid"/>
<xsl:template  match="/">
	<xsl:choose>
		<xsl:when test="$slidetype='1'">
			<xsl:call-template name="slidecode1"/>
		</xsl:when>
		<xsl:when test="$slidetype='2'">
			<xsl:call-template name="slidecode2"/>
		</xsl:when>
	<xsl:otherwise>
		<xsl:call-template name="slidecode1"/>
	</xsl:otherwise>
	</xsl:choose>
</xsl:template>

<xsl:template name="slidecode1">
	<script type="text/javascript">
	var focus_width=<xsl:value-of select="xml/setting/@width" disable-output-escaping="yes"/>
	var focus_height=<xsl:value-of select="xml/setting/@height" disable-output-escaping="yes"/>
	var text_height=<xsl:value-of select="xml/setting/@text_height" disable-output-escaping="yes"/>
	var swf_path='<xsl:value-of select="xml/setting/@path" disable-output-escaping="yes"/>';
	var swf_height=focus_height+text_height
	
	var pics='<xsl:value-of select="$slidepiclist" disable-output-escaping="yes" />';
	var links='<xsl:value-of select="$slidelinklist" disable-output-escaping="yes" />';
	var texts='<xsl:value-of select="$slidetxtlist" disable-output-escaping="yes" />';
	<xsl:value-of select="$myscript" disable-output-escaping="yes" />
	</script>
</xsl:template>
<xsl:template name="slidecode2">
<script language="vbscript">
dim filelist,filelistarr,txtlist,txtlistarr,linklist,linkarr
dim canplay,filterstr,filterarr,playimg_m,i

filelist = "<xsl:value-of select='$slidepiclist' disable-output-escaping='yes' />"
linklist = "<xsl:value-of select='$slidelinklist' disable-output-escaping='yes' />"
txtlist = "<xsl:value-of select='$slidetxtlist' disable-output-escaping='yes' />"
<xsl:value-of select="$myvbscript" disable-output-escaping="yes" />
</script>
<xsl:if test="xml/setting">
	<table width="100%" height="100%" border="0" cellspacing="6" cellpadding="0">
		<tr id="noscript">
			<td align="center" style="color:white">对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。</td>
		</tr>
		<tr style="display:none" id="canrunscript">
			<td height="100%" align="center" valign="center"><a id="link" target="_blank"><img id="img" width="{xml/setting/@width}" height="{xml/setting/@height}" border="0" /></a></td>
		</tr>
		<tr style="display:none">
			<td><a id="templink" target="_blank"><img id="tempimg" border="0" /></a></td>
		</tr>
	</table>
</xsl:if>
<script language="vbscript">
noscript.style.display = "none"
canrunscript.style.display = ""
img.src = filelistarr(0)
link.href = linkarr(0)
settimeout "changeimg", playimg_m,"vbscript"
</script>
</xsl:template>
<xsl:template name="slidecode3">

</xsl:template>
</xsl:stylesheet>