
给你一个例子吧
读取数据库:
<%
'这部分是连接数据库
dim conn,rs,exec
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}DBQ="&Server.Mappath("book.mdb")
%>
<%
'这部分是读取数据库里的表guest
exec="select * from guest"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--做一个表格,显示数据库字段内容-->
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
'这是循环读取所有记录。
rs.movenext
loop
%>
</table>
<%
'下面三条语句是关闭数据库
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)