<%
Dim req_rb
Dim s_strsql
Dim conn
Dim strsql
Dim rs
Dim total
Dim v(7)
Dim s(7)
s(1) = "通过网络广告"
s(2) = "通过搜索引擎"
s(3) = "通过他人介绍"
s(4) = "通过报刊广告"
s(5) = "通过邮件广告"
s(6) = "通过技术论坛"
s(7) = "通过其他渠道"
s_StrSQL = "DBQ="+server.mappath("/vote.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.CursorLocation = 3
conn.ConnectionTimeout = 30
conn.CommandTimeout = 30
conn.open s_StrSQL
req_rb = request("rb")
on error resume next
if req_rb <> "" then
strsql = "update vote set total = total+1, v" + req_rb + " = v" + req_rb + " +1"
conn.execute strsql
end if
strsql = "select * from vote"
set rs = conn.execute(strsql)
if not rs.eof then
total = rs("total")
for itemp = 1 to 7
v(itemp) = rs(itemp + 1)
next
%>