论坛: 编程破解 标题: 求助！！！！！！！ｑｑ：３１８０９５５１ 复制本贴地址    
作者: yanyt [yanyt]    论坛用户   登录
打开网页时显示：＂Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。

/hynew/newsItem.asp，行 82 ＂
是怎么回事？如何解决呀
相关代码＂<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>河北省交易团-广交会申报系统</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
</head>

<%
dim id
dim Sql
id = Request.QueryString("id")
if not isnumeric(id) then Response.End()
%>
<!-- #include file="conn.asp" -->
<%
Sql = "Select * From t_News Where newsId = " & id
dim rsMain
set rsMain = Server.createObject("Adodb.RecordSet")
rsMain.Open Sql,Conn,3,3
%>

<body background="images/bg.gif"><center><!-- #include file="top.asp" -->
  <table width="779" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr>
      <td width="172" align="center" valign="top">
  <div id="jnkc"></div>
<script>setInterval("jnkc.innerHTML=new Date().toLocaleString()+'星期'+'日一二三四五六'.charAt(new Date().getDay());",1000);</script>
  <!-- #include file="index_left.asp" -->
  </td>
      <td background="images/dian_s.gif" width="1"><img src="images/dian_s.gif" width="1" height="4"></td>
      <td align="center" valign="top">
        <%
if not rsMain.eof then
%>
        <table width="95%"  border="0" cellspacing="0" cellpadding="2">
          <tr>
            <td width="100%" height="16"></td>
          </tr>
          <tr>
            <td height="30"><div align="center"><strong><font color="#0000FF" style="font-size:18px;font-family:宋体"><%=rsMain("newsTitle")%></font></strong>
              </div></td>
          </tr>
          <tr>
            <td height="23" bgcolor="#f4f4f4"> <div align="right">[作者/出自]：<font color="#FF0000"><%=rsMain("author")%></font>
                [浏览次数]：<font color="#FF0000"><%=Clng(rsMain("visitNum")) + 1%></font>
                [更新时间]：<font color="#FF0000"><%=rsMain("addDate")%></font></div></td>
          </tr>
          <tr>
            <td height="30" style="line-height:20px;"><br> <%=rsMain("newsItem")%></td>
          </tr>
  <%
if rsMain("filename") <> "" then
dim arr,js
arr = Split(rsMain("filename"),"[^]")
for js = 0 to Ubound(arr)
%>
          <tr>
            <td height="30">
<a target="_blank" href="admin/product_imgs/<%=Replace(arr(js),"附件1-4.doc","2005920.doc")%>"><font color="#FF0000"><strong>&middot;<%=arr(js)%></strong></font></a>
            </td>
          </tr>
  <%
  next
end if
%>
          <tr>
            <td height="30"><div align="center">[<a href="#" onClick="window.close()">关闭</a>]</div></td>
          </tr>
        </table>
        <%
rsMain("visitNum") = rsMain("visitNum") + 1
rsMain.update()
end if
rsMain.Close()
set rsMain = nothing
%>
      </td>
    </tr>
  </table>

<!-- #include file="bottom.asp" -->
</center>
</body>
</html>
<%
conn.close()
set conn = nothing
%>＂

地主 发表时间: 06-02-16 14:59
回复: xiaoshi [xiaoshi]   论坛用户   登录
给放数据库的文件夹修改权限


[此贴被 零下一度(xiaoshi) 在 02月16日20时10分 编辑过]

B1层 发表时间: 06-02-16 20:10

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号