<%
dim rs
set Rs=server.CreateObject("ADODB.RecordSet")
'if id<>"" then
'sql="select * from product where id="&id
'else
sql="select * from product where typeid=447 order by Id desc"
'end if
Rs.Open sql,conn,1,1
if rs.eof then
response.write "<tr><td align=center>目前还没有内容。<br></td></tr>"
else
rs.pagesize=5
'顯示10條信息
ipage=clng(request("page"))
'response.write ipage
if ipage<=0 then
ipage=1
end if
if ipage>=rs.pagecount then
ipage=rs.pagecount
end if
rs.absolutepage=ipage
rowcount=rs.pagesize
do while not rs.eof and rowcount>0
if rowcount>8 then
end if
%>
<tr>
<td width="47%" valign="top" class="biank">
<% if not Rs.eof then%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" class="t1Copy2"><a href="products_detail.asp?id=<%=Rs("id")%>&fid=<%=Rs("typeid")%>" class="t5" style="cousor:hand;"><img id="Main_Img" src="<%if Rs("Main_Img") <> "" then
response.Write(replace(Rs("Main_Img"),"../../upimages","manage/upimages"))
else
response.Write("images/nopic_e.jpg")
end if%>" border="0" width="90"></a></td>
</tr>
</table>
<table width="95%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td class="t1Copy2"><span class="biankCopy"><span class="t7"><%=Rs("no")%></span></span> </td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td height="120" colspan="3"><span class="biank">
<%
rs.movenext()
rowcount=rowcount-1
loop
%>
为什么还是错误显示缺少DO
