急！！！急！！！Microsoft JET Database Engine 错误 '80040e09' - ASP技术论坛

hebei_lilei

等　级：新手上路
帖　子：4
专家分：0
注　册：2010-4-21
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：3

急！！！急！！！Microsoft JET Database Engine 错误 '80040e09'

我在本地浏览的没有错误啊！我一上传了，就是不行了，提示是这样的

Microsoft JET Database Engine 错误 '80040e09'

不能更新。数据库或对象为只读。

/tp/Bm_do.asp，行 26

请教高手帮忙！谢谢了！

对了，我也用FTP工具，把权限改了，可写入！

页面代码是这样的，



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<link href="Style/Style.css" rel="stylesheet" type="text/css" />
</head>

<body>

<%
If Trim(Request.Form("ValidCode"))=Empty Or Trim(Session("))<>Trim(Request.Form("ValidCode")) Then
    Response.write("<script language='javascript'>alert('验证码错误!');history.back();</script>")
    Response.end()
End if

sql="Select * from Vote where id=null"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
rs.Addnew
putallrs(rs)
rs.Update
rs.Close
Set rs=Nothing
%>

<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td><table width="1000" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="5"></td>
      </tr>
    </table>
        <table width="1000" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#ff0198" class="border_pink">
          <tbody>
            <tr>
              <td bgcolor="#feddf0" class="title">报名成功</td>
            </tr>
            <tr>
              <td height="300" align="center" valign="middle" bgcolor="#FFFFFF" style="line-height:30px;"><p>报名成功，我们会将您的报名审查结果发送到您的邮箱。<br />
                <br />
              您的信息将在审核后才能显示在投票列表中！</p>
              </td>
            </tr>
          </tbody>
      </table></td>
  </tr>
</table>


</body>
</html>

[ 本帖最后由 hebei_lilei 于 2010-4-21 13:25 编辑 ]

搜索更多相关主题的帖子: JET　Database　Engine　Microsoft　

2010-04-21 13:15

hebei_lilei

等　级：新手上路
帖　子：4
专家分：0
注　册：2010-4-21

第 3 楼

得分:0

这个是conn.asp


<%
   dim connstr,datapath,conn
   datapath="DataBase/Db.mdb"
   connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.mappath(datapath)
   Set conn=Server.CreateObject("ADODB.Connection")
   conn.open connstr

function geturl()
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")

if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then
    url=url & "?" & request.ServerVariables("QUERY_STRING")
end if

geturl=url
end function

function getp(ps)
sql="Select count(id) from Vote where ps>"&ps
Set ts=conn.execute(sql)
getp=ts(0)+1
end function

%>

2010-04-21 14:43