我的数据库只读问题始终没解决,把代码 放在这里,请大家帮我一下
conn.inc文件内容如下:
<!--METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll"-->
<%
dim conn,starttime,endtime,connstr,db
db="data/data.mdb"
Set Conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>
addchenk.asp文件内容如下:
<!--#include file="conn.inc"-->
<%
dim rs
set rs = server.CreateObject ("adodb.recordset")
rs.Open "person_info",conn,adOpenForwardOnly,adLockOptimistic,adCmdTable
if session("ID")<>"" then
rs.filter="ID='"&session("ID")&"'"
else
rs.filter= "LoginName='" & request.Form("LoginName") & "'" & _
"AND password='" & request.form("password") & "'"
if rs.eof then
rs.addnew
end if
end if
rs("name")=request.form("name")
rs("sex")=request.form("sex")
rs("birthday")=request.Form("birthday")
rs("city")=request.Form("city")
rs("school")=request.form("school")
rs("career")=request.form("career")
rs("telephone")=request.form("telephone")
rs("qq")=request.form("qq")
rs("email")=request.form("email")
rs("address")=request.form("address")
rs.update
rs.close
set rs= nothing
错误类型是数据库或对象为只读,不能写入数据。请问是为什么?