ASP留言的access数据库操作

<%
Response.Write("*************************"&"<br>")
Response.Write("Neok的ASP程序的第一个测试"&"<br>")
Response.Write("*************************"&"<br>")

'示例：ASP连接Access数据库，无密码连接

DBPath=Server.MapPath("myData.mdb")    '数据库存放路径
Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath     '连接字符串
Set conn = Server.CreateObject("ADODB.Connection")    '新建一个连接 
conn.open Strconn

Set rs=Server.CreateObject("ADODB.RecordSet")    '新建一个查询
strSQL="SELECT * FROM TBL_USER"        '查询的SQL语句
rs.Open strSQL,conn,1,1        '执行查询
'Response.Write rs("UserName")    '获取UserName字段的值
'**********
do while not rs.eof 
%> 
<table width="100%" border="1" > 
<tr> 
<td width="150"><%=rs("UserName")%></td> 
<td width="150"><%=rs("PassWord")%></td> 
<td width="150"><%=rs("INFO")%></td> 
</tr> 
</table> 
<% 
rs.movenext 
loop 

'**********
rs.close
set rs=nothing
conn.close
set conn=nothing

%>