主题:  帮帮我好么！谢谢各位了！

audreys
职务：普通成员
等级：1
金币：0.0
发贴：8
注册：2001/12/4 10:43:34
#12001/12/7 15:07:25
用UltrDev4.01做一个有很多留言，然后有选择的删除不需要的留言的页面？
还有个问题，怎么才能在投票系统中实现实现所选择的内容与数据库中的字段内容累加的后跳转道显示页面的代码？我用了两种方法都行不通代码如下：
1、
<%
dim myvote
myvote = request.form("vote")
if (myvote = "aspisgood") then rsvote.fields.item("asp").value = rsvote.fields.item("asp").value + 1
elseif(myvote = "jspisgood") then rsvote.fields.item("jsp").value = rsvote.fields.item("jsp").value + 1
elseif(myvote = "cfmlisgood") then rsvote.fields.item("cfml").value = rsvote.fields.item("cfml").value + 1
else
response.redirect("showresult.asp")
rsvote.update
response.redirect("showresult.asp")
end if
end if
end if
%>
第2中代码：
<%select case vote
case aspisgood rsvote("Asp")=rsvote("Asp")+1 rsvote.update
case aspisgood rsvote("Asp")=rsvote("Asp")+1 rsvote.update
case jspisgood rsvote("Jsp")=rsvote("Jsp")+1 rsvote.update
case cfmlisgood rsvote("Cfml")=rsvote("Cfml")+1 rsbote.update
case else rsponse.redirect "showresult.asp"
end select
response.redirect "showresult.asp"
%>
其中Asp,JSP,Cfml是单选框的值和数据库表中的字段；vote是单选框的name

编辑历史:[这消息被audreys编辑过(编辑时间2001-12-07 19:12:34)]

过马路的鸡
职务：普通成员
等级：1
金币：1.0
发贴：195
注册：2000/12/11 13:36:45
#22001/12/7 17:08:45
先回答后一个问题：

sql="update vote set "&selected&"="&selected&"+1 where voteID="&voteID

前端的表单的value值为A,B,C,D,那样数据库里对应的字段为A,B,C,D，呵呵！！不知道说情出了吗？？？

第一个问题！！

首先你知道如何把这些留言从数据库里拿出来吧！！如果这样就好说了！！

下面！！
前端的代码：
&name=del">删除

后端的asp判断：
<%
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
if request("name")="del" then
rst.open "delete * from 表名 where id="+request("id"),conn,1,3
rst.close
end if
response.redirect "xxxx.asp"
%>

不知道看动了吗？？？我们还可以讨论！！