setv.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<!--#include file="conn.asp"-->
<!--#include file="../fn/function.asp"-->
<!--#include file="seeadmin.asp"-->

<% 
id=request("id")
select case Request("menu")


case "szt"   '设置投票
szt

case "delt"  '删除投票
delt

case "tvot"  '投票
tvot

end select

sub szt
call gadmin
conn.execute("update vote set isnow=false")
conn.execute("update vote set isnow=true where id="&id)
''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="设置投票为当前投票"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
call Okmsg("设置成功","setvote.asp")
end sub

sub delt
call gadmin
conn.execute("Delete From vote where id="&id)
conn.execute("Delete From vote1 where sid="&id)

''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="删除投票"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
call Okmsg("删除成功","setvote.asp") 
end sub
sub tvot

for each f1 in request.form("vote")
conn.execute("update vote1 set howvote=howvote+1 where id="&f1)
next
call OkMsg("投票成功","../index.asp")
end sub
%>