Question

ASP 提交数据，显示成功，可是数据不能保存到数据库

ASP 提交数据，显示成功，可是数据不能保存到数据库
同一网站其实页面数据提交都 正常代码应该没有问题
网页代码如下：
<!--#include file="conn.asp"-->
<!--#include file="upload.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上传成功</title>
<%
function UpdateStr(str) '转化字符串
str = Replace(str,chr(39),"’")
'str = Replace(str,chr(34),"”")
'str = Replace(str,"<","<")
UpdateStr = str
end function

dim upload,file,filename,formName,formPath,iCount,filename1
set upload=new upload_5xSoft ''建立上传对象
formPath="../../WebEdit/UploadFile/"'上传新闻图片目录
'上传图片
'****************************************************************************************
randomize
ranNum=int(90000*rnd)+10000
set file=upload.file("defaultpic")
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
filename="N"&year(now())&month(now())&day(now())&hour(now())&minute(now)&second(now)&ranNum&right(file.FileName,4)
file.SaveAs Server.mappath(formPath&filename) ''保存文件
end if
set file=nothing

if upload.form("action")="yes" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news",conn,1,3
rs.addnew
rs("title")=upload.form("title")
rs("content")=upload.form("content")
rs("bigclass")=upload.form("bigclass")
rs("wherefrom")=upload.form("wherefrom")
rs("bianji")=upload.form("bianji")
rs("updatetime")=date()
rs("defaultpic")=filename
if upload.form("action")<>"" then
rs("showweb")="yes"
else
rs("showweb")="no"
end if
rs.update
rs.close
set rs=nothing
response.Write("<script language='javascript'>alert('公司新闻已经发布成功');location.href('admin_news.asp');</script>")
response.End
end if
if upload.form("action")="edit" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where id="&upload.form("id"),conn,1,3
rs("title")=upload.form("title")
rs("content")=upload.form("content")
rs("bigclass")=upload.form("bigclass")
rs("wherefrom")=upload.form("wherefrom")
rs("bianji")=upload.form("bianji")
if filename<>"" then
rs("defaultpic")=filename
end if
if upload.form("action")<>"" then
rs("showweb")="yes"
else
rs("showweb")="no"
end if
rs.update
rs.close
set rs=nothing
response.Write("<script language='javascript'>alert('公司新闻已经更新成功');location.href('admin_news.asp?page="&upload.form("page")&"&keyword="&server.URLEncode(upload.form("keyword"))&"');</script>")
response.End
end if
%>
请大家帮忙看看，问题在哪里？
无论是新添加，还是修改，都最后提示“公司新闻已经发布成功”
可是在前台，就是没有数据，数据库中也没有相关数据@！

谢谢二楼的大哥，呵呵！

问题还是没有解决！

三楼说的权限我也给了啊！

Answer 1

太多了也不想看。插不进数据库中有时就是数据库的数据类型弄错了吧。比如把字符型插入其他类型的数据类型中就插不进去。要不你再看看数据库里的类型和你要输入的类型是否配配。要么就是数据库操作代码有错误。检查一下仔细。建议你把一些不相关的东西删了试一下。单单就留下数据库操作看看成功不。这样检查错在哪里。免的把太多的东西混在一起干扰。

Answer 2

先把你的conn.asp中间的on error resume next 注释掉，然后再运行，没问题再来问。

你先看看你的前一个页面，action 这个值传递的对不对，问题不在这个处理页面上。

Answer 3

检查一下数据库所在分区的写入/修改权限是否允许。