遇到这种错误应该怎么办!
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver]行中有错误
/admin/wushu/add_wushu_act.asp,行 35
第35行就是Rs.update
程序如下
<!--#include file = ../../function/open_conn.asp-->
<%
Dim Conn,Sql,Rs
Dim wushu_title,wushu_content,auther,edittype,getstar,elseinfo,auther_info,contact_mode
wushu_title = Request.Form("wushu_title")
wushu_content = Request.Form("wushu_content")
auther = Request.Form("auther")
edittype = Request.Form("edittype")
getstar = Request.Form("getstar")
elseinfo = Request.Form("elseinfo")
if elseinfo = "其它请注明" then elseinfo = Null
auther_info = Request.Form("auther_info")
contact_mode = Request.Form("contact_mode")
if wushu_title = "" or wushu_content = "" or edittype = "" then
msg "对不起,您的信息不完整"
else
Set Conn = Server.CreateObject("Adodb.Connection")
Open_Conn Conn,"storybook.mdb"
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * from book_wushu where wushu_title='"&wushu_title&"'"
Rs.Open Sql,Conn,3,2
if not Rs.eof or not Rs.bof then
msg "对不起,您已经发布过这篇文章"
else
Rs.addnew
Rs("wushu_title") = wushu_title
Rs("wushu_content") = wushu_content
Rs("auther") = auther
Rs("edittype") = edittype
Rs("getstar") = getstar
Rs("elseinfo") = elseinfo
Rs("auther_info") = auther_info
Rs("contact_mode") = contact_mode
Rs("IP_source") = Request.ServerVariables("REMOTE_ADDR")
Rs.Update
End if
End if
msg "恭喜你上传成功"
Rs.Close
Set Rs = Nothing
Conn.CLose
Set Conn = Nothing
%>