图片右侧循环滚动

最新推荐文章于 2024-09-24 15:19:32 发布

转载最新推荐文章于 2024-09-24 15:19:32 发布 · 235 阅读

文章标签：

#border #function #table #file #div

Javascript 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一段使用 ASP 实现的图文滚动展示代码。该代码通过动态获取数据库中的图片和标题，并将其显示在一个滚动区域中。文章详细解释了代码的每一部分，包括如何设置图片和文本的布局。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%
Const New_img=14
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from culturek Order BY paixu asc"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='overflow:hidden;height:110px;width:934px;'>
<table align='center' cellpadding='0' cellspace='0' border='0'>
<tr>
    <td id='demo1' valign='top'>
        <table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
        <tr valign='top'>
    <%
    while not rs_Product.EOF
    fileExt=lcase(getFileExtName(rs_Product("counter")))
    %>
            <td align='center'>
                <TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
                <TR>
                    <TD width=8 rowspan=3 > </TD>
                    <TD vAlign=top width=8><img src='Images/bg_0ltop.gif' width=10 height=10></TD>
                    <TD background=file:///E|/webFinish/wwwroot/images/bg_01.gif></TD>
                    <TD vAlign=top width=7><img src='Images/bg_0rtop.gif' width=10 height=10></TD>
                    <TD width=7 rowspan=3 vAlign=top> </TD>
                </TR>
                <TR>
                    <TD background='Images/bg_03.gif'> </TD>
                    <TD align="center" bgcolor="#FFFFFF">
                        <a href='Guardshow.asp?id=<%=rs_Product("id")%>' target=_blank title='<%=rs_Product("title")%>'>

                            <img border="0" height="65" src="<%if rs_Product("counter")="" then%>Img/nopic.gif<%else%><%=rs_Product("counter")%><%end if%>" width="139" alt="<%=rs_Product("title")%>">
        </a>

                </TD>
                <TD background='Images/bg_04.gif'> </TD>
                </TR>
                <TR>
                    <TD><img src='Images/bg_0lbottom.gif' width=10 height=3></TD>
                    <TD><img src='Images/bg_02.gif'></TD>
                    <TD><img src='mages/bg_0rbottom.gif' width=10 height=3></TD>
            </TR>
            <TR>
                <TD> </TD>
                    <TD colspan=3 align="center" height=25 valign='top' background='Images/bg_05.gif'>
                    <%=rs_Product("title")%>
                     </TD>
                     <TD> </TD>
                </TR>
             </TABLE>
            </td>
    <%
    rs_Product.MoveNext
    wend
    %>
        </tr>
        </table>
    </td>
    <td id=demo2 valign=top></td>
</tr>
</table>
</div>
   <%if New_img >5 then%>
<script>
var Picspeed=15
demo2.innerHTML=demo1.innerHTML
function Marquee1(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar1=setInterval(Marquee1,Picspeed)
demo.onmouseover=function() {clearInterval(MyMar1)}
demo.onmouseout=function() {MyMar1=setInterval(Marquee1,Picspeed)}
</script>
    <%end if
else
    Response.Write "暂无最新图文"
end if
rs_Product.close
set rs_Product=nothing
%>