ASP+ACCESS 温故而知新

set conn = server.CreateObject("ADODB.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("../include/#test.mdb")    

dim action
action = request.QueryString("action")
 

'添加数据
if action = "add" then
    sql = "select * from Datas"
    set rs = server.CreateObject("ADODB.recordset")
    rs.open sql,conn,3,3
    rs.addnew
         rs("xxx") = request.Form("xxx")
         … …       

         rs.update
         response.write("<script type='text/javascript'>alert('添加成功！'); location.href=xxx.asp'</script>")        

         rs.close
         set rs = nothing       
 

'修改数据
elseif action = "edit" then
    dim getID
    getID = request.QueryString("id")
    sql = "select * from Datas where id="&getID
    set rs = server.CreateObject("ADODB.recordset")
    rs.open sql,conn,3,3 
         rs("Name") = request.Form("Name")
         … …       
         rs.update
         response.write("修改成功！")                  

         rs.close
         set rs = nothing
        

'删除数据
elseif action = "del" then
    getID = request.QueryString("id")
    sql = "delete from Datas where id="&getID
    conn.execute(sql)
    response.write("<script type='text/javascript'>alert('已删除！'); location.href='admin.asp'</script>")   
end if

conn.close
set conn = nothing

 

QA1、数据可以读取，但是到了修改、添加、删除时都报错

1. Mdb文件是否只读
2. 存放mdb文件的磁盘格式是否为NTFS