紧急求助！！！！！ASP 复选框

Question

您认为本站哪些方面需要改进？
<form name="leixing" method="post" action="tongji.asp">
<input type="checkbox" name="leixing" value="页面风格">页面风格 <br>
<input type="checkbox" name="leixing" value="浏览速度">浏览速度 <br>
<input type="checkbox" name="leixing" value="网站功能"> 网站功能<br>
<input type="checkbox" name="leixing" value="栏目规划">栏目规划<br>
<input type="submit" name="Submit" value="提交"></form>
数据表：id leixing hit
1 页面风格 0
2 浏览速度 0
3 网站功能 0
4 栏目规划 0
选中哪个类型(leixing)，哪个类型的被选中次数（hit）+1并更新数据库
数据库中的tongji表
id leixing hit(点击次数)
1 页面风格 0
2 浏览速度 0
3 网站功能 0
4 栏目规划 0
如何写tongji.asp 可以多个选择
请写出实现这一功能的代码

Answer 1

<%
if request("Submit")="提交" then

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名.mdb")

sub CloseConn()
conn.close
set conn=nothing
end sub
%>

<%
sql="update 数据表名 set hit=hit+1 where leixing='"&request("leixing")&"'" 'SQL语句
conn.Execute sql

call closeconn()

end if
%>

<form name="leixing" method="post" action="tongji.asp">
<input type="checkbox" name="leixing" value="页面风格">页面风格 <br>
<input type="checkbox" name="leixing" value="浏览速度">浏览速度 <br>
<input type="checkbox" name="leixing" value="网站功能"> 网站功能<br>
<input type="checkbox" name="leixing" value="栏目规划">栏目规划<br>
<input type="submit" name="Submit" value="提交">
</form>

我上面的代面是假定是提交页和写数据库的页都在同一个页面

-----------------------------------------------------------------

二次回答:

首先说明一下,nnigou 说我的第一次回答的update语句要改一下,但 nnigou 的答案却是错误的哦,执行不了多选操作的

然后纠正一下我自已的失误,主要是我第一次回答时没注意楼主说要可以多选,所以修正了一下,提供 2 种解决方案,代码如下:

第一种方案的代码是:

<%
if request("Submit")="提交" then

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db.mdb")

sub CloseConn()
conn.close
set conn=nothing
end sub

aaa=split(trim(request("leixing")),",")
for i=0 to Ubound(aaa)

sqls="update tongji set hit=hit+1 where leixing='"&cstr(trim(aaa(i)))&"' "
conn.Execute sqls

next

call CloseConn()

response.write "你选中了"&i&"项"

end if
%>

<form name="leixing" method="post" action="tongji.asp">
<input type="checkbox" name="leixing" value="页面风格">页面风格 <br>
<input type="checkbox" name="leixing" value="浏览速度">浏览速度 <br>
<input type="checkbox" name="leixing" value="网站功能"> 网站功能<br>
<input type="checkbox" name="leixing" value="栏目规划">栏目规划<br>
<input type="submit" name="Submit" value="提交">
</form>

第二种方案的代码是:

<%
if request("Submit")="提交" then

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db.mdb")

sub CloseConn()
conn.close
set conn=nothing
end sub

if trim(request("leixing"))="" then
response.write "对不起,你没有选中任何一项啊!"
else

sqls="update tongji set hit=hit+1 where "

aaa=split(trim(request("leixing")),",")
for i=0 to Ubound(aaa)

if cint(Ubound(aaa))=i then
sqls=sqls & " leixing='"&cstr(trim(aaa(i)))&"' "
else
sqls=sqls & " leixing='"&cstr(trim(aaa(i)))&"' or "
end if

next

conn.Execute sqls

call CloseConn()

response.write "你选中了"&i&"项"

end if

end if
%>

<form name="leixing" method="post" action="tongji.asp">
<input type="checkbox" name="leixing" value="页面风格">页面风格 <br>
<input type="checkbox" name="leixing" value="浏览速度">浏览速度 <br>
<input type="checkbox" name="leixing" value="网站功能"> 网站功能<br>
<input type="checkbox" name="leixing" value="栏目规划">栏目规划<br>
<input type="submit" name="Submit" value="提交">
</form>

二选一,任意一种都可以达到楼主的要求!

Answer 2

name="leixing"名字要不一样

Answer 3

把wangyi5808的update语句修改一下

sql="update 数据表名 set hit=hit+1 where leixing='"&request("leixing")&"'"

改成

sql="update 数据表名 set hit=hit+1 where leixing in("&request("leixing")&")"