本地练习ASP链接数据库发生错误，但不知是什么意思
错误类型：Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
相关说明：
1.系统Windows XP SP2；
2.IIS版本6.0；
3.数据库是Office Access；
4.网页制作媒介是Dreamweaver CS3。
先谢谢了。
一共三个界面：新闻列表、新闻详细查看、添加新闻。
1、新闻列表：list.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/gonggao.asp" -->
<%
Dim rs1
Dim rs1_cmd
Dim rs1_numRows
Set rs1_cmd = Server.CreateObject (")
rs1_cmd.ActiveConnection = MM_gonggao_STRING
rs1_ = "SELECT gonggaoid, title, addtime FROM gonggao ORDER BY gonggaoid DESC"
rs1_cmd.Prepared = true
Set rs1 = rs1_cmd.Execute
rs1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 15
Repeat1__index = 0
rs1_numRows = rs1_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<!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=utf-8" />
<title>无标题文档</title>
<style type="text/css">
<!--
.STYLE3 {font-size: 9pt; font-family: "宋体"; }
.STYLE4 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<link href="../main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="845" height="134" colspan="9"><img src="../images/logo.png" alt="" name="logo" width="845" height="134" id="logo" /></td>
</tr>
<tr align="center" valign="middle" bordercolor="#C4B9AA" bgcolor="#C4B9AA">
<td height="24"><span class="STYLE3"><a href="../index.html" class="url_1">首页</a></span></td>
<td><span class="STYLE3">班委会</span></td>
<td><span class="STYLE3">团支部</span></td>
<td><span class="STYLE3">互动专区</span></td>
<td bgcolor="#C4B9AA"><span class="STYLE3"><a href="../wenjian/list.asp" class="url_1">班级文件</a></span></td>
<td><span class="STYLE3">班级公告</span></td>
<td><span class="STYLE3">友邻班级</span></td>
<td><span class="STYLE3">教师专栏</span></td>
<td><span class="STYLE3">关于我们</span></td>
</tr>
<tr align="center" valign="middle">
<td height="24" colspan="9" align="left" class="STYLE3">你的位置 >> <span class="STYLE4">班级公告</span></td>
</tr>
</table>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs1.EOF))
%>
<table width="844" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="337" class="STYLE2"><strong>标题</strong></td>
<td width="376" class="STYLE2"><strong>发布时间</strong></td>
</tr>
<tr>
<td class="STYLE2"><a href="read.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "gonggaoid=" & rs1.Fields.Item("gonggaoid").Value %>" target="_blank" class="url_2"><%=(rs1.Fields.Item("title").Value)%></a></td>
<td class="STYLE2"><%=(rs1.Fields.Item("addtime").Value)%></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs1.MoveNext()
Wend
%>
<p> </p>
</body>
</html>
<%
rs1.Close()
Set rs1 = Nothing
%>