BVB Source Codes

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

Return Download V2.0 flowers chat rooms: download CONTENT.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. <%
  4. response.expires=0
  5. if session("user")<>"" and application("killname")=session("user") then
  6.    if application("iskillip")="yes" then
  7.       application("killip")=session("ip")
  8.       response.cookies("killtime")=now
  9.       response.cookies("killtime").expires= date + 30
  10.       application("iskillip")=""
  11.    end if %>
  12.           <html>
  13.       <head>
  14.       <title>错误</title>
  15.       </head>
  16.       <body bgcolor="<%=m_bg2%>" text="<%=m_text2%>">
  17.           <Script LANGUAGE="JavaScript">
  18.           <!--
  19.         setTimeout('window.parent.close();',3000);
  20.       -->
  21.           </script>
  22.       <br><br><br><center><strong>你被踢出聊天室!三十分钟后再进来!</strong></center>
  23.       </body>
  24.       </html>
  25.    <% response.end
  26. end if
  27.  
  28. if application("user"&session("id"))<>session("user") then
  29. '   response.write application("user"&i)&"<br>"
  30. '   response.write session("id")&"<br>"
  31. '   response.write session("user")&"<br>" %>
  32.           <html>
  33.       <head>
  34.       <title>错误</title>
  35.       </head>
  36.       <body bgcolor="<%=m_bg2%>" text="<%=m_text2%>">
  37.       <br><br><br><center><strong>由于聊天室无法验证您的身份,请按刷新进行再次验证!</strong></center>
  38.       </body>
  39.       </html>
  40.    <% response.end
  41. end if %>
  42.  
  43. <html>
  44. <head>
  45. <title>聊天室显示区</title>
  46. </head>
  47. <meta http-equiv=refresh content='10;url=content.asp<%if r_refresh="down" then%>#dian<%end if%>'>
  48. <style type="text/css">
  49. <!--
  50. body      { font-size: 10.4pt ; line-height:16pt ; background-color: <%=m_bg%>}
  51. A:link    { text-decoration: none ; color: #0000ff}
  52. A:visited { text-decoration: none ; color: #0000ff}
  53. A:active  { text-decoration: underline ; color: #0088ff}
  54. A:hover   { text-decoration: underline ; color: #0088ff}
  55. -->
  56. </style>
  57. <script language="JavaScript">
  58. <!--
  59. function selectwho(list)
  60. {
  61. parent.frm_input.document.forms[0].towho.text=list;
  62. parent.frm_input.document.forms[0].towho.value=list;
  63. parent.frm_input.document.forms[0].saystemp.focus();
  64. parent.overselectenable=false;  
  65. }
  66. //-->
  67. </script>
  68. </head>
  69.  
  70. <body topmargin="20">
  71. <%
  72. if trim(request("says"))<>"" and session("user")<>"" then
  73.    if session("userlevel")<7 then
  74.       inpm=Server.HTMLEncode(trim(request("says")))
  75.    else
  76.       inpm=trim(request("says"))
  77.    end if
  78.    if trim(request("fs"))<>"" and session("userlevel")>4 then zixiao=trim(request("fs"))
  79.    if trim(request("addsign"))<>"" and session("userlevel")>1 then tuan=Server.HTMLEncode(trim(request("addsign")))
  80.    if trim(request("addpic"))<>"" and session("userlevel")>2 then tietu=Server.HTMLEncode(trim(request("addpic")))
  81.    
  82.    if left(inpm,1)="/" and replace(inpm," ","")=inpm and len(inpm)<10 and session("userlevel")>3 then
  83.       set rs=server.createobject("adodb.recordset")
  84.           sql="select * from "&dbtable_function&" where "&dbfield_function_cmd&"='"&inpm&"'"
  85.           set rs=my_conn.execute(sql)
  86.           if not rs.eof then
  87.              inpm=rs(dbfield_function_xiang)
  88.          systemsay="function"
  89.          end if
  90.          rs.close
  91.          set rs=nothing
  92.          my_conn.close
  93.          set my_conn=nothing
  94.    end if
  95.    
  96.    if tietu<>"" then
  97.       tietu="<img src='images/"&tietu&"'>"
  98.    else
  99.       tietu=""
  100.    end if
  101.    if zixiao="1" then inpm="<b>"&inpm&"</b>"
  102.    if zixiao="2" then inpm="<i>"&inpm&"</i>"
  103.    if zixiao="3" then inpm="<font size=-1>"&inpm&"</font>"
  104.    if zixiao="4" then inpm="<big><big>"&inpm&"</big></big>"
  105.    if zixiao="5" then inpm="<marquee border='0' width='70%'>"&inpm&"</marquee>"
  106.    if zixiao="6" then inpm="<marquee direction='right' border='0' width='70%'>"&inpm&"</marquee>"
  107.    if zixiao="7" then inpm="<marquee behavior='alternate' border='0' width='70%'>"&inpm&"</marquee>"
  108.    if zixiao="8" then inpm="<u>"&inpm&"</u>"
  109.    
  110.    'addsing=trim(request("addsign"))           '##图案
  111.    'addsays=trim(request("addsays"))           '##表情
  112.    'addpic=trim(request("addpic"))             '##贴图
  113.    'fs=trim(request("fs"))                     '##字效
  114.    'addwordcolor=trim(request("addwordcolor")) '##颜色
  115.    'towhoway=trim(request("towhoway"))         '##私聊
  116.  
  117.  
  118.       application.lock
  119.       for i =1 to 39
  120.               application("systemsay" & i)  = application("systemsay" & i+1)
  121.           application("sexsay" & i)     = application("sexsay" &i+1)
  122.           application("me" & i)         = application("me" & i+1)
  123.           application("color" & i)      = application("color" & i+1)
  124.           application("showip" & i)     = application("showip" & i+1)
  125.           application("mood" & i)       = application("mood" & i+1)
  126.           application("to" & i)         = application("to" & i+1)
  127.           application("siliao" & i)     = application("siliao" & i+1)
  128.           application("zixiao" & i)     = application("zixiao" & i+1)
  129.           application("page" & i)       = application("page" & i+1)
  130.           application("tuan" & i)       = application("tuan" & i+1)
  131.           application("tietu" & i)      = application("tietu" & i+1)
  132.           application("saytime" & i)    = application("saytime" & i+1)
  133.       next
  134.           if systemsay="function" then
  135.           application("systemsay" & 40) = "function"
  136.           else
  137.               application("systemsay" & 40) = ""
  138.           end if
  139.           systemsay=""
  140.           application("me" & 40)        = session("user")
  141.           application("sexsay" & 40)    = session("sex")
  142.           application("color" & 40)     = Server.HTMLEncode(trim(request("addwordcolor")))
  143.           application("showip" & 40)    = session("ip")
  144.           application("mood" & 40)      = Server.HTMLEncode(trim(request("addsays")))
  145.           application("to" & 40)        = Server.HTMLEncode(trim(request("towho")))
  146.           application("siliao" & 40)    = trim(request("towhoway"))
  147.           application("zixiao" & 40)    = zixiao
  148.           application("page" & 40)      = inpm
  149.           application("tuan" & 40)      = tuan
  150.           application("tietu" & 40)     = tietu
  151.           application("saytime" & 40)   = time
  152.           application.unlock
  153.    end if
  154.  
  155.    r_title=replace(r_title," ","")
  156.  
  157. if application("title")<>"" then  response.write "<center>"&application("title")&"</center><br>"
  158. if r_refresh="down" then
  159.    for i=1 to 40 step 1
  160.    if application("systemsay"&i)<>"" or application("me"&i)<>"" or application("to"&i)<>"" or application("page"&i)<>"" then
  161.        if application("systemsay"&i)="yes" then %>
  162.           <font color=<%=application("color"&i)%>><%=r_title%>公告:<a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  163.           <%if application("sexsay"&i)="boy" then%>
  164.           #3366FF>Boy
  165.           <%else%>
  166.           #FF0000>Girl
  167.           <%end if%> <%=application("me"&i)%></font></a>
  168.                   <%if session("userlevel")>5 then%>
  169.                   <font size=-3>[<%=application("showip"&i)%>]</font>
  170.                   <%end if%>
  171.           <%=application("page"&i)%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  172.        <% elseif application("systemsay"&i)="function" then%>
  173.               <font color=<%=application("color"&i)%>>
  174.           <%if application("sexsay"&i)="boy" then
  175.                        functioncolor="<font color=#3366FF>"
  176.                         else
  177.                            functioncolor="<font color=#FF6060>"
  178.                         end if
  179.                         functionuser=application("me"&i)
  180.                         if session("userlevel")>5 then
  181.                            functionip="<font size=-3>["&application("showip"&i)&"]</font>"
  182.                            else
  183.                            functionip=""
  184.                            end if
  185.                            if application("me"&i)=session("user") then
  186.                               changefunction="〖<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='选取"&functionuser&" 作为谈话对象'>"&functioncolor&functionuser&"</font></a>〗"&functionip&" "
  187.                else
  188.                              changefunction="<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='选取"&functionuser&" 作为谈话对象'>"&functioncolor&functionuser&"</font></a>"&functionip&" "
  189.                  end if
  190.                    response.write replace(replace(application("page"&i),"var_who",changefunction),"var_to",application("to"&i))%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  191.            <%
  192.            else
  193.            if application("to"&i)="大家" then %>
  194.                     <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  195.                 <%if application("sexsay"&i)="boy" then%>
  196.                 #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
  197.                 <%end if%><%=application("mood"&i)%>对 大家 说:
  198.                 <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  199.                 <%
  200.            else
  201.           if application("siliao"&i)="yes" then
  202.              if application("me"&i)=session("user") or application("to"&i)=session("user") then%>
  203.                 →<font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  204.                 <%if application("sexsay"&i)="boy" then%>
  205.                 #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
  206.                 <%end if%><%=application("mood"&i)%><%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>悄悄说:
  207.                 <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  208.                 <%end if%>
  209.              <%else%>
  210.                 <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  211.                 <%if application("sexsay"&i)="boy" then%>
  212.                 #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
  213.                 <%end if%><%=application("mood"&i)%><%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>说:
  214.                 <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  215.              <%end if
  216.                   end if
  217.        end if
  218.    else
  219.    end if
  220.    next
  221. else
  222.    for i=40 to 1 step -1
  223.    if application("systemsay"&i)<>"" or application("me"&i)<>"" or application("to"&i)<>"" or application("page"&i)<>"" then
  224.        if application("systemsay"&i)="yes" then %>
  225.           <font color=<%=application("color"&i)%>><%=r_title%>公告:<a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  226.           <%if application("sexsay"&i)="boy" then%>
  227.           #3366FF>Boy
  228.           <%else%>
  229.           #FF6060>Girl
  230.           <%end if%> <%=application("me"&i)%></font></a>
  231.                   <%if session("userlevel")>5 then%>
  232.                   <font size=-3>[<%=application("showip"&i)%>]</font>
  233.                   <%end if%>
  234.           <%=application("page"&i)%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  235.        <% elseif application("systemsay"&i)="function" then%>
  236.               <font color=<%=application("color"&i)%>>
  237.           <%if application("sexsay"&i)="boy" then
  238.                        functioncolor="<font color=#3366FF>"
  239.                         else
  240.                            functioncolor="<font color=#FF6060>"
  241.                         end if
  242.                         functionuser=application("me"&i)
  243.                         if session("userlevel")>5 then
  244.                            functionip="<font size=-3>["&application("showip"&i)&"]</font>"
  245.                            else
  246.                            functionip=""
  247.                            end if
  248.                            if application("me"&i)=session("user") then
  249.                               changefunction="〖<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='选取"&functionuser&" 作为谈话对象'>"&functioncolor&functionuser&"</font></a>〗"&functionip&" "
  250.                else
  251.                              changefunction="<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='选取"&functionuser&" 作为谈话对象'>"&functioncolor&functionuser&"</font></a>"&functionip&" "
  252.                  end if
  253.                    response.write replace(replace(application("page"&i),"var_who",changefunction),"var_to",application("to"&i))%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  254.            <%
  255.            else
  256.            if application("to"&i)="大家" then %>
  257.                     <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  258.                 <%if application("sexsay"&i)="boy" then%>
  259.                 #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
  260.                 <%end if%><%=application("mood"&i)%>对 大家 说:
  261.                 <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  262.                 <%
  263.            else
  264.           if application("siliao"&i)="yes" then
  265.              if application("me"&i)=session("user") or application("to"&i)=session("user") then%>
  266.                 →<font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  267.                 <%if application("sexsay"&i)="boy" then%>
  268.                 #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
  269.                 <%end if%><%=application("mood"&i)%><%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>悄悄说:
  270.                 <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  271.                 <%end if%>
  272.              <%else%>
  273.                 <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="选取 <%=application("me"&i)%> 作为谈话对象"><font color=
  274.                 <%if application("sexsay"&i)="boy" then%>
  275.                 #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
  276.                 <%end if%><%=application("mood"&i)%><%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>说:
  277.                 <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
  278.              <%end if
  279.                   end if
  280.        end if
  281.    else
  282.    end if
  283.    next
  284. end if
  285. response.write r_link
  286.  %>
  287.    <a name="dian"></a>
  288. </body>
  289. </html>
downloadCONTENT.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