test3.asp

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

<!--#include file="conn.asp"-->

<table align="center" cellpadding="0" cellspacing="0" border="0" width="779"> 
<% 
set rs=server.CreateObject("ADODB.Recordset") 
sql="select * from KH order by uptime desc"'定义SQL语句
rs.open sql,conn,1,1
on error resume next

Dim intCount 
intCount=0 
While Not rs.eof 
intCount=intCount+1 
If intCount mod 2 <>0 Then 
response.write "<tr>" 
End If 
%><td height=20> 
<%=rs("id")%></td> 
<td><%=rs("Company")%></td> 
<% 

If intCount mod 2 <>0 Then 
response.write "</tr>" 
End If 
rs.movenext 
wend %></table>