新微赢技术网

标题: 投票系统的问题 [打印本页]

作者: 绝对标致 时间: 2010-1-14 00:32
标题: 投票系统的问题
下面的代码是什么地方错了，为什么数据库里的数据不改变呢？？？？尤其是红字部分，那么写对不对？？？

<%
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
%>

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)