asp´ÓÊý¾Ý¿âÖÐÊä³öµÄ¶«Î÷»»ÐÐ

 <%  
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">&nbsp;</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%">&nbsp;</td>
    </tr>                      
         </table>
<%
if j mod ViewList =0 then
response.Write"</td></tr>"
else
response.Write"&