注册 登录
编程论坛 ASP技术论坛

我想把单选提交投票改为多项选择提交,我已经怎么修改这个提交代码???

青青 发布于 2007-11-12 10:18, 1501 次点击
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim selected
selected=request.form("options")
set rs=server.createobject("adodb.recordset")
sql="update research set select"&selected&"=select"&selected&"+1 where id=1"
rs.open sql,conn,3,3
set rs=nothing
conn.close
set conn=nothing
response.redirect "index.asp"
else
Response.write "您已经投了票,谢谢您的支持!"
end if
%>
我想把它修改成多选选择一起提交的,怎么修改啊,麻烦各位大哥帮帮忙,
11 回复
#2
yms1232007-11-12 10:34
以下是引用青青在2007-11-12 10:18:25的发言:
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim selected
selected=request.form("options")
set rs=server.createobject("adodb.recordset")
sql="update research set select"&selected&"=select"&selected&"+1 where id=1"
rs.open sql,conn,3,3
set rs=nothing
conn.close
set conn=nothing
response.redirect "index.asp"
else
Response.write "您已经投了票,谢谢您的支持!"
end if
%>
我想把它修改成多选选择一起提交的,怎么修改啊,麻烦各位大哥帮帮忙,

这个IF在哪里?

#3
青青2007-11-12 10:42
回复:(yms123)以下是引用青青在2007-11-12 10:18:2...

没有的啊,我是按书本上的例子做的,但不会修改,

#4
lq73506842007-11-12 10:46
就是少个if
#5
li笨宝宝2007-11-12 10:52

这个语言我看不懂
呵呵,有可能是还没有学吧

#6
青青2007-11-12 11:56
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] UPDATE 语句的语法错误。
/myweb/vote/add.asp, 第 9 行
就是rs.open sql,conn,3,3
这个报错的
只有本站会员才能查看附件,请 登录

#7
青青2007-11-12 11:57
上面里有完整的代码,我不知道怎么修改了,麻烦各位兄弟姐妹帮帮忙了,谢谢了
#8
挥动2007-11-12 17:22

。。。。。。。。。。。。。。。。。。。。我研究研究

[此贴子已经被作者于2007-11-12 17:24:19编辑过]

#9
青青2007-11-14 14:42
回复:(青青)我想把单选提交投票改为多项选择提交,...
主程序:

<form method="POST" action="add.asp" name="research" LANGUAGE="javascript"
onsubmit="return research_onsubmit()">
<p align="center" style="line-height: 200%; margin-top: 1; margin-bottom: 1">&nbsp;<font size="3" color="#000080"><b>投&nbsp;
票&nbsp; 区</b></font></p>
<p align="left" style="line-height: 200%; margin-top: 1; margin-bottom: 1">
<input type="checkbox" value="a" name="Options" checked><font color="#000080">
</font><font color="#000080">北京</font></p>
<p align="left" style="line-height: 200%; margin-top: 1; margin-bottom: 1"><input type="checkbox" value="b" name="Options"><font color="#000080">
</font><font color="#000080">上海</font></p>
<p align="left" style="line-height: 200%; margin-top: 1; margin-bottom: 1">
<input type="checkbox" value="c" name="Options"><font color="#000080">
广州</font></p>
<p align="left" style="line-height: 200%; margin-top: 1; margin-bottom: 1">
<input type="checkbox" value="d" name="Options"><font color="#000080">
青岛</font></p>
<p align="left" style="line-height: 200%; margin-top: 1; margin-bottom: 1">
<input type="checkbox" value="e" name="Options">
<font color="#000080">深圳</font></p>
<p align="left" style="line-height: 200%; margin-top: 1; margin-bottom: 1">
<input type="checkbox" value="f" name="Options">
<font color="#000080">大连</font></p>
<p align="center" style="line-height: 200%; margin-top: 1; margin-bottom: 1"> </p>
<p align="center" style="line-height: 200%; margin-top: 1; margin-bottom: 1"><input type="submit" value=" 投 票 " name="cmdok" class="p9" style="background-color: rgb(145,148,195); color: rgb(255,255,255)" ></p>
</form>

添加程序:
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim selected
selected=request.form("options")
set rs=server.createobject("adodb.recordset")
sql="update research set select"&selected&"=select"&selected&"+1 where id=1"
rs.open sql,conn,1,3
set rs=nothing
conn.close
set conn=nothing
response.redirect "index.asp"
else
Response.write "您已经投了票,谢谢您的支持!"
end if
%>


#10
li笨宝宝2007-11-15 19:58
我晕`
这是网页制作
个代码看坏脑壳
#11
yms1232007-11-16 21:04
只有本站会员才能查看附件,请 登录

楼主的程序我已经修改成了多选投票,测试过了,有什么问题再说。
#12
gdk20062007-11-17 16:45
多选用复选框进数据库,然后针对每个选项再加1撒!
1