savevote.asp

多用户个人主页系统(ASP)

<!--#include file="const.asp"-->
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<%
if request("id")<>"del" then
err=0
title=request("title")
if title="" then
err=1
error=error+"标题不能为空\n"
end if
a=0
for i=1 to request("xg").count
if request("xg")(i)="" then
exit for
end if
a=a+1
next
if a=0 then
err=1
error=error+"选择内容不能为空\n"
end if
if err=1 then
response.write "<script>alert('"&error&"');</script>"
response.write "<script>history.back(1);</script>"
response.end
end if

kg=int(request.form("kg"))
overtime=request("years")&"-"&request("months")&"-"&request("days")&" "&request("hours")&":"&request("minutes")&":"&request("seconds")
end if

if request("id")="xg" then
conn.execute("update class set title='"&title&"',style='"&request("style")&"',kg="&kg&",overtime='"&overtime&"' where id="&request("classid"))
for i=1 to request("yc").count
if request("xg")(i)<>"" then
conn.execute("update [vote] set vote='"&request("xg")(i)&"',color='"&request("color")(i)&"' where id="&request("yc")(i))
elseif request("xg")(i)="" then
conn.execute("delete from [vote] where id="&request("yc")(i))
end if
next
for i=1 to request("xz").count
if request("xz")(i)<>"" then
conn.execute("insert into vote (vote,color,class) values ('"&request("xz")(i)&"','"&request("color")(i)&"',"&request("classid")&")")
end if
next
response.write "<script>alert('修改投票成功');</script>"
response.write "<script>location.href='votelist.asp';</script>"
elseif request("id")="del" then
conn.execute("delete from vote where class="&request("classid"))
conn.execute("delete from class where id="&request("classid"))
response.write "<script>alert('删除投票成功');</script>"
response.write "<script>location.href='votelist.asp';</script>"
else
conn.execute("insert into class (title,style,ren,kg,overtime) values ('"&title&"','"&request("style")&"','"&request.cookies("admin")&"',"&kg&",'"&overtime&"')")
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from class where title='"&title&"' order by id desc"
rs.open sql,conn,3,1
classid=rs("id")
rs.close
set rs=nothing
for i=1 to request("xg").count
if request("xg")(i)<>"" then
conn.execute("insert into vote (vote,color,class) values ('"&request("xg")(i)&"','"&request("color")(i)&"',"&classid&")")
else
exit for
end if
next
response.write "<script>alert('添加投票成功');</script>"
response.write "<script>location.href='step1.asp';</script>"
end if
conn.close
set conn=nothing
%>