test.asp

客户管理系统使用ASP.NET和Access

<!--#include file="conn.asp"-->
<table border="1" cellpadding="0" cellspacing="0" >
<%
    set rs=server.CreateObject("adodb.recordset")
    sql="select top 8 * from KH order by uptime desc "
    rs.open sql,conn,1,1
    If rs.bof And rs.eof Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td>表没内容</td></tr>
</table>
<% Else
    Do While Not rs.eof   
%>
<tr >
<%
     for i=1 to 4   '设定显示的列数 

%>
    <td align="left" valign="middle">
    <%=rs("Company")%>
<% 
rs.movenext
%>   
    </td>
<%   
   Next
   Loop
End If 
rs.close
set rs=nothing
%> 
</tr>
</table>