<%
if Request("vote") = "ok" then
id = Request("id")
sql = "select * from T_Vote where id = " & id
Set rs = Conn.Execute(sql)
if not rs.eof then
lb = rs("lb")
fnum = rs("fnum")
Con = split(rs("Con"),"")
ConR = split(rs("ConR"),"")
end if
rs.close
r = Request("ConR")
if lb = 1 then
for i = 1 to fnum
if i = cint(r) then
LConR = LConR & cint(ConR(i-1)+1) & ""
else
LConR = LConR & ConR(i-1) & ""
end if
next
else
for i = 1 to fnum
if instr(r,i) then
LConR = LConR & cint(ConR(i-1)+1) & ""
else
LConR = LConR & ConR(i-1) & ""
end if
next
end if
LConR = strleft(LConR,strlen(LConR)-11)
sql = "Update T_Vote Set ConR = '"&LConR&"' where id = " & id
conn.Execute(sql)
alertmgo("感谢您对我们的支持！\bb\index.asp")
end if
%>
辽宁教育电子音像出版社
