高分求一个ASP+ACC 带后台的图片循环滚动代码 不是首页幻灯片的那种
高分求一个ASP+ACC带后台的图片循环滚动代码不是首页幻灯片的那种就是那种单列的图片展示,网站已经有了,就缺少这个功能想添加所以求一个有后台可以管理添加的前台可以显示的...
高分求一个ASP+ACC 带后台的图片循环滚动代码 不是首页幻灯片的那种 就是那种单列的图片展示,网站已经有了,就缺少这个功能 想添加 所以求一个有后台可以管理添加的 前台可以显示的滚动图片代码 应该包括:PIC.ASP(图片展示) PIC_ADD.ASP(图片添加) PIC_DEL.ASP(图片删除) PIC_MANAGE.ASP(图片管理) XX.MDB(后台数据) conn.asp...之类的云云(以上我只是举例 但功能是要有的) 应该明白我说的吧 我要的不是单纯前台显示代码 我要的是可以在后台添加 修改 管理 前台显示的代码 (就像投票系统一样 我把这个功能放在我的网站上 然后可以在后台修改一样)..有的话请发到我的邮箱zshmxbf@163.com
小弟不胜感激. 展开
小弟不胜感激. 展开
3个回答
展开全部
只能提供前台的了,后台那些太多了.....
<div id="pro" style="overflow:hidden;height:auto;width:790px">
<table width="880" border="0" cellspacing="0" cellpadding="0">
<tr>
<td id="pro1" valign="top"><table border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="300" align="center" valign="top"><table width="880" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
'读取数据库
sql = "select top 14 * from pro order by id desc"
Set Rs = server.createobject("adodb.recordset")
Rs.open sql,conn,1,1
dim i
i = 1
while not rs.eof
%>
<td width="129" height="155" align="left" valign="top"><table width="120" border="0" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF" class="protbborder">
<tr>
<td height="120" align="center" valign="middle" bgcolor="#FFFFFF">
<img src="admin/upload/<%=rs("Thumbnails")%>" width="116" height="120" border="0" />
</td>
</tr>
<tr>
<td height="23" align="center" valign="middle" bgcolor="#F5F5F5"><%=rs("title")%></td>
</tr>
</table></td>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs=nothing
%>
</tr>
</table></td>
</tr>
</table></td>
<td id="pro2" valign="top"> </td>
</tr>
</table>
</div>
<script>
var speed=40
pro2.innerHTML=pro1.innerHTML
function Marquee(){
if(pro1.offsetWidth-pro.scrollLeft<=0)
pro.scrollLeft-=pro1.offsetWidth
else{
pro.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
pro.onmouseover=function() {clearInterval(MyMar)}
pro.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
<div id="pro" style="overflow:hidden;height:auto;width:790px">
<table width="880" border="0" cellspacing="0" cellpadding="0">
<tr>
<td id="pro1" valign="top"><table border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="300" align="center" valign="top"><table width="880" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
'读取数据库
sql = "select top 14 * from pro order by id desc"
Set Rs = server.createobject("adodb.recordset")
Rs.open sql,conn,1,1
dim i
i = 1
while not rs.eof
%>
<td width="129" height="155" align="left" valign="top"><table width="120" border="0" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF" class="protbborder">
<tr>
<td height="120" align="center" valign="middle" bgcolor="#FFFFFF">
<img src="admin/upload/<%=rs("Thumbnails")%>" width="116" height="120" border="0" />
</td>
</tr>
<tr>
<td height="23" align="center" valign="middle" bgcolor="#F5F5F5"><%=rs("title")%></td>
</tr>
</table></td>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs=nothing
%>
</tr>
</table></td>
</tr>
</table></td>
<td id="pro2" valign="top"> </td>
</tr>
</table>
</div>
<script>
var speed=40
pro2.innerHTML=pro1.innerHTML
function Marquee(){
if(pro1.offsetWidth-pro.scrollLeft<=0)
pro.scrollLeft-=pro1.offsetWidth
else{
pro.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
pro.onmouseover=function() {clearInterval(MyMar)}
pro.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
js实现呀大哥
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询