⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 chat.asp

📁 基于ASP开发的聊天室源码
💻 ASP
📖 第 1 页 / 共 5 页
字号:
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Dim myonline,line,onlineno,i,o
If Not IsArray(Session("info")) Then Response.Redirect "err.asp?kind=20"
info = Session("info")
If InStr(Application("maninfo"),"," & info(0) & ",") <> 0 Then Response.Redirect "manyou.asp"
%>
<!--#INCLUDE FILE="config.asp" -->
<%
myonline = info(0) & "|" & info(4) & "|" & info(5) & "|" & info(1) & "|" & info(9) & "|" & info(12)
info(8) = Application("zzbird_line")
If info(3) = "n" Then
	intochat = Replace(zzbird_intochat,"(name)"," <img border='0' height='16' width='16' src='images/ICO/" & info(4) & "-2.gif'><a target=l3 href=javascript:parent.l3.selectuser('[" & info(0) & "]');><font color=#d90000>" & info(0) & "</font></a> ")
	Application.Lock
	online = Application("online" & info(7))
	onlineno = UBound(online) + 1
	ReDim Preserve online(onlineno)
	online(onlineno) = myonline
	Application("online" & info(7)) = online
	Application("zzbird_name_" & info(7)) = Application("zzbird_name_" & info(7)) & "," & info(0) & ","
	Application("zzbird_name") = Application("zzbird_name") & "," & info(0) & ","
	words = Application("zzbird_words")
	line = Application("zzbird_line")
	Application("zzbird_line") = line + 1
	For i = 1 To 234
		words(i) = words(i+6)
	Next
	words(235) = line + 1
	words(236) = info(0)
	words(237) = myonline
	words(238) = "add"
	words(239) = "[<img src='images/sys.gif'>公告]" & intochat & "<font style='font-size: 8pt' color='#808080'>(" & CStr(time) & ")</font><bgsound src='other/in.mid' loop='1'>"
	words(240) = info(6)
	Application("zzbird_words") = words
	Application.UnLock
	info(3) = "y"
Else
	online = Application("online" & info(7))
	onlineno = UBound(online)
End If
Session("info") = info
%>
<html>
<head>
<title>
<%=zzbird_chatroomname%>
</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script Language="JavaScript">
var boycolor="#FFFF00"; //男孩的显示颜色
var girlcolor="#FFCCFF"; //女孩的显示颜色
var unknowcolor="#FFFFFF"; //性别保密的颜色
var autowords=new Array();
var mygrade = ",<%=info(1)%>,"
var man_say = "<%=Application("zzbird_man_say")%>"
var man_title = "<%=Application("zzbird_man_title")%>"
var man_texiao = "<%=Application("zzbird_man_texiao")%>"
var man_pic = "<%=Application("zzbird_man_pic")%>"
var man_selftouxian = "<%=Application("zzbird_man_selftouxian")%>"
var man_touxian = "<%=Application("zzbird_man_touxian")%>"
var man_kick = "<%=Application("zzbird_man_kick")%>"
var man_ip = "<%=Application("zzbird_man_ip")%>"
var man_hongzha = "<%=Application("zzbird_man_hongzha")%>"
var man_html = "<%=Application("zzbird_man_html")%>"
var chatroomname = "<%=zzbird_chatroomname%>"
var nowroom = "<%=info(6)%>"
var automan = "<%=info(10)%>"
var selfname = "<%=info(0)%>"
var hang = 1
var howmanytime = 0
var picstar = 0
var picstars = 0
var timev = "<%=time%>"
var songs = 1
var font_size = "<%=zzbird_chatfontsize%>"
var chattimeout = <%=zzbird_timeout%>
var autoword = ""
var mumode = 1
var zuomode = 1
var showmode = "nobadman"
var fpmode = 0
<%
If Request("fp")<>"" then
	Response.Write "var fpmode2 = 0"
Else
	Response.Write "var fpmode2 = 1"
End If
%>
var atview = 1
var clsmax= <%=zzbird_clsmax%>
var clsok = 0
var online = new Array();
<%
For o = 1 To onlineno
	Response.Write "online[" & o-1 & "] = " & chr(34) & online(o) & chr(34) & ";" & chr(13) & chr(10)
Next
%>
var zzbird_name = "<%=Application("zzbird_name_" & info(7))%>"
var friendlist = "<%=info(13)%>"
var unfriendlist = "<%=info(14)%>"
var outdown1 = "[<img src='images/sys.gif'>掉线]<%=zzbird_outdown%><bgsound src='other/drop.wav' loop='1'>"
var canreload= 1
var canshowit = ""
var MSIEIndex = navigator.userAgent.indexOf("MSIE");
var bver=parseFloat(navigator.userAgent.substring((MSIEIndex + 5),(MSIEIndex + 8)))
var onno;
var info_tx;
var show1;
var show2;
var show3;
var show4;
var show5;
var words;
var hename;
var fs;
var namecolor;
var saycolor;

<%
If Request("fp") <> "" Then Response.Write "fpmode=" & Request("fp")
%>

function writetitle(titleword)
{
this.l1.document.open();
this.l1.document.writeln("<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=gb2312\"><title>标题区</title>");
this.l1.document.writeln("<style type=text/css>body{font-family:\"宋体\";font-size:10pt;}A{text-decoration:none}A:Hover{text-decoration:underline}A:visited{color:blue}</style><\script>function ctlent(eventobject){if(event.ctrlKey){self.event.returnValue=false}}<\/script></head>");
this.l1.document.writeln("<body onkeydown=\"ctlent()\" topmargin=\"2\" bgcolor=\"<%=zzbird_titlebg%>\" text=\"<%=zzbird_titletext%>\" <%if zzbird_titlebgpic<>"" then%> background=\"<%=zzbird_titlebgpic%>\" bgproperties=fixed<%end if%>>");
this.l1.document.writeln("<p align=\"center\">"+titleword+"</p>");
this.l1.document.writeln("</body></html>");
this.l1.document.close();
}

function showplace(){
if(atview==1){this.r1.document.open();
this.r1.document.writeln("<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=gb2312\"><title>title</title><style><!--body{font-family:'宋体';SCROLLBAR-HIGHLIGHT-COLOR:buttonface;SCROLLBAR-SHADOW-COLOR:buttonface;SCROLLBAR-3DLIGHT-COLOR:buttonhighlight;SCROLLBAR-TRACK-COLOR:#eeeeee;SCROLLBAR-DARKSHADOW-COLOR:buttonshadow}A:visited{font-family:'宋体';color:<%=zzbird_chattext%>;font-size:10pt;TEXT-DECORATION: none}A:active{font-family:'宋体';color:<%=zzbird_chattext%>;font-size:10pt;TEXT-DECORATION: none}A:hover{font-family:'宋体';color:<%=zzbird_chattext%>;font-size:10pt;TEXT-DECORATION:none}A:link{font-family:'宋体';color:<%=zzbird_chattext%>;font-size:10pt;text-decoration: none;}");
this.r1.document.writeln("");
this.r1.document.writeln(".skin0{");
this.r1.document.writeln("position:absolute;");
this.r1.document.writeln("width:0px;");
this.r1.document.writeln("border:2px solid black;");
this.r1.document.writeln("background-color:menu;");
this.r1.document.writeln("font-family:Verdana;");
this.r1.document.writeln("line-height:20px;");
this.r1.document.writeln("cursor:default;");
this.r1.document.writeln("visibility:hidden; font-size:10pt}");
this.r1.document.writeln(".skin1{");
this.r1.document.writeln("cursor: default;");
this.r1.document.writeln("position: absolute;");
this.r1.document.writeln("width: 90px;");
this.r1.document.writeln("background-color: menu;");
this.r1.document.writeln("visibility:hidden;");
this.r1.document.writeln("border: 2px outset buttonhighlight; font-style:normal; font-variant:normal; font-weight:normal; font-size:10pt}");
this.r1.document.writeln(".menuitems{");
this.r1.document.writeln("padding-left:15px;");
this.r1.document.writeln("padding-right:10px; font-size:10pt}");
this.r1.document.writeln("--></style>");
this.r1.document.writeln("<\script language=\"javascript\">");
this.r1.document.writeln("parent.atview=1;");
this.r1.document.writeln("var menuskin=1");
this.r1.document.writeln("var display_url=0");
this.r1.document.writeln("function showmenuie5(){");
this.r1.document.writeln("var rightedge=document.body.clientWidth-event.clientX");
this.r1.document.writeln("var bottomedge=document.body.clientHeight-event.clientY");
this.r1.document.writeln("if (rightedge<ie5menu.offsetWidth){ie5menu.style.left=document.body.scrollLeft+event.clientX-ie5menu.offsetWidth}");
this.r1.document.writeln("else{ie5menu.style.left=document.body.scrollLeft+event.clientX}");
this.r1.document.writeln("if (bottomedge<ie5menu.offsetHeight)");
this.r1.document.writeln("{ie5menu.style.top=document.body.scrollTop+event.clientY-ie5menu.offsetHeight}");
this.r1.document.writeln("else{ie5menu.style.top=document.body.scrollTop+event.clientY}");
this.r1.document.writeln("ie5menu.style.visibility=\"visible\"");
this.r1.document.writeln("return false}");
this.r1.document.writeln("function hidemenuie5(){ie5menu.style.visibility=\"hidden\"}");
this.r1.document.writeln("function highlightie5(){if (event.srcElement.className==\"menuitems\"){event.srcElement.style.backgroundColor=\"highlight\"");
this.r1.document.writeln("event.srcElement.style.color=\"white\"");
this.r1.document.writeln("if (display_url==1){window.status=event.srcElement.url}}}");
this.r1.document.writeln("function lowlightie5(){if (event.srcElement.className==\"menuitems\"){event.srcElement.style.backgroundColor=\"\"");
this.r1.document.writeln("event.srcElement.style.color=\"black\"");
this.r1.document.writeln("window.status=''}}");
this.r1.document.writeln("function jumptoie5(){if (event.srcElement.className==\"menuitems\"){");
this.r1.document.writeln("if (event.srcElement.getAttribute(\"target\")!=null)");
this.r1.document.writeln("window.open(event.srcElement.url,event.srcElement.getAttribute(\"target\"))");
this.r1.document.writeln("else window.location=event.srcElement.url}}");
this.r1.document.writeln("function ctlent(eventobject){if(event.ctrlKey){self.event.returnValue=false}}<\/script>");
this.r1.document.writeln("</head><body onkeydown=\"ctlent()\" oncontextmenu=\"self.event.returnValue=false;parent.l3.document.allsay.saysword.focus()\" onclick=\"hidemenuie5();\" onload=\"parent.atview=1;ie5menu.style.top='0';ie5menu.style.left='0';\" onunload='parent.atview=0;' bgcolor='<%=zzbird_chatbg%>' <%if zzbird_chatbgpic<>"" then%>background='<%=zzbird_chatbgpic%>' <%end if%>text='<%=zzbird_chattext%>' topmargin='6' leftmargin='6'>");
this.r1.document.writeln("<div align='center'><font style='FONT-SIZE: 11.5pt' class='bird'>"+chatroomname+"</font><hr color='#000000' size='1'><font style='font-size:10pt' class='bird'>【"+nowroom+"】</font><br><font style='FONT-SIZE: 10pt' class='bird'><b><font id='nowcount'></font></b>人在线</font><br><a style=\"font-size:9pt;CURSOR: hand;\" class='bird' onclick=\"javascript:parent.updatenamelist();\">同步服务器</a></div>");
this.r1.document.write("<br><a class='bird' target='l3' href=javascript:parent.l3.selectuser('[大家]'); title='对大家发言'>");
if(this.l3.document.allsay.ico.checked)
{this.r1.document.write("<img border='0' src='images/ICO/0-2.gif' width='16' height='16'>");}
this.r1.document.write(" 大家</a><br><a class='bird' href=javascript:parent.l3.selectuser('["+automan+"]'); target='l3' title='对"+automan+"发言(陪聊机器人)'>");
if(this.l3.document.allsay.ico.checked)
{this.r1.document.write("<img border='0' src='images/ICO/40-2.gif' height='16' width='16'>");}
this.r1.document.write(" "+automan+" <font color='#CCCCCC' style='font-size: 9pt'>陪聊</font></a><br>");
this.r1.document.writeln("<div id='list' class='bird'></div>");
this.r1.document.writeln("<div id=\"ie5menu\" class=\"skin0\" onMouseover=\"highlightie5()\" onMouseout=\"lowlightie5()\" onClick=\"jumptoie5()\">");
this.r1.document.writeln("<div id=\"m1\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.opensong();\">发送点歌</div>");
this.r1.document.writeln("<div id=\"m2\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.opencall();\">呼叫该人</div>");
this.r1.document.writeln("<div id=\"m3\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.addfriend();\">加为好友</div>");
this.r1.document.writeln("<div id=\"m4\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.delfriend();\">解除好友</div>");
this.r1.document.writeln("<div id=\"m5\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.addbadman();\">列为坏人</div>");
this.r1.document.writeln("<div id=\"m6\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.delbadman();\">解除坏人</div>");
this.r1.document.writeln("<div id=\"m7\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.mantouxian();\">管理头衔</div>");
this.r1.document.writeln("<div id=\"m8\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.mankick();\">踢出该人</div>");
this.r1.document.writeln("<div id=\"m9\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.manip();\">封锁IP</div>");
this.r1.document.writeln("<div id=\"m10\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.manzha();\">轰炸该人</div>");
this.r1.document.writeln("<div id=\"m11\" style=\"color: #000000\" class=\"menuitems\" url=\"javascript:parent.openwin1();\">详细资料</div></div>");
this.r1.document.writeln("<br><br><hr><div style='font-size:9pt'>");
this.r1.document.writeln("<img border=\"0\" src=\"images/self.gif\" width=\"12\" height=\"11\"> 自己<br>");
this.r1.document.writeln("<img border=\"0\" src=\"images/friend.gif\" width=\"16\" height=\"15\"> 好友 (<a style=\"font-size:9pt\" href=\"javascript:parent.showfriendlist();\">查看</a>/<a href=\"javascript:parent.addfriend2('');\">添加</a>)<br>");
this.r1.document.writeln("<img border=\"0\" src=\"images/badman.gif\" width=\"16\" height=\"15\"> 坏人 (<a style=\"font-size:9pt\" href=\"javascript:parent.showbadmanlist();\">查看</a>/<a href=\"javascript:parent.addbadman2('');\">添加</a>)<br> (注:坏人默认不显示)</div>");
this.r1.document.writeln("<\script language=\"JavaScript1.2\">");

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -