ASP网页幻灯片代码另类
是SWF <% set rs= Server.CreateObject("adodb.recordset") sql = "select Top 5 * From News Where ClassID=5 or D_Picture<>0 OrDer By ID Desc" Rs.Open SQL,conn,1,1 Response.Write "<SCRIPT language=JavaScript>" Response.Write "function topimg(simg)" Response.Write "{" Response.Write "var strimg=simg;" Response.Write "var strimg1="""";" Response.Write "var strimg2="""";" Response.Write "var strimg3="""";" Response.Write "var allstrimg="""";" Response.Write "if (strimg.length>30)" Response.Write "{" Response.Write "strimg1=strimg.substring(0, 30);" Response.Write "allstrimg=strimg1 + ""......"";" Response.Write "}" Response.Write "if (strimg.length<=30)" Response.Write "{" Response.Write "allstrimg=strimg;" Response.Write "}" Response.Write "return allstrimg;" Response.Write "}" Response.Write "var focus_width=220;" Response.Write "var focus_height=160;" Response.Write "var text_height=22;" Response.Write "var links="""";" Response.Write "var pics="""";" Response.Write "var texts="""";" Response.Write "var imgUrl=new Array();" Response.Write "var imgLink=new Array();" Response.Write "var imgTz=new Array();" Response.Write "var adNum=0;" Response.Write "var kk = 0;" Response.Write "var swf_height = focus_height+text_height;" Response.Write "pics = ''"&rs("D_Picture")&"'';" Response.Write "links = ''MoreList.asp?ClassID=5&ID="&rs("ID")&"'';" Response.Write "texts = ''<center>'' + topimg(''"&rs("Title")&"'') + ''</center>'';" Do While Not Rs.Eof Response.Write "imgUrl[kk] = ''|"&rs("D_Picture")&"'';" Response.Write "imgLink[kk] = ''|MoreLis.asp?ClassID=5&ID="&rs("ID")&"'';" Response.Write "imgTz[kk] = ''|<center>'' + topimg(''"&rs("Title")&"'') + ''</center>'';" Response.Write "kk++;" Rs.MoveNext Loop Response.Write "for (i=1;i<=4;i++) {" Response.Write "pics = pics + imgUrl[i];" Response.Write "links =links + imgLink[i];" Response.Write "texts = texts + imgTz[i];" Response.Write "}" Response.Write "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 +''"">'');" Response.Write "document.write(''<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""images/Slideviewer.swf""><param name=""quality"" value=""high""><param name=""bgcolor"" value=""#F0EFEF"">'');" Response.Write "document.write(''<param name=""menu"" value=""false""><param name=wmode value=""opaque"">'');" Response.Write "document.write(''<param name=""FlashVars"" value=""pics=''+pics+''&links=''+links+''&texts=''+texts+''&borderwidth=''+focus_width+''&borderheight=''+focus_height+''&textheight=''+text_height+''"">'');" Response.Write "document.write(''<embed src=""images/Slideviewer.swf"" wmode=""opaque"" FlashVars=""pics=''+pics+''&links=''+links+''&texts=''+texts+''&borderwidth=''+focus_width+''&borderheight=''+focus_height+''&textheight=''+text_height+''"" menu=""false"" bgcolor=""#F0EFEF"" quality=""high"" width=""''+ focus_width +''"" height=""''+ focus_height +''"" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />'');" Response.Write "document.write(''</object>'');" Response.Write "</SCRIPT>" rs.close set rs=nothing %>
- 1
- whb9512013-11-24下载后就一个flash文件,无源码。
- dengchangchun2012-10-06ie10,也就是win8和server 2012下测试有点小问题。
- 粉丝: 2
- 资源: 2
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助