| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 415 人关注过本帖
标题:帮---忙---看--下这句代码 哪里------错了?
只看楼主 加入收藏
d778
Rank: 1
等 级:新手上路
帖 子:257
专家分:0
注 册:2006-1-10
收藏
 问题点数:0 回复次数:6 
帮---忙---看--下这句代码 哪里------错了?

ADODB.Recordset (0x800A0E78)
对象关闭时,不允许操作。
/tixian.asp, 第 103 行


<%if session("person")="" then
response.write"<script>alert('对不起,您未登录!');window.navigate('login.asp');</script>"
else
rs.open"select * from person where name='"&session("person")&"'",conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="body">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td><table width="770" border="0" align="center" cellpadding="0" cellspacing="8">
<tr>
<td width="134" height="45" align="center" valign="top"><!--#include file="left.asp"--></td>
<td align="center" valign="top"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#dedeb8">
<tr>
<td bgcolor="#ffffd9"><img src="/img/notice.gif" width="12" height="13" align="absmiddle"> <span style="color: #92a05a"><%=rs("name")%>,欢迎您来到<%=webname%>!上次您在 <%=rs("logintime")%> 登录本站。</span></td>
</tr>
</table>
<br>
<!--resa-->
<%if request("lei")="" then
rs2.open"select sum(shang) as shangfen from question where sender='"&session("person")&"'",conn,1,1
if rs2.eof then
shangfen="0"
else
shangfen=rs2("shangfen")
end if
rs2.close
rs2.open"select * from question where sender='"&session("person")&"'",conn,1,1
if rs2.eof then
wenti="0"
else
wenti=rs2.recordcount
end if
rs2.close
rs2.open"select * from question where sender='"&session("person")&"' and jie=1",conn,1,1
if rs2.eof then
jiejue="0"
else
jiejue=rs2.recordcount
end if
rs2.close
rs2.open"select * from question where sender='"&session("person")&"' and jie<>1",conn,1,1
if rs2.eof then
weijiejue="0"
else
weijiejue=rs2.recordcount
end if
rs2.close
%>


</table>
<%elseif request("lei")="tixian" then
if request("apply")="提 交" then
if (request.form("nm")="1" ) then
nmfen=mdf
niming=1
else
nmfen=0
niming=0
end if
if request("tixianjin")="" then
tixianjin=0
else
tixianjin=CDbl(request("tixianjin"))
end if
rs3.open"select * from person where name='"& session("person")&"'",conn,1,1
tixianjin1 = CDbl(rs3("qian"))
rs3.close
if tixianjin > tixianjin1 then
response.write"<script>alert('您的金额不足,请查证后继续!');history.back();</script>"
response.end
end if
if tixianjin <0 then
response.write"<script>alert('提现金额不能小于 50元 !');history.back();</script>"
response.end



elseif request("tixianfangshi")="" then
response.write"<script>alert('提现方式不能为空');history.back();</script>"
elseif request("tixian")="" then
response.write"<script>alert('确认提现不能为空!');history.back();</script>"
elseif request("tixianjin")="" then
response.write"<script>alert('提现金额不能为空!');history.back();</script>"

else


rs3.close
rs3.open"select * from person where name='"&name&"'",conn,1,3
rs3.update
rs3.close
response.write"<script>alert('提现成功!');window.navigate('tixian.asp');</script>"
end if

end if
%>

搜索更多相关主题的帖子: 代码 
2007-05-26 12:19
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
以下是引用d778在2007-5-26 12:19:30的发言:

ADODB.Recordset (0x800A0E78)
对象关闭时,不允许操作。
/tixian.asp, 第 103 行


<%if session("person")="" then
response.write"<script>alert('对不起,您未登录!');window.navigate('login.asp');</script>"
else
rs.open"select * from person where name='"&session("person")&"'",conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="body">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td><table width="770" border="0" align="center" cellpadding="0" cellspacing="8">
<tr>
<td width="134" height="45" align="center" valign="top"><!--#include file="left.asp"--></td>
<td align="center" valign="top"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#dedeb8">
<tr>
<td bgcolor="#ffffd9"><img src="/img/notice.gif" width="12" height="13" align="absmiddle"> <span style="color: #92a05a"><%=rs("name")%>,欢迎您来到<%=webname%>!上次您在 <%=rs("logintime")%> 登录本站。</span></td>
</tr>
</table>
<br>
<!--resa-->
<%if request("lei")="" then
rs2.open"select sum(shang) as shangfen from question where sender='"&session("person")&"'",conn,1,1
if rs2.eof then
shangfen="0"
else
shangfen=rs2("shangfen")
end if
rs2.close
rs2.open"select * from question where sender='"&session("person")&"'",conn,1,1
if rs2.eof then
wenti="0"
else
wenti=rs2.recordcount
end if
rs2.close
rs2.open"select * from question where sender='"&session("person")&"' and jie=1",conn,1,1
if rs2.eof then
jiejue="0"
else
jiejue=rs2.recordcount
end if
rs2.close
rs2.open"select * from question where sender='"&session("person")&"' and jie<>1",conn,1,1
if rs2.eof then
weijiejue="0"
else
weijiejue=rs2.recordcount
end if
rs2.close
%>


</table>
<%elseif request("lei")="tixian" then
if request("apply")="提 交" then
if (request.form("nm")="1" ) then
nmfen=mdf
niming=1
else
nmfen=0
niming=0
end if
if request("tixianjin")="" then
tixianjin=0
else
tixianjin=CDbl(request("tixianjin"))
end if
rs3.open"select * from person where name='"& session("person")&"'",conn,1,1
tixianjin1 = CDbl(rs3("qian"))
rs3.close '这你已经关闭了,到下面就不能再关闭了~~
if tixianjin > tixianjin1 then
response.write"<script>alert('您的金额不足,请查证后继续!');history.back();</script>"
response.end
end if
if tixianjin <0 then
response.write"<script>alert('提现金额不能小于 50元 !');history.back();</script>"
response.end



elseif request("tixianfangshi")="" then
response.write"<script>alert('提现方式不能为空');history.back();</script>"
elseif request("tixian")="" then
response.write"<script>alert('确认提现不能为空!');history.back();</script>"
elseif request("tixianjin")="" then
response.write"<script>alert('提现金额不能为空!');history.back();</script>"

else


rs3.close '这句应该不要
rs3.open"select * from person where name='"&name&"'",conn,1,3
rs3.update
rs3.close
response.write"<script>alert('提现成功!');window.navigate('tixian.asp');</script>"
end if

end if
%>


http://www./
2007-05-26 12:37
d778
Rank: 1
等 级:新手上路
帖 子:257
专家分:0
注 册:2006-1-10
收藏
得分:0 

ADODB.Recordset 错误 '800a0cb3'

当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。

/tixian.asp,行 103


不行啊... 又出这个错误 晕


2007-05-27 18:10
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
rs3.open"select * from person where name='"&name&"'",conn,1,3
rs3.update
这里什么都没更新为什么要执行update?
2007-05-27 18:44
网航祖权
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-5-28
收藏
得分:0 
呵呵  搞好没有啊  哥们

[clor=#ooffff] [B] 网航中国 www.  六线路服务器租用托管 QQ:6812244[/B][/color
2007-05-28 10:33
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
[QUOTE]<%
if session("person")="" then
response.write"<script>alert('对不起,您未登录!');window.navigate('login.asp');</script>"
else
rs.open"select * from person where name='"&session("person")&"'",conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="body">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td><table width="770" border="0" align="center" cellpadding="0" cellspacing="8">
<tr>
<td width="134" height="45" align="center" valign="top"><!--#include file="left.asp"--></td>
<td align="center" valign="top"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#dedeb8">
<tr>
<td bgcolor="#ffffd9"><img src="/img/notice.gif" width="12" height="13" align="absmiddle"> <span style="color: #92a05a"><%=rs("name")%>,欢迎您来到<%=webname%>!上次您在 <%=rs("logintime")%> 登录本站。</span></td>
</tr>
</table>
<br>
<!--resa-->
<%
if request("lei")="" then
rs2.open"select sum(shang) as shangfen from question where sender='"&session("person")&"'",conn,1,1
if rs2.eof then
shangfen="0"
else
shangfen=rs2("shangfen")
end if
rs2.close

rs2.open"select * from question where sender='"&session("person")&"'",conn,1,1
if rs2.eof then
wenti="0"
else
wenti=rs2.recordcount
end if
rs2.close

rs2.open"select * from question where sender='"&session("person")&"' and jie=1",conn,1,1
if rs2.eof then
jiejue="0"
else
jiejue=rs2.recordcount
end if
rs2.close

rs2.open"select * from question where sender='"&session("person")&"' and jie<>1",conn,1,1
if rs2.eof then
weijiejue="0"
else
weijiejue=rs2.recordcount
end if
rs2.close
%>
</table>
<%
elseif request("lei")="tixian" then
if request("apply")="提 交" then
if (request.form("nm")="1" ) then
nmfen=mdf
niming=1
else
nmfen=0
niming=0
end if
if request("tixianjin")="" then
tixianjin=0
else
tixianjin=CDbl(request("tixianjin"))
end if
rs3.open"select * from person where name='"& session("person")&"'",conn,1,1
tixianjin1 = CDbl(rs3("qian"))
rs3.close

if tixianjin > tixianjin1 then
response.write"<script>alert('您的金额不足,请查证后继续!');history.back();</script>"
response.end
end if
if tixianjin <0 then
response.write"<script>alert('提现金额不能小于 50元 !');history.back();</script>"
response.end
elseif request("tixianfangshi")="" then
response.write"<script>alert('提现方式不能为空');history.back();</script>"
elseif request("tixian")="" then
response.write"<script>alert('确认提现不能为空!');history.back();</script>"
elseif request("tixianjin")="" then
response.write"<script>alert('提现金额不能为空!');history.back();</script>"
else
'rs3.close
rs3.open"select * from person where name='"&name&"'",conn,1,3
'rs3.update
rs3.close
response.write"<script>alert('提现成功!');window.navigate('tixian.asp');</script>"
end if
end if
'这里的程序因该还没有结束
%>[/QUOTE]

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-05-28 11:05
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
收藏
得分:0 
强烈反对“d778”,这种问题你可以先自己查查撒!怎么一有问题就提呢!一些其实很简单的问题你也提。

程序员的悲哀如何找女朋友?
追女解决方案百度“让她着迷”!
2007-05-28 13:51
快速回复:帮---忙---看--下这句代码 哪里------错了?
数据加载中...
 
   



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

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