progress.asp

来自「留言薄系统」· ASP 代码 · 共 113 行

<!--#include file = "config.asp"-->
<%
if (session("admin")<>1) and (session("admin")<>2)  then response.Redirect "default.asp"
Set rs=Server.CreateObject("ADODB.RecordSet")
SQL="Select * From guest"
rs.open SQL,Conn,3,3

select case request("act")
case 1
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql="delete from guest where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="删除留言成功！"
case 2
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set top1=1 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="固定顶端成功！"
case 3
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set lock=1 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="锁定留言成功！"
case 4
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set lastdate=now where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="提到最前成功！"
case 5
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set top1=0 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="取消固顶成功！"
case 6
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set lock=0 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="解除锁定成功！"
case 7
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set mark=1 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="认证留言成功！"
case 8
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set mark=0 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="取消认证成功！"
case 9
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set jinghua=1 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="设为精华成功！"
case 10
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		sql= "update guest set jinghua=0 where id="&rs("id")
      conn.execute(sql)
	  end if
   rs.movenext
   loop 
info="取消精华成功！"
end select

response.Redirect "post_ok.asp?info="&info
%>