BVB Source Codes

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

Return Download V2.0 flowers chat rooms: download lowmanager.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")>7 then%>
  21. <br>
  22. <table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
  23.   <form method="POST" action="lowmanager.asp">
  24.     <tr bgcolor="<%=m_bg1%>">
  25.       <td height="3"></td>
  26.     </tr>
  27.     <tr bgcolor="<%=m_bg2%>" align="center">
  28.       <td><br>
  29.         <b><font color="#0000FF"><%=session("user")%>管理界面</font></b><br>
  30.         <br>
  31.       </td>
  32.     </tr>
  33.     <tr bgcolor="<%=m_bg2%>" align="center">
  34.       <td>
  35.         <input type="radio" name="dowhat" value="last">
  36.         最后100人访问记录</td>
  37.     </tr>
  38.     <tr bgcolor="<%=m_bg2%>" align="center">
  39.       <td>
  40.         <input type="radio" name="dowhat" value="kick">
  41.         踢人记录</td>
  42.     </tr>
  43.     <tr bgcolor="<%=m_bg2%>" align="center">
  44.       <td>
  45.         <input type="radio" name="dowhat" value="rate">
  46.         加分记录 </td>
  47.     </tr>
  48.     <tr bgcolor="<%=m_bg2%>" align="center">
  49.       <td>
  50.         <input type="radio" name="dowhat" value="book">
  51.         查看留言 </td>
  52.     </tr>
  53.     <tr bgcolor="<%=m_bg2%>" align="center">
  54.       <td>
  55.         <input type="radio" name="dowhat" value="chak">
  56.         管理级别为
  57.         <input type="text" name="ji" size="2">
  58.         级的用户<br>
  59.       </td>
  60.     </tr>
  61. <tr bgcolor="<%=m_bg2%>" align="center">
  62.       <td>
  63.         <input type="radio" name="dowhat" value="delly">
  64.         删除留言:
  65.         <input type="text" name="delid" size="12">
  66.         (留言者姓名) </td>
  67.     </tr>
  68.        
  69.     <tr>
  70.       <td bgcolor="<%=m_bg2%>" align="center">
  71.         <input type="submit" value="确定" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'">
  72.         <input type="button" value="关闭" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'" onClick="window.close()">
  73.       </td>
  74.     </tr>
  75.     <tr bgcolor="<%=m_bg1%>">
  76.       <td height="3"></td>
  77.     </tr>
  78.   </form>
  79. </table>
  80. <br>
  81. <%
  82.  dowhat=trim(request("dowhat"))
  83.  if dowhat="last" then
  84.     set rs=my_conn.execute("select * from "&dbtable_user&" order by "&dbfield_user_lasttime&" desc")
  85.     i=1
  86.     do while not rs.eof
  87.        if i=100 then exit do
  88.        response.write  rs(dbfield_user_username)&"  "&rs(dbfield_user_rate)&" "&rs(dbfield_user_ip)&" "&rs(dbfield_user_lasttime)&"<br>"
  89.        i=i+1
  90.     rs.movenext
  91.     loop
  92.     rs.close
  93.     set rs=nothing
  94.        
  95. end if
  96.  
  97.  
  98.  
  99. if dowhat="rate" then
  100. set rs=my_conn.execute("select * from "&dbtable_change&" order by "&dbfield_change_id&" desc")
  101.    if not rs.eof then
  102.       do while not rs.eof
  103.          response.write rs(dbfield_change_id)&" "&rs(dbfield_change_change)&"<br>"
  104.       rs.movenext
  105.       loop
  106.    end if
  107.    rs.close
  108.    set rs=nothing
  109. end if
  110. if dowhat="book" then
  111. set rs=my_conn.execute("select * from "&dbtable_gbook&" order by "&dbfield_gbook_id&" desc")
  112.    if not rs.eof then
  113.       do while not rs.eof
  114.          response.write rs(dbfield_gbook_id)&" "&rs(dbfield_gbook_lyname)&" "&rs(dbfield_gbook_message)&"<br>"
  115.       rs.movenext
  116.       loop
  117.    end if
  118.    rs.close
  119.    set rs=nothing
  120. end if
  121. if dowhat="kick" then
  122. set rs=server.createobject("adodb.recordset")
  123. rs.open "select * from "&dbtable_kill&" order by "&dbfield_kill_id&" desc",my_conn,1,1
  124.    if not rs.eof then
  125.       do while not rs.eof
  126.          response.write rs(dbfield_kill_id)&" "&rs(dbfield_kill_kill)&"<br>"
  127.       rs.movenext
  128.       loop
  129.    end if
  130.    rs.close
  131.    set rs=nothing
  132. end if
  133.  
  134. if dowhat="delly" then
  135. xxxmmm = trim(request("delid"))
  136. my_conn.execute("delete * from "&dbtable_gbook&" where "&dbfield_gbook_lyname&"='"&xxxmmm&"'")
  137. response.write "<center>完成设置</center>"
  138. end if
  139.  
  140. if dowhat="chak" then
  141.    ji=trim(request("ji"))
  142.    if ji="" then ji="1"
  143.    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
  144.       ji=cint(ji)
  145.       set rs=my_conn.execute("select * from "&dbtable_user)
  146.           if not rs.eof then
  147.              do while not rs.eof
  148.                 leve=1
  149.                 if rs(dbfield_user_rate)>level2rate then leve=2
  150.                 if rs(dbfield_user_rate)>level3rate then leve=3
  151.                 if rs(dbfield_user_rate)>level4rate then leve=4
  152.                 if rs(dbfield_user_rate)>level5rate then leve=5
  153.                 if rs(dbfield_user_rate)>level6rate then leve=6
  154.                 if rs(dbfield_user_rate)>level7rate then leve=7
  155.                 if rs(dbfield_user_manager)=1 then leve=8
  156.                 if rs(dbfield_user_manager)=2 then leve=9
  157.                 if leve=ji then %>
  158.  <%=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>
  159. <%
  160.                 end if
  161.                 rs.movenext
  162.               loop
  163.           end if
  164.       rs.close
  165.       set rs=nothing
  166.     end if
  167. end if
  168.    my_conn.close
  169.    set my_conn=nothing
  170. %>
  171. <%end if%>
  172.  
  173.  
  174. </body>
  175. </html>
downloadlowmanager.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