程序代码:'建立数据库连接
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
'获取数据集
<%
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from user",conn,0,1
%>
'显示数据
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% do while not rs.eof %>
<tr>
<td><%=rs("userid")%></td>
<td><%=rs("username")%></td>
<td><%=rs("userpswd")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
'关闭数据集和连接
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这是一个简易的显示表中记录页面,<table><tr><td>仍然是html标记

在没有路的地方走一条路,让别人有路可走







