| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 385 人关注过本帖
标题:[求助]无法更新数据库,请看看哪里出错了
只看楼主 加入收藏
鬼鬼沙
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-12-4
收藏
 问题点数:0 回复次数:6 
[求助]无法更新数据库,请看看哪里出错了

我写了一个脚本,更新数据库的。运行后什么反应也没有,真不知道到底错在什么地方,各位.帮我看看错在哪了,谢谢了!

<!--#include file="conn.asp"-->
<%
dim str
dim jb
dim dyc
dim drc
dim dsc
dim bj
'------------------------------------------------------------------------------------------------'
if request("jb") = "尚未交办" then
jb = "1900-1-1"
else
jb = request("jb")
end if

if request("dyc") = "未进行" then
dyc = "1900-1-1"
else
dyc = request("dyc")
end if

if request("drc") = "未进行" then
drc = "1900-1-1"
else
drc = request("drc")
end if

if request("dsc") = "未进行" then
dsc = "1900-1-1"
else
dsc = request("dsc")
end if

if request("bj") = "处理中......" then
bj = "1900-1-1"
else
bj = request("bj")
end if


'------------------------------------------------------------------------------------------------'
if request("temp") = "add" then
str = "select * from jc_jb order by updatetime desc"
elseif request("temp") = "up" then
str = "select * from jc_jb where id = "& request("id")
end if

if request("temp") = "add" then
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open str,Conn,1,3
rs.addnew
rs("jbr") = request("jbr")
rs("sex") = request("sex")
rs("jbfs") = request("jbfs")
rs("lxdh") = request("lxdh")
rs("jbtsnr") = request("jbtsnr")
rs("dw") = request("dw")
rs("reg") = request("reg")
rs("bjbr") = request("bjbr")
rs("jbsj") = request("jbsj")
rs("jb") = "1900-1-1"
rs("cbdw") = "未处理"
rs("cbr") = "未处理"
rs("dyc") = "1900-1-1"
rs("drc") = "1900-1-1"
rs("dsc") = "1900-1-1"
rs("dbqk") = "未处理"
rs("bljg") = "未处理"
rs("blr") = "未处理"
rs("bj") = "1900-1-1"
rs("updatetime") = now
rs.update
end if
if request("temp") = "up" then
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open str,Conn,1,3
rs("jbr") = rs("jbr")
rs("sex") = rs("sex")
rs("jbfs") = rs("jbfs")
rs("lxdh") = rs("lxdh")
rs("jbtsnr") = rs("jbtsnr")
rs("dw") = rs("dw")
rs("reg") = rs("reg")
rs("bjbr") = rs("bjbr")
rs("jbsj") = rs("jbsj")
rs("jb") = jb
rs("cbdw") = request("cbdw")
rs("cbr") = request("cbr")
rs("dyc") = dyc
rs("drc") = drc
rs("dsc") = dsc
rs("dbqk") = request("dbqk")
rs("bljg") = request("bljg")
rs("blr") = request("blr")
rs("bj") = bj
rs("updatetime") = now
rs.update
end if

if request("cl") = "now" then%>
<meta http-equiv="refresh" content="1; url=tsadd.asp?temp=up&id=<%=rs("id")%>;">
<%else%>
<meta http-equiv="refresh" content="1; url=tsjb.asp;">
请稍候......<%=k%><%end if%>

搜索更多相关主题的帖子: 数据库 
2006-12-07 09:10
xiapi
Rank: 1
等 级:新手上路
威 望:2
帖 子:305
专家分:0
注 册:2006-10-11
收藏
得分:0 
是不是字段类型不相符

没有什么能够阻挡,我对自由的向往,天马行空的生涯一颗心了无牵挂。
2006-12-07 10:22
mai_25
Rank: 3Rank: 3
来 自:上海
等 级:论坛游侠
帖 子:206
专家分:131
注 册:2006-7-22
收藏
得分:0 
出错出在那里

http://www.,就算跌倒也要豪迈的笑。
2006-12-07 10:43
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
你先检查一下conn.asp里面有没有 on error resume next这句话 如果有先注释掉再运行看看
2006-12-07 10:49
鬼鬼沙
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-12-4
收藏
得分:0 
ADODB.Recordset 错误 '800a0bb9'

变量或者类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突。



这是什么意思哈
2006-12-07 12:01
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
看样子像笔误
哪行 你标出来
2006-12-07 13:17
鬼鬼沙
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-12-4
收藏
得分:0 
已经找到了,谢谢各位的帮助!~~~,小弟会再接再厉的
2006-12-07 15:42
快速回复:[求助]无法更新数据库,请看看哪里出错了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017434 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved