UC知道图片滚动播放
来源：百度知道 编辑：UC知道 时间：2024/06/19 17:09:32
以下是新闻系统调用一张图片
<%
sql="select top 1 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="info.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="info.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
<%
else
response.write "<t
<%
sql="select top 1 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="info.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="info.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
<%
else
response.write "<t
希望有所帮助
<%
Set Rs = server.CreateObject("adodb.recordset")
sql="select top 10 a.BizId,a.BuyClass,a.DateAndTime,a.ProductName,a.ProductPic from BizTbl a,UserTbl b where b.UserPower=5 and b.UserName=a.UserName and a.ProductPic<>'' and a.PicHot=1 order by a.BizId desc"
Rs.open sql, conn, 1, 1
If Not(Rs.bof and Rs.EOF) Then
i=1
do while not rs.eof
%>
<a href="info.asp?id=<%=rs(0)%>"><img src="uppic/<%=trim(rs("firstImageName"))%>" width="85" height="80" border="0"></a>
<%
if i mod 5=0 then
response.write("<br>")
end if
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
%>
把你的代码换成这个 当然先备份一下你的
<div id="demo" style="overflow:hidden;width:567px;color:#ffffff;">
<tabl