BVB Source Codes

V2.0 flowers chat rooms Show highmanager.asp Source code

Return Download V2.0 flowers chat rooms: download highmanager.asp Source code - Download V2.0 flowers chat rooms Source code - Type:.asp
  1.  
  2. <!--#INCLUDE FILE="inc_config.asp" -->
  3. <!--#INCLUDE FILE="inc_dbconn.asp" -->
  4. <html>
  5. <head>
  6. <title><%=r_title%></title>
  7. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  8. <style type="text/css">
  9. <!--
  10. body      { font-size: 10.4pt ;}
  11. td        { font-size: 10.4pt ;}
  12. .normal   {  <%=m_button%> ; font-size: 10.4pt}
  13. .over     {  <%=m_buttonover%> ; font-size: 10.4pt}
  14. .down     {  <%=m_buttondown%> ; font-size: 10.4pt}
  15. -->
  16. </style>
  17. </head>
  18.  
  19. <body bgcolor="<%=m_bg%>" text="<%=m_text%>">
  20. <%if session("userlevel")>8 then%>
  21. <br>
  22. <table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
  23.   <form method="POST" action="highmanager.asp">
  24.     <tr bgcolor="<%=m_bg1%>">
  25.       <td height="3"></td>
  26.     </tr>
  27.     <tr bgcolor="<%=m_bg2%>" align="center">
  28.       <td><br>
  29.         <%=session("user")%>高级管理界面<br>
  30.         <br>
  31.       </td>
  32.     </tr>
  33.     <tr bgcolor="<%=m_bg2%>" align="center">
  34.       <td>
  35.         <input type="radio" name="dowhat" value="tjgl">
  36.         添加管理员:
  37.         <input type="text" name="gly" size="12">
  38.         (姓名) </td>
  39.     </tr>
  40.    
  41.     <tr bgcolor="<%=m_bg2%>" align="center">
  42.       <td>
  43.         <input type="radio" name="dowhat" value="jfgl">
  44.         积分管理:
  45.          <input type="text" name="xm" size="12">
  46.          (姓名)</td>
  47.     </tr>
  48.  
  49. <tr bgcolor="<%=m_bg2%>" align="center">
  50.       <td>
  51.         <input type="radio" name="dowhat" value="delyh">
  52.         删除用户:
  53.         <input type="text" name="yhdxm" size="12">
  54.         (姓名) </td>
  55.     </tr>
  56.  
  57. <tr bgcolor="<%=m_bg2%>" align="center">
  58.       <td>
  59.         <input type="radio" name="dowhat" value="delly">
  60.         删除留言:
  61.         <input type="text" name="delid" size="12">
  62.         (留言者姓名) </td>
  63.     </tr>      
  64.  
  65.     <tr bgcolor="<%=m_bg2%>" align="center">
  66.       <td>
  67.         <input type="radio" name="dowhat" value="last" >
  68.         最后100人访问记录</td>
  69.     </tr>
  70.     <tr bgcolor="<%=m_bg2%>" align="center">
  71.       <td>
  72.         <input type="radio" name="dowhat" value="kick">
  73.         踢人记录</td>
  74.     </tr>
  75.     <tr bgcolor="<%=m_bg2%>" align="center">
  76.       <td>
  77.         <input type="radio" name="dowhat" value="rate">
  78.         加分记录 </td>
  79.     </tr>
  80.     <tr bgcolor="<%=m_bg2%>" align="center">
  81.       <td>
  82.         <input type="radio" name="dowhat" value="book">
  83.         查看留言 </td>
  84.     </tr>
  85.     <tr bgcolor="<%=m_bg2%>" align="center">
  86.       <td>
  87.         <input type="radio" name="dowhat" value="chak">
  88.         管理级别为
  89.         <input type="text" name="ji" size="2">
  90.         级的用户<br>
  91.         <br>
  92.       </td>
  93.     </tr>
  94. <tr bgcolor="<%=m_bg2%>" align="center">
  95.            
  96.       <td> <b><font color="#FF0000">用户管理</font></b><br>
  97.         级别:
  98.         <select name="dowhat1">
  99.           <option>请选择</option>
  100.           <option value="aaa" >一级</option>
  101.           <option value="bbb" >二级</option>
  102.           <option value="ccc" >三级</option>
  103.           <option value="ddd" >四级</option>
  104.           <option value="eee" >五级</option>
  105.           <option value="fff" >六级</option>
  106.           <option value="ggg" >七级</option>
  107.           </select>
  108.         &nbsp;姓名:<input type="text" name="jfxm" size="12">
  109.         注:加级适可而止</td>
  110.     </tr>
  111.     <tr>
  112.       <td bgcolor="<%=m_bg2%>" align="center">
  113.         <input type="submit" value="确定" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'">
  114.         <input type="button" value="关闭" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'" onClick="window.close()">
  115.       </td>
  116.     </tr>
  117.     <tr bgcolor="<%=m_bg1%>">
  118.       <td height="3"></td>
  119.     </tr>
  120.   </form>
  121. </table>
  122. <br>
  123. <%
  124.  dowhat=trim(request("dowhat"))
  125.  if dowhat="last" then
  126.     set rs=my_conn.execute("select * from "&dbtable_user&" order by "&dbfield_user_lasttime&" desc")
  127.     i=1
  128.     do while not rs.eof
  129.        if i=100 then exit do
  130.        response.write rs(dbfield_user_id)&" "&rs(dbfield_user_username)&" "&rs(dbfield_user_password)&" "&rs(dbfield_user_rate)&" "&rs(dbfield_user_ip)&" "&rs(dbfield_user_lasttime)&"<br>"
  131.        i=i+1
  132.     rs.movenext
  133.     loop
  134.     rs.close
  135.     set rs=nothing
  136. end if
  137.  
  138.  
  139.  
  140. if dowhat="rate" then
  141. set rs=my_conn.execute("select * from "&dbtable_change&" order by "&dbfield_change_id&" desc")
  142.    if not rs.eof then
  143.       do while not rs.eof
  144.          response.write rs(dbfield_change_id)&" "&rs(dbfield_change_change)&"<br>"
  145.       rs.movenext
  146.       loop
  147.    end if
  148.    rs.close
  149.    set rs=nothing
  150. end if
  151. if dowhat="book" then
  152. set rs=my_conn.execute("select * from "&dbtable_gbook&" order by "&dbfield_gbook_id&" desc")
  153.    if not rs.eof then
  154.       do while not rs.eof
  155.          response.write rs(dbfield_gbook_id)&" "&rs(dbfield_gbook_lyname)&" "&rs(dbfield_gbook_message)&"<br>"
  156.       rs.movenext
  157.       loop
  158.    end if
  159.    rs.close
  160.    set rs=nothing
  161. end if
  162. if dowhat="kick" then
  163. set rs=server.createobject("adodb.recordset")
  164. rs.open "select * from "&dbtable_kill&" order by "&dbfield_kill_id&" desc",my_conn,1,1
  165.    if not rs.eof then
  166.       do while not rs.eof
  167.          response.write rs(dbfield_kill_id)&" "&rs(dbfield_kill_kill)&"<br>"
  168.       rs.movenext
  169.       loop
  170.    end if
  171.    rs.close
  172.    set rs=nothing
  173. end if
  174.  
  175. dowhat2=trim(request("dowhat1"))
  176. if dowhat2="aaa" then
  177. xxmm = trim(request("jfxm"))
  178. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=1 where "&dbfield_user_username&"='"&xxmm&"'")
  179. response.write "<center>完成设置</center>"
  180. end if
  181.  
  182. if dowhat2="bbb" then
  183. xxmm = trim(request("jfxm"))
  184. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=300 where "&dbfield_user_username&"='"&xxmm&"'")
  185. response.write "<center>完成设置</center>"
  186. end if
  187.  
  188. if dowhat2="ccc" then
  189. xxmm = trim(request("jfxm"))
  190. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=600 where "&dbfield_user_username&"='"&xxmm&"'")
  191. response.write "<center>完成设置</center>"
  192. end if
  193.  
  194. if dowhat2="ddd" then
  195. xxmm = trim(request("jfxm"))
  196. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=1200 where "&dbfield_user_username&"='"&xxmm&"'")
  197. response.write "<center>完成设置</center>"
  198. end if
  199.  
  200. if dowhat2="eee" then
  201. xxmm = trim(request("jfxm"))
  202. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=2400 where "&dbfield_user_username&"='"&xxmm&"'")
  203. response.write "<center>完成设置</center>"
  204. end if
  205.  
  206. if dowhat2="fff" then
  207. xxmm = trim(request("jfxm"))
  208. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=3600 where "&dbfield_user_username&"='"&xxmm&"'")
  209. response.write "<center>完成设置</center>"
  210. end if
  211.  
  212. if dowhat2="ggg" then
  213. xxmm = trim(request("jfxm"))
  214. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=6000 where "&dbfield_user_username&"='"&xxmm&"'")
  215. response.write "<center>完成设置</center>"
  216. end if
  217.  
  218. if dowhat="tjgl" then
  219. zsx = trim(request("gly"))
  220. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_manager&"=1  where "&dbfield_user_username&"='"&zsx&"'")
  221. response.write "<center>完成设置</center>"
  222. end if
  223.  
  224. if dowhat="jfgl" then
  225. xxmm = trim(request("xm"))
  226. my_conn.execute("update "&dbtable_user&" set "&dbfield_user_rate&"=10000 where "&dbfield_user_username&"='"&xxmm&"'")
  227. response.write "<center>完成设置</center>"
  228. end if
  229.  
  230. if dowhat="delyh" then
  231. mmxx = trim(request("yhdxm"))
  232. my_conn.execute("delete * from "&dbtable_user&" where "&dbfield_user_username&"='"&mmxx&"'")
  233. response.write "<center>完成设置</center>"
  234. end if
  235.  
  236. if dowhat="delly" then
  237. xxxmmm = trim(request("delid"))
  238. my_conn.execute("delete * from "&dbtable_gbook&" where "&dbfield_gbook_lyname&"='"&xxxmmm&"'")
  239. response.write "<center>完成设置</center>"
  240. end if
  241.  
  242. if dowhat="chak" then
  243.    ji=trim(request("ji"))
  244.    if ji="" then ji="1"
  245.    if ji="1" or ji="2" or ji="3" or ji="4" or ji="5" or ji="6" or ji="7" or ji="8" or ji="9" then
  246.       ji=cint(ji)
  247.       set rs=my_conn.execute("select * from "&dbtable_user)
  248.           if not rs.eof then
  249.              do while not rs.eof
  250.                 leve=1
  251.                 if rs(dbfield_user_rate)>level2rate then leve=2
  252.                 if rs(dbfield_user_rate)>level3rate then leve=3
  253.                 if rs(dbfield_user_rate)>level4rate then leve=4
  254.                 if rs(dbfield_user_rate)>level5rate then leve=5
  255.                 if rs(dbfield_user_rate)>level6rate then leve=6
  256.                 if rs(dbfield_user_rate)>level7rate then leve=7
  257.                 if rs(dbfield_user_manager)=1 then leve=8
  258.                 if rs(dbfield_user_manager)=2 then leve=9
  259.                 if leve=ji then %>
  260.                    <%=rs(dbfield_user_username)%>&nbsp;<%=leve%>级 <a href="moduser.asp?dowhat=mod&id=<%=rs(dbfield_user_id)%>">修改</a> <a href="moduser.asp?dowhat=del&id=<%=rs(dbfield_user_id)%>" onclick="return confirm('你确认要删除这个用户的资料吗?')">删除</a><br><%
  261.                 end if
  262.                 rs.movenext
  263.               loop
  264.           end if
  265.       rs.close
  266.       set rs=nothing
  267.     end if
  268. end if
  269.    my_conn.close
  270.    set my_conn=nothing
  271. %>
  272. <%end if%>
  273.  
  274.  
  275. </body>
  276. </html>
downloadhighmanager.asp Source code - Download V2.0 flowers chat rooms Source code
Related Source Codes/Software:
WebSMS online chat system - A web-based chat tool, it does not need to install... 2016-09-16
Non-mainstream chat rooms (support virtual space) - This chat room mainly conveniently in the virtual ... 2016-09-16
Dream chatroom v1.2 Build 0523 - Based on "love strings if chat rooms" program modi... 2016-09-16
One hundred million people chat v3.0 - Classification of support chat, public and private... 2016-09-16
X-chat System v1.5 - Adopted more advanced technology of XMLHTTP + XML ... 2016-09-16
Red dragonfly chat rooms v4.00 dongdong beautify the version to be error-free - 1, the application to modify the program online, i... 2016-09-16
Ichat2.5 formal version of the video chat program - Ichat2.5 formal version of the video chat program 2016-09-16
Draw two alumni source code - This source code is free release, free communicati... 2016-09-16
Sega school green version of the site management system - Sega school green version 2016-09-16
Free and unfettered access statistics system - A set of simple, rapid access statistics program, ... 2016-09-16
envoy - Python Subprocesses for Humans ™. 2017-05-08
wide - 2017-05-08
vincent - A Python to Vega translator 2017-05-08
debugging-stories - A collection of debugging stories. PRs welcome :-)... 2017-05-08
cms.js - The Javascript Site Generator ... 2017-05-08
flannel - flannel is a network fabric for containers, design... 2017-05-08
nu - Nu is an interpreted Lisp that builds on the Objec... 2017-05-07
gobyexample - Go by Example https://gobye... 2017-05-07
nova - OpenStack Compute (Nova) ht... 2017-05-07
mio - Metal IO library for Rust 2017-05-07

 Back to top