有一投票系统原定义为单选提交,后改为checkbox其他未动。修改后单选可正常显示,
复选则显示无法找到页面。我是新手,请大侠指点,谢了。
提交代码:
链接代码:
<%
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
set conn=server.createobject("adodb.connection")
Connstr="DBQ="+server.mappath("poll.mdb")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
conn.open connstr
aa1=request.form("aa")
set rs=server.createobject("adodb.recordset")
sql="update poll set "&aa1&"="&aa1&"+1 where id=1"
rs.open sql,conn,3,3
response.redirect "look.asp"
else
Response.write "眤竒щ筁布叫ぃ璶確щ布谅谅眤や"
end if
%>
显示代码:
<%
set conn=server.createobject("adodb.connection")
Connstr="DBQ="+server.mappath("poll.mdb")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from poll where id=1"
rs.open sql,conn,3,3
if not rs.eof then
total=rs("a")+rs("b")+rs("c")+rs("d")+rs("e")
if rs("a")<>0 or rs("b")<>0 or rs("c") or rs("d")<>0 or rs("e")<>0 then
pa=(rs("a")/total)*100
pb=(rs("b")/total)*100
pc=(rs("c")/total)*100
pd=(rs("d")/total)*100
pe=(rs("e")/total)*100
end if
%>
调查问卷结果
border=0>
=======| 对于本次午餐改进,您认为哪些地方还应完善?|======= |
菜品的质量: | height=12> <%=rs("a")%>人 <%=round(pa,2)%>% | 花色多样性: | height=12> <%=rs("b")%>人 <%=round(pb,2)%>% | 口感适应性: | height=12> <%=rs("c")%>人 <%=round(pc,2)%>% | 餐器具卫生: | height=12> <%=rs("d")%>人 <%=round(pd,2)%>% | 服务员态度: | height=12> <%=rs("e")%>人 <%=round(pe,2)%>% |
color=#000073>共有【<%=total%>】人参加调查 |
<%
end if
%>