- 博客(0)
- 资源 (2)
空空如也
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
%>
2009-03-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人