progress.asp

来自「院校使用的一套心理在线咨询系统(免验证细节美化版) v2.6」· ASP 代码 · 共 119 行

<!--#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
		dsql="delete from reply where id="&rs("id")
		conn.execute(dsql)
	  	dsql="delete From guest where id="&rs("id")
		conn.execute(dsql)
	  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
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect "post_ok.asp?info="&info
%>