| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 446 人关注过本帖
标题:投票系统的问题
只看楼主 加入收藏
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
 问题点数:0 回复次数:2 
投票系统的问题

下面的代码是什么地方错了,为什么数据库里的数据不改变呢????尤其是红字部分,那么写对不对???
<!--#include file="conn.asp"-->
<%
tp=request.Form("radiobutton")
set rs=server.CreateObject("adodb.recordset")
rs.open "select *from tp",conn,1,3
if tp=rb1 then
rs("rb1")=rs("rb1")+1
rs("total")=rs("total")+1
elseif tp=rb2 then
rs("rb2")=rs("rb2")+1
rs("total")=rs("total")+1
elseif tp=rb3 then
rs("rb3")=rs("rb3")+1
rs("total")=rs("total")+1
elseif tp=rb4 then
rs("rb4")=rs("rb4")+1
rs("total")=rs("total")+1
rs.update
%>
<table width="641" border="0">
<tr>
<td colspan="4">1111111111111111</td>
</tr>
<tr>
<td width="155">投票选项</td>
<td width="269">百分比示意图</td>
<td width="103">百分比</td>
<td width="96">投票人数</td>
</tr>
<tr>
<td>1</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb1")/rs("total")%></td>
<td><%=rs("rb1")%></td>
</tr>
<tr>
<td>2</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb2")/rs("total")%></td>
<td><%=rs("rb2")%></td>
</tr>
<tr>
<td>3</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb3")/rs("total")%></td>
<td><%=rs("rb3")%></td>
</tr>
<tr>
<td>4</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb4")/rs("total")%></td>
<td><%=rs("rb4")%></td>
</tr>
</table>
<p align="center"><a href="javascript:window.close()">关闭窗口</a></p>

</body>
</html>
<%rs.close
set rs=nothing
end if
%>

搜索更多相关主题的帖子: 系统 投票 
2005-11-29 12:35
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

楼主没有定义rb1,rb2,rb3,rb4,如果是固定的字符串要加上双引号!


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2005-11-29 12:42
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
得分:0 

投票系统应该怎么写,我这么写错在那了,他不能对数据库进行读写啊,我投票的时候对哪行进行改写就提示我哪行出现错误:

错误类型:
(0x80020009)
发生意外。
/bbs/tpshow.asp, 第 18 行


这是为什么呢
<!--#include file="conn.asp"-->
<%
dim tp
tp=request.Form("radiobutton")
set rs=server.CreateObject("adodb.recordset")
rs.open "select *from tp",conn,1,3
if tp="rb1" then
rs("rb1")=rs("rb1")+1
rs("total")=rs("total")+1
elseif tp="rb2" then
rs("rb2")=rs("rb2")+1
rs("total")=rs("total")+1
elseif tp="rb3" then
rs("rb3")=rs("rb3")+1
rs("total")=rs("total")+1
elseif tp="rb4" then
rs("rb4")=rs("rb4")+1
rs("total")=rs("total")+1
rs.update
%>
<table width="641" border="0">
<tr>
<td colspan="4">1111111111111111</td>
</tr>
<tr>
<td width="155">投票选项</td>
<td width="269">百分比示意图</td>
<td width="103">百分比</td>
<td width="96">投票人数</td>
</tr>
<tr>
<td>1</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb1")/rs("total")%></td>
<td><%=rs("rb1")%></td>
</tr>
<tr>
<td>2</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb2")/rs("total")%></td>
<td><%=rs("rb2")%></td>
</tr>
<tr>
<td>3</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb3")/rs("total")%></td>
<td><%=rs("rb3")%></td>
</tr>
<tr>
<td>4</td>
<td><img src="bar.gif" width="250*<%=rs("rb1")/rs("total")%>" height="14"></td>
<td><%=rs("rb4")/rs("total")%></td>
<td><%=rs("rb4")%></td>
</tr>
</table>
<p align="center"><a href="javascript:window.close()">关闭窗口</a></p>

</body>
</html>
<%rs.close
set rs=nothing
end if
%>


2005-11-29 13:01
快速回复:投票系统的问题
数据加载中...
 
   



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

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