热门专题:行业资讯
asp制作常见flash新闻图片轮换代码
作者:IT社区   发布日期:   2010-05-15来源: 字号: [] [] []
简 介:
这是一个正常的网页文件
html>


<FONT face=Verdana>新闻图片轮换</FONT>





     任何网页只要调用下面这个文件(diaoyong.asp)就可以了,所用flash文件在附件里面。
<%
新闻图片轮换
Db="../Data/Data.Asp"
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr
sql="select top 5 * from [Music_List_Tupian_System] where IswNumsSex=’轮换图片’ order by IswNumsID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
k=1
Num_total=rs.recordcount
for i=1 to 5
if i>Num_total then exit for
if i=1 then
imgUrl11="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext11= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext11=rs("IswNumsUser")
 end if
imgLink11=rs("IswNumsClass")
end if
if i=2 then
imgUrl22="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext22= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext22=rs("IswNumsUser")
 end if
imgLink22=rs("IswNumsClass")
end if
if i=3 then
imgUrl33="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext33= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext33=rs("IswNumsUser")
 end if
imgLink33=rs("IswNumsClass")
end if
if i=4 then
imgUrl44="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext44= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext44=rs("IswNumsUser")
 end if
imgLink44=rs("IswNumsClass")
end if
if i=5 then
imgUrl55="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext55= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext55=rs("IswNumsUser")
 end if
imgLink55=rs("IswNumsClass")
end if
rs.movenext
k=k+1
next
else
response.write "暂时没有数据!"
end if
%> 

  
 
imgUrl1="<%=imgUrl11%>"; 
imgtext1="<%=imgtext11%>" 
imgLink1=escape("<%=imgLink11%>"); 
imgUrl2="<%=imgUrl22%>"; 
imgtext2="<%=imgtext22%>" 
imgLink2=escape("<%=imgLink22%>"); 
imgUrl3="<%=imgUrl33%>"; 
imgtext3="<%=imgtext33%>" 
imgLink3=escape("<%=imgLink33%>"); 
imgUrl4="<%=imgUrl44%>"; 
imgtext4="<%=imgtext44%>" 
imgLink4=escape("<%=imgLink44%>"); 
imgUrl5="<%=imgUrl55%>"; 
imgtext5="<%=imgtext55%>" 
imgLink5=escape("<%=imgLink55%>"); 
var focus_width=200 
 var focus_height=160 
 var text_height=18 
 var swf_height = focus_height+text_height 
 <%if Num_total=1 then%> 
 var pics=imgUrl1 
 var links=imgLink1 
 var texts=imgtext1 
 <%elseif Num_total=2 then%> 
 var pics=imgUrl1+"|"+imgUrl2 
 var links=imgLink1+"|"+imgLink2 
 var texts=imgtext1+"|"+imgtext2 
 <%elseif Num_total=3 then%> 
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3 
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3 
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3 
 <%elseif Num_total=4 then%> 
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4 
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4 
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4 
 <%elseif Num_total=5 then%> 
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4+"|"+imgUrl5 
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4+"|"+imgLink5 
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4+"|"+imgtext5 
 <%end if%> 
  
 document.write(’’); 
 document.write(’’); 
 document.write(’’); 
 document.write(’’); 
 document.write(’’);  document.write(’’); 
  
 

【上一篇】: 没有了哦    【下一篇】: Asp出错信息汇总及分析(有关数据库)
// 用户登录
百容建站 - google - 百度
共同关注 - 网页制作 - 行业资讯 - 图文资讯 - 关于我们
模版制作电话:15939900631
Copyright © 2010-2012 www.yugps.cn, All Rights Reserved Powered by SiteServer CMS