程序代码:
'建立数据库连接 <% 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标记
在没有路的地方走一条路,让别人有路可走