BVB Source Codes

V2.0 flowers chat rooms Show KILL.ASP Source code

Return Download V2.0 flowers chat rooms: download KILL.ASP Source code - Download V2.0 flowers chat rooms Source code - Type:.ASP
  1. <!--#INCLUDE FILE="inc_config.asp"-->
  2. <!--#INCLUDE FILE="inc_dbconn.asp"-->
  3. <html>
  4. <head>
  5. <title>聊天室踢人功能</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <style type="text/css">
  8. <!--
  9. body      {  font-size: 10.4pt }
  10. td        {  font-size: 10.4pt }
  11. .normal   {  <%=m_button%> ; font-size: 10.4pt}
  12. .over     {  <%=m_buttonover%> ; font-size: 10.4pt}
  13. .down     {  <%=m_buttondown%> ; font-size: 10.4pt}
  14. -->
  15. </style>
  16. </head>
  17.  
  18. <body bgcolor="<%=m_bg2%>" text="<%=m_text2%>">
  19. <br>
  20. <%
  21. name=request("name")
  22. if session("user")<>"" and session("userlevel")>6 and name<>"" then
  23.    if name=session("user") then
  24.       response.write "<br><center>你不能踢自已呀!<br><br><input type='button' value=' 返 回 ' class='normal' onmouseover='this.className="&chr(34)&"over"&chr(34)&"' onmousedown='this.className="&chr(34)&"down"&chr(34)&"' onmouseout='this.className="&chr(34)&"normal"&chr(34)&"' onclick='javascript:history.go(-1)'></center></body></html>"
  25.       response.end
  26.    end if
  27.    for i=1 to 100
  28.        if application("user" & i)=name then
  29.           set rs=my_conn.execute("select * from "&dbtable_user&" where username ='" & name & "'")
  30.               uleve=1
  31.               if rs(dbfield_user_rate)>level2rate then uleve=2
  32.               if rs(dbfield_user_rate)>level3rate then uleve=3
  33.               if rs(dbfield_user_rate)>level4rate then uleve=4
  34.               if rs(dbfield_user_rate)>level5rate then uleve=5
  35.               if rs(dbfield_user_rate)>level6rate then uleve=6
  36.               if rs(dbfield_user_rate)>level7rate then uleve=7
  37.               if rs(dbfield_user_rate)>level8rate and rs(dbfield_user_manager)=1 then uleve=8
  38.               if rs(dbfield_user_manager)=2 then uleve=9
  39.               if session("userlevel")<=uleve then
  40.                  response.write "<br><center>权限不够!<br><br><input type='button' value=' 返 回 ' class='normal' onmouseover='this.className="&chr(34)&"over"&chr(34)&"' onmousedown='this.className="&chr(34)&"down"&chr(34)&"' onmouseout='this.className="&chr(34)&"normal"&chr(34)&"' onclick='javascript:history.go(-1)'></center></body></html>"
  41.                  response.end
  42.               end if
  43.               application("user" & i)=""
  44.           exit for
  45.        end if
  46.    next
  47. rs.close
  48. set rs=nothing
  49.  
  50.  
  51. sz = "'" & now &" " & request("name") &" 被 " & session("user") & " 踢出,因为 "&request("why")& "'"  
  52. my_conn.execute("insert into "&dbtable_kill&" ("&dbfield_kill_kill&") values (" & sz & ")")
  53. my_conn.close
  54. set my_conn=nothing
  55.  
  56. application("killname")=name
  57. if request("lo")="l" then application("iskillip")="yes"
  58. application.lock
  59. for i =1 to 39
  60.               application("systemsay" & i)  = application("systemsay" & i+1)
  61.           application("sexsay" & i)     = application("sexsay" &i+1)
  62.           application("me" & i)         = application("me" & i+1)
  63.           application("color" & i)      = application("color" & i+1)
  64.           application("showip" & i)     = application("showip" & i+1)
  65.           application("mood" & i)       = application("mood" & i+1)
  66.           application("to" & i)         = application("to" & i+1)
  67.           application("siliao" & i)     = application("siliao" & i+1)
  68.           application("zixiao" & i)     = application("zixiao" & i+1)
  69.           application("page" & i)       = application("page" & i+1)
  70.           application("tuan" & i)       = application("tuan" & i+1)
  71.           application("tietu" & i)      = application("tietu" & i+1)
  72.           application("saytime" & i)    = application("saytime" & i+1)
  73. next
  74.                   application("systemsay" & 40) = "yes"
  75.           application("me" & 40)        = session("user")
  76.           application("sexsay" & 40)    = session("sex")
  77.           application("color" & 40)     = "#FF0000"
  78.           application("showip" & 40)    = session("ip")
  79.           application("mood" & 40)      = ""
  80.           application("to" & 40)        = ""
  81.           application("siliao" & 40)    = ""
  82.           application("zixiao" & 40)    = ""
  83.                   if trim(request("why"))<>"" then
  84.           application("page" & 40)      = " 一脚将 "&application("killname")&" 踢出聊天室,因为“"&request("why")&"”。"
  85.           else
  86.           application("page" & 40)      = " 一脚将 "&application("killname")&" 踢出聊天室,因为“不需要理由”。"
  87.           end if
  88.           application("tuan" & 40)      = ""
  89.           application("tietu" & 40)     = ""
  90.           application("saytime" & 40)   = time
  91. application.unlock
  92. response.write "<br><center>"& name & "被踢出聊天室<br><br><input type='button' value=' 返 回 ' class='normal' onmouseover='this.className="&chr(34)&"over"&chr(34)&"' onmousedown='this.className="&chr(34)&"down"&chr(34)&"' onmouseout='this.className="&chr(34)&"normal"&chr(34)&"' onclick='javascript:history.go(-1)'></center></body></html>"
  93. response.end
  94. end if %>
  95.  
  96. <%if session("user")<>"" and session("userlevel")>6 then%>
  97. <table border="1" align="center" cellpadding="3" cellspacing="0" width="300">
  98.   <form method="POST" action="kill.asp">
  99.     <tr>
  100.      <td align="center" bgcolor="<%=m_bg1%>" style="color:<%=m_text1%>">我 要 踢 人</td>
  101.     </tr>
  102.     <tr>
  103.       <td style="padding-left:20pt">踢谁:
  104.         <select name="name">
  105.      <% for i=1 to 100
  106.         if application("user" & i) <> "" then %>
  107.      <option value='<% =application("user" & i) %>'> <% =application("user" & i) %>
  108.      <% end if
  109.         next %>
  110.      </select>
  111.         <br>
  112.         <% if session("userlevel")>7 then %> 踢法:
  113.         <input type="radio" name="lo" value="o" checked>不踢IP
  114.      <input type="radio" name="lo" value="l">踢IP
  115.      <% end if %>
  116.      <br>原因: <input type="text" name="why" size="20" maxlength=100>
  117.      <br><input type="submit" value="  踢  " class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'">
  118.      <input type="button" value="关  闭" class="normal" onmouseover="this.className='over'" onmousedown="this.className='down'" onmouseout="this.className='normal'" onClick="window.close()">
  119.      </td>
  120.     </tr>
  121.    </form>
  122.   </table>
  123.   <%end if%>
  124.  </body>
  125. </html>
downloadKILL.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