第2个回答 2006-03-24
连接数据库
<%startime=timer()
db="数据库名"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
连接表
<%
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from 表名 "
Rs.Open SqlStr,conn,1,1
%>
循环
<%
do where not rs.eof
%>
<table><tr><td><%=rs("要显示的字段名")%></td></tr></table>
<%
rs.MoveNext
loop
%>