这段代码是显示动态图片的滚动,可图片虽然在循环,却不连接,是断开的,请教各位,应该怎样修改其中的代码才能使图片连续循环滚动?
<link href="../../style.css" rel="stylesheet" type="text/css"> <!--#include file="../../siteinfo1.asp"-->
<%
sql= "SELECT id,LPattern,LName,LPrice,LPH,LManufacturer,LAddtime FROM Products where LCommend=true and LPutout=true ORDER BY id DESC"
kingstr="推荐产品"
%>
<%
Response.Write"<table border='0' align='center' cellpadding='2' cellspacing='0'>"
'Dim ipagecount
'Dim ipagecurrent
'Dim strorderBy
'Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
'sql = "SELECT LPattern,LName,id,LPrice,LPH,LManufacturer,LAddtime FROM Products where LPutout=true ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 4
rs.cachesize = 4
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
Response.Write"<tr><td align='center'><font color='#0000ff'>暂无产品记录!</font></td></tr>"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
Response.Write"<tr align='left'>"
do while irecordsshown<4 and NOT rs.EOF
Response.Write "<td style='1px solid; font-size: 8pt;'>"
Response.Write"<table align=center border=0 cellpadding=1 cellspacing=0 ><tr><td><a href='cpzs/display.asp?id="&rs("id")&"' target='_blank'><img src="&rs("LPattern")&" border='0' width=135 height=100 >"
Response.Write"</a></tr><tr><td align='center'><font size=2><a href='cpzs/display.asp?id="&rs("id")&"' target='_blank'>"&rs("LName")&"</a></font></td></tr></table></td>"
irecordsshown = irecordsshown +1
rs.movenext
loop
Response.Write"</tr>"
end if
rs.Close
set rs=nothing
Response.Write"</table>"
ProductsShu=4
%>