📄 wmcms_flash.asp

📁 完美政府版,正版网站解决方案
💻 ASP
字号:
<!--#include file="function.asp"-->
<!--完美政府网站管理系统FLASH动态幻灯片-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="完美设计网络科技有限公司 http://www.wmgov.cn">
<title><%=jjgn%>&#23436;&#32654;&#35774;&#35745;&#32593;&#32476;&#31185;&#25216;&#26377;&#38480;&#20844;&#21496;&#32;&#23436;&#32654;&#25919;&#24220;&#32593;&#31449;&#31649;&#29702;&#31995;&#32479;&#32;&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#119;&#119;&#119;&#46;&#119;&#109;&#103;&#111;&#118;&#46;&#99;&#110;</title>
<LINK href=news.css rel=stylesheet>
<link rel="Shortcut Icon" href="ft.ico"><!--IE地址栏前换成自己的图标--> 
<link rel="Bookmark" href="ft.ico"><!--可以在收藏夹中显示出你的图标-->

<%
dim pics1,texts1,links1  
set rs3=server.CreateObject("ADODB.RecordSet") 
rs3.Source="select top 5 *  from "& db_News_Table &" where picnews=1 and goodnews=1 and checkked=1 and picname is not null order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1   
do while not rs3.eof    
links1=links1&"Article.asp?newsid="&rs3("Newsid")&"|"      
pics1=pics1&"uploadfile/"&rs3("picname")&"|"   
texts1=texts1&left(trim(rs3("title")),18)&"..."&"|"
'此处［上面的texts1=texts1&left(trim(rs3("title")),17)&"|"]语名，控制FLASH下面标题的字数，如需添加或减少，只需修改１７这个数字即可，下面做注释的为原语句，不限数字.
'texts1=texts1&rs3("title")&"|"  
    
rs3.movenext 
loop  
rs3.close 
if instr(right(links1,1),"|")>0 then  
links1=left(links1,len(links1)-1)  
texts1=left(texts1,len(texts1)-1) 
pics1=left(pics1,len(pics1)-1)  
end if
%> 

<table width="237" height="211" border="0" cellpadding="3" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse" >
<tr>										
<TD>
<script type="text/javascript">
var pics="<%=pics1%>" 
var links="<%=links1%>"
var texts="<%=texts1%>"

var focus_width=220
var focus_height=180
var text_height=20
var swf_height = focus_height+text_height
document.write('<object ID="focus_flash" 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="./images/focus.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 ID="focus_flash" src="./images/focus.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#FF0000" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
//-->
</script></TD>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -