<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='家装课堂' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=15
for j=1 to rs.PageSize
ViewList=3
%>
<td width="33%">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="5%" height="27"> </td>
<td width="5%" valign="middle" style="border-bottom:1px dotted #9b7022;"><img src="images/a.gif" width="9" height="9"/></td>
<td width="85%" align="left" valign="middle" style="border-bottom:1px dotted #9b7022;"><div align="left" style="margin-left:5px;"><a href="shownews.asp?id=<%= RS("id") %>&BigClass=<%=RS("BigClassName")%>" target="_blank" title="<%= RS("TITLE") %>"><%=cutstr (rs("title"),15)%></a></div></td>
<td width="5%"> </td>
</tr>
</table>
<%
if j mod ViewList =0 then
response.Write"</td></tr>"
else
response.Write"&
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......
