<%
...
'示例: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") '新建一个查询<
'示例: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") '新建一个查询<