home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / zb / Notepad-1 / admin_post_do.asp < prev    next >
Text File  |  2004-12-09  |  4KB  |  154 lines
  1. <!--#include file="conn.asp"-->
  2. <%
  3. if not theUser.master then
  4.     connclose()
  5.     response.redirect ("index.asp")
  6. end if
  7.  
  8.  
  9. dim id,act
  10. dim exec, rs
  11.  
  12. set id=request.form("id")
  13. act=encodestr(request.form("act"))
  14.  
  15. main()
  16. connclose()
  17. response.redirect "admin_ok.asp"
  18.  
  19.  
  20. sub main()
  21.     select case act
  22.         case "del"        '╔╛┴⌠╤╘
  23.             for i=1 to id.count
  24.                 delete(id(i))
  25.             next
  26.         case "best"    '╔Φ╬¬╛½╗¬
  27.             for i=1 to id.count
  28.                 best(id(i))
  29.             next
  30.         case "top"        '╣╠╢Ñ
  31.             for i=1 to id.count
  32.                 top(id(i))
  33.             next
  34.         case "lock"    '╦°╢¿
  35.             for i=1 to id.count
  36.                 lock(id(i))
  37.             next
  38.     end select
  39. end sub
  40.  
  41. sub delete(xxid)
  42.     dim rs1
  43.     exec="select rt,jh,name,isPrivate from ly where id="& Cstr(xxid)
  44.     set rs=conn.execute(exec)
  45.     '▒╛┴⌠╤╘╖ó▒φ╙├╗º╖ó┴⌠╤╘╩²╝⌡
  46.     exec="update [user] set GBpostNum=GBpostNum-1 where username='"& rs("name") &"'"
  47.     conn.execute(exec)
  48.     '╩╟╕∙┴⌠╤╘╝╞╩²╝⌡
  49.     if rs(0)=0 then
  50.         '╟─╟─╗░╝╞╩²╝⌡
  51.         if rs("isPrivate") then
  52.             exec="update [user] set GBprivateNum=GBprivateNum-1 where username='"& rs("name") &"' "
  53.             conn.execute(exec)
  54.             exec="update GBconst set privateNum=privateNum-1"
  55.             conn.execute(exec)
  56.         end if
  57.         
  58.         exec="update GBconst set topicNum=topicNum-1"
  59.         conn.execute(exec)
  60.         '╕·╠√╙├╗º╖ó▒φ╩²╝⌡
  61.         exec="select name from ly where bl=1 and rt="& Cstr(xxid)
  62.         set rs1=conn.execute(exec)
  63.         do until rs1.eof
  64.             exec="update [user] set GBpostNum=GBpostNum-1 where username='"& rs1("name") &"'"
  65.             conn.execute(exec)
  66.             rs1.movenext
  67.         loop
  68.         rs1.close
  69.         '╩╟╛½╗¬╡─╕·╠√╩²╝⌡
  70.         exec="select count(*) from ly where jh=1 and rt="& Cstr(xxid)
  71.         set rs1=conn.execute(exec)
  72.         if rs1(0)>0 then
  73.             exec="update GBconst set bestNum=bestNum-"& rs1(0)
  74.             conn.execute(exec)
  75.         end if
  76.         rs1.close
  77.         set rs1=nothing
  78.         '╔╛│²╕·╠√
  79.         exec="delete from ly where rt="& Cstr(xxid)
  80.         conn.execute(exec)
  81.     else
  82.         '╫ε║≤╗╪╕┤ID╕─▒Σ
  83.         exec="select top 1 id from ly where rt="& rs(0) &" and id<>"& Cstr(xxid) &" order by id desc"
  84.         set rs1=conn.execute(exec)
  85.         if not (rs1.eof and rs1.bof) then
  86.             exec="update ly set reid="& rs1(0) &" where id="& rs(0)
  87.         else
  88.             exec="update ly set reid=id where id="& rs(0)
  89.         end if
  90.         conn.execute(exec)
  91.         rs1.close
  92.         set rs1=nothing
  93.         
  94.         exec="update ly set hf=hf-1 where id="& rs(0)
  95.         conn.execute(exec)
  96.     end if
  97.     '╩╟╛½╗¬╝╞╩²╝⌡
  98.     if rs(1)=1 then
  99.         exec="update GBconst set bestNum=bestNum-1"
  100.         conn.execute(exec)
  101.     end if
  102.     rsclose()
  103.     exec="delete from ly where id=" + CStr(xxid)
  104.     conn.execute(exec)
  105. end sub
  106.  
  107. sub best(xxid)
  108.      exec="select jh,isPrivate from ly where id="& Cstr(xxid)
  109.     set rs=conn.execute(exec)
  110.     if rs(1) then
  111.         session("error")="╟─╟─╗░▓╗┐╔╥╘╔Φ╬¬╛½╗¬úí"
  112.         rsclose()
  113.         connclose()
  114.         response.redirect "error.asp"
  115.     end if
  116.     
  117.     if rs(0)=1 then
  118.         exec="update ly set jh=0 where id=" + CStr(xxid)
  119.         conn.execute(exec)
  120.         exec="update GBconst set bestNum=bestNum-1"
  121.         conn.execute(exec)
  122.     else
  123.         exec="update ly set jh=1 where id=" + CStr(xxid)
  124.         conn.execute(exec)
  125.         exec="update GBconst set bestNum=bestNum+1"
  126.         conn.execute(exec)
  127.     end if
  128. end sub
  129.  
  130. sub top(xxid)
  131.      exec="select istop from ly where id="& Cstr(xxid)
  132.     set rs=conn.execute(exec)
  133.     if rs(0)=1 then
  134.         exec="update ly set istop=0 where id=" + CStr(xxid)
  135.         conn.execute(exec)
  136.     else
  137.         exec="update ly set istop=1 where id=" + CStr(xxid)
  138.         conn.execute(exec)
  139.     end if
  140. end sub
  141.  
  142. sub lock(xxid)
  143.      exec="select islock from ly where id="& Cstr(xxid)
  144.     set rs=conn.execute(exec)
  145.     if rs(0) then
  146.         exec="update ly set islock=0 where id=" + CStr(xxid)
  147.         conn.execute(exec)
  148.     else
  149.         exec="update ly set islock=1 where id=" + CStr(xxid)
  150.         conn.execute(exec)
  151.     end if
  152. end sub
  153. %>
  154.