ASP操作access数据库

<% ...

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

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

'**********

'判断是否是要求回复留言
dim writeMsg,num,reinfo
writeMsg=Request("writeMsg")
num=Request("num")
reinfo=Request("reinfo")
if writeMsg="yes" then
    
    'Set rs=Server.CreateObject("ADODB.RecordSet")    '新建一个查询