吾曾花费两个月余的时间来不断的调试这个该死的ASP投票系统,无奈吾天姿蠢笨,屡战屡败,荒废学业,以致如今难以自拔,仍然不得其解,如哪位好心人能够帮得吾解开此结,无异于重塑吾身,尤如再造恩师,难以忘怀,大恩大德未齿难忘,问题有二:
一曰:点击投票按钮,自可成功插入数据,表面看起来毫无破绽,可是点击菜单栏的“刷新“按钮,数据总数又会自动加1 ,使用”SESSION”参数,第一次可以成功插入数据,可点击菜单栏“后退”按钮,想再重新投票却纹丝不动,这该如何是好?,其全部程序如下,还望能得高人指点,按“刷新”键数据总数不变,按“后退”键重新投票时能插入一新的数值。
Untitled Document<%
aa=request("aa")
set rs=server.createobject("adodb.recordset")
sql="select * from tou where id=22"
rs.open sql,cn,1,3
if session("in")<>"in" then
session("in")="in"
%>
<%
set rs=server.createobject("adodb.recordset")
sql="update tou set a"&aa&"=a"&aa&"+1 where id=22"
rs.open sql,cn,1,3
%>
<% end if %>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from tou where id=22"
rs.open sql,cn,1,3
total=rs("a1")+rs("a2")+rs("a3")+rs("a4")+rs("a5")+rs("a6")
if total>0 then
a1=(rs("a1")/total)*100
a2=(rs("a2")/total)*100
a3=(rs("a3")/total)*100
a4=(rs("a4")/total)*100
a5=(rs("a5")/total)*100
a6=(rs("a6")/total)*100
end if
%>
共有 <% =total %> 人投票 |
刘德华 |  | 占 <% =round(a1,1) %> | <% =rs("a1") %> |
张学友 |  | 占 <% =round(a2,1) %> | <% =rs("a2") %> |
黎明 |  | 占 <% =round(a3,1) %> | <% =rs("a3") %> |
罗大佑 |  | 占 <% =round(a4,1) %> | <% =rs("a4") %> |
郭富城 |  | 占 <% =round(a5,1) %> | <% =rs("a5") %> |
周华健 |  | 占 <% =round(a6,1) %> | <% =rs("a6") %> |
二曰:按“查看”按钮打开一新浏览窗口,想查看票数,结果却出现如下字样:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'
[Microsoft][ODBC Microsoft Access 驱动程序] 参数不足,期待是 1。
/tou/aaa1.asp, 行20
可是将参数改为1时却出现:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
ODBC 驱动程序不支持需要的属性。
/tou/aaa1.asp, 行20
这两问题缠绕得吾食无甘味,寝无好眠。恳请各路高手能够帮得下在解开此结,吾感觉不尽。或请将此程序代码修改后发至吾信箱 elephent@elong.com 多谢多谢……
:mad: