错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。
/admin/news_manage_update.asp, 第 12 行
到底是那里错误 请大家帮忙
...全文
2088打赏收藏
ASP连接ACCESS数据库问题
用ASP+ACCESS建的网站,在后台该东西的时候总是显示错误如下: 技术信息(用于支持人员) 错误类型: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。 /admin/news_manage_update.asp, 第 12 行 到底是那里错误 请大家帮忙
<!--#include file="session.asp"-->
<!--#include FILE="../inc/upload_5xsoft.inc"-->
<!--#include file="../inc/conn.asp"-->
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft ''建立上传对象
news_id=upload.form("news_id")
title=trim(upload.form("title"))
pic_internet=upload.form("pic_internet")
author=upload.form("author")
body=upload.form("body")
if title="" then
result=Server.urlEncode("新闻标题不能为空,请返回填写完整")
Response.Redirect"result.asp?result="&result
end if
if body="" then
result=Server.urlEncode("新闻内容不能为空,请返回填写完整")
Response.Redirect"result.asp?result="&result
end if
if pic_internet<>"http://" then
pic=pic_internet
end if
'Response.write title&radiopic&pic_internet&author&body&pic
'Response.End
set file=upload.file("pic_local") ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file_exs=split(file.FileName,".")
file_exname=file_exs(UBound(file_exs))
if not (file_exname<>"gif" or file_exname<>"jpg" or file_exname<>"jpg" or file_exname<>"bmp") then
result=Server.urlEncode("只能上传格式为gif,jpg或者bmp的图象,请返回")
Response.Redirect"result.asp?result="&result
end if
if file.FileSize/1024>900 then
result=Server.urlEncode("只能上传大小为900k以内的图象,请返回")
Response.Redirect "result.asp?result="&result
end If
file_name=year(now())&month(now())&day(now())&minute(now())&second(now())&"."&file_exname
file.SaveAs Server.mappath("\images\news_pic\"&file_name) ''保存文件
set file=nothing
set upload=nothing ''删除此对象]
pic="\images\news_pic\"&file_name '把文件名付给pic,准备存入数据库
end if
Set Rs=Server.CreateObject("Adodb.RecordSet")'保存到数据库
sql="select * from news where id="&news_id
Rs.Open sql,conn,3,3
Rs("title")=title
Rs("author")=author
Rs("pic")=pic
Rs("body")=body
Rs.Update
Rs.Close
Set Rs=nothing
Set conn=nothing
Response.Redirect"news_manage.asp"
%>
<html></html>