<html>
<head>
<title>访问数据库</title>
</head>
<body>
<table width="600" border="1" cellpadding="0" cellspacing="0" bgcolor="#0099FF">
<tr>
<td>id</td>
<td>部门</td>
<td>职位</td>
<td>姓名</td>
<td>电话</td>
</tr>
<%
dim conn, connstr ,rs,datafile,sql
datafile ="zh.mdb"
set conn = Server.CreateObject("ADODB.Connection")
connstr ="Provider =Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(datafile)
conn.open connstr
set rs = server.CreateObject("adodb.recordset")
sql="select * from zhzxmr"
rs.open sql ,conn,1,1
do while not rs.bof and rs.eof
%>
<tr>
<td><%rs("id")%></td>
<td><%rs("department")%></td>
<td><%rs("level")%></td>
<td><%rs("s_name")%></td>
<td><%rs("phone")%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs = nothing
