一页上显示多个图片自动切换
2007-09-24 23:51
337 查看
<%
dim i,j,pic,pagenum
if cint(request("id"))<=0 then
sql="select * from news where type=0 order by orders,id desc"
else
sql="select * from news where id="&cint(request("id"))
end if
rs.open sql,conn,1,1
rs.pagesize=5
if cint(request("page"))>rs.pagecount or cint(request("page"))<=0 then
pagenum=1
else
pagenum=cint(request("page"))
end if
i=0
rs.move (pagenum-1)*rs.pagesize
do while not (rs.eof or i>=rs.pagesize)
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td><hr style="height:1px"></td></tr>
<tr><td>
<%
response.write "<b>"&rs("title")"</b>"
sql="select * from newspic where parent="&rs("id")" order by orders,id desc"
rs2.open sql,conn,1,1
if not rs2.eof then
response.write "<script language=JavaScript>"
response.write "var imgUrl"&cint(i+1)"=new Array();"
response.write "var imgLink"&cint(i+1)"=new Array();"
response.write "var text"&cint(i+1)"=new Array();"
response.write "var adNum"&cint(i+1)"=0;"
response.write "var i"&cint(i+1)"=0;"
j=0
do while not rs2.eof
j=j+1
response.write "imgUrl"&cint(i+1)"["&j"]=""../pic/"&rs2("pic")""";"
response.write "imgLink"&cint(i+1)"["&j"]=""../pic/"&rs2("pic")""";"
response.write "text"&cint(i+1)"["&j"]="""";"
rs2.movenext
loop
response.write "var imgPre"&cint(i+1)"=new Array();"
response.write "var j"&cint(i+1)"=0;"
response.write "for (i"&cint(i+1)"=1;i"&cint(i+1)"<="&j";i"&cint(i+1)"++) {"
response.write " if( (imgUrl"&cint(i+1)"[i"&cint(i+1)"]!='') && (imgLink"&cint(i+1)"[i"&cint(i+1)"]!='') ) {"
response.write " j"&cint(i+1)"++;"
response.write " } else {"
response.write " break;"
response.write " }"
response.write "}"
response.write "function playTran"&cint(i+1)"(){"
response.write " if (document.all)"
response.write " imgInit"&cint(i+1)".filters.revealTrans.play();"
response.write "}"
response.write "var key"&cint(i+1)"=0;"
response.write "function nextAd"&cint(i+1)"(){"
response.write " if(adNum"&cint(i+1)"<j"&cint(i+1)")adNum"&cint(i+1)"++ ;"
response.write " else adNum"&cint(i+1)"=1;"
response.write " if( key"&cint(i+1)"==0 ){"
response.write " key"&cint(i+1)"=1;"
response.write " } else if (document.all){"
response.write " imgInit"&cint(i+1)".filters.revealTrans.Transition=23;"
response.write " imgInit"&cint(i+1)".filters.revealTrans.apply();"
response.write " }"
response.write " document.images.imgInit"&cint(i+1)".src=imgUrl"&cint(i+1)"[adNum"&cint(i+1)"];"
response.write " playTran"&cint(i+1)"();"
response.write " theTimer=setTimeout(""nextAd"&cint(i+1)"()"", 4000);"
response.write "}"
response.write "function goUrl"&cint(i+1)"(XXX){"
response.write " jumpUrl"&cint(i+1)"=imgLink"&cint(i+1)"[adNum"&cint(i+1)"];"
response.write " jumpTarget"&cint(i+1)"='_blank';"
response.write " if (jumpUrl"&cint(i+1)" != ''){"
response.write " if (jumpTarget"&cint(i+1)" != '') "
response.write "{var newwin"&cint(i+1)";"
response.write "newwin"&cint(i+1)" = window.open('text.htm','_blank','location=0,status=0,toolbar=0,menubar=0,scrollbars=auto,directories=0,resizable=0,width=500,height=300,center=1');"
response.write "newwin"&cint(i+1)".document.writeln('<html><title>pic</title><body oncontextmenu=window.event.returnValue=false bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0><img src='+XXX+' width=500 height=300></body></html>');}"
response.write " else "
response.write " location.href=jumpUrl"&cint(i+1)";"
response.write " }"
response.write "}</script>"
%>
</td></tr>
<tr><td>
<a href="#" onClick="javascript:goUrl<%=cint(i+1)%>(imgLink<%=cint(i+1)%>[adNum<%=cint(i+1)%>])"><img style="float:<% if rs("click")=0 then response.write "left" else response.write "right" end if %>;FILTER: revealTrans(duration=2,transition=20);border-color:#000000;border-width:1px;margin:8px" src="javascript:nextAd<%=cint(i+1)%>()" name=imgInit<%=cint(i+1)%>></a>
<%
else
response.write "<br>"
end if
response.write rs("text")
%>
</td></tr>
</table>
<%
rs2.close
i=i+1
rs.movenext
loop
%>
相关文章推荐
- 01.LoT.UI 前后台通用框架分解系列之——小图片背景全屏显示(可自动切换背景)
- jquery 实现横向滑动自动切换源码(同时显示多张图片)
- JS图片滤镜 焦点图片自动切换显示效果丨芯晴网页特效
- javascript实现图片自动和可控的轮播切换特效
- 一、图片轮换手动和自动显示
- ScrollView+ViewPager(上下滚动+自动切换图片)
- 图片自动切换+链接
- MacOS X自动切换是否显示所有隐藏文件和文件夹
- li内文字超出隐藏,不允许出现半汉字截断,超出后仍显示new图片,小于宽度自动跟随
- javascript DOM(2) 一个网页上切换显示不同的图片或文本
- 自动切换图片功能
- 带左右箭头切换的自动滚动图片JS特效
- 图片自动切换
- jQuery实现图片与文字描述左右滑动自动切换的方法
- 网易新闻首页的实现,可以添加,移除标签,自动滚动图片,无限左右切换图片
- 博客园自动把图片缩小显示的解决方法
- 转载(一段非常简单的让图片自动切换js代码)
- 自定义ViewPager实现图片自动切换
- Joomla!用caption.js自动显示图片的简短描述 【转】
- C#(WPF)按钮图片不显示,壁纸切换功能