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

📄 index1.htm

📁 聊天功能的实现
💻 HTM
📖 第 1 页 / 共 2 页
字号:
<html>
<head>
<script Language="JavaScript">
var isFilter=false;
var IMGU="", oldmsg="", talkto="", ecount=0;
var t1=0, t2=0;	/* 限制发言速度*/
var MLoop=1;	/* 音乐播放次数*/
var max=50, whatSay = new Array(max+1), base=0, p=0, j;

function FP(){
if(document.f1.DS.checked){
tar.location.replace("fp1");}
else{tar.location.replace("fp0");}
}

function Play(url)
	{
	music.document.open();
	music.document.writeln("<HTML><BODY>") ;
	music.document.writeln("<BGSOUND LOOP=" + MLoop + " SRC=" + url + ">") ;
	music.document.writeln("</BODY></HTML>") ;
	music.document.close();
	}

function setFocus(){
document.f1.MSG.focus();
}

function addOne(what){if (base<max+1){whatSay[base]=what;base++;}else{for (i=0;i<max;i++)whatSay[i]=whatSay[i+1]; whatSay[i]=what;}p=base;}
function gN(){if (p<base) p++;document.f1.MSG.value=whatSay[p];document.f1.MSG.focus();}
function gP(){if (p>0) p--;document.f1.MSG.value=whatSay[p];document.f1.MSG.focus();}

function checksays(){
var fm2=document.f1;
setFocus();
if(fm2.MSG.value==""){return false}
fm2.SAYS.value=fm2.MSG.value;
fm2.MSG.value="";
fm2.ACT.value="#";
if(IMGU==""){fm2.IMGURL.value="";}
else{fm2.IMGURL.value=IMGU;}
IMGU="";

var str1 = fm2.SAYS.value ;
	var s,bw,st,re;
    s='贱人/狗娘/婊子/表子/傻逼/妓/去死/你爷/你奶/妈的/王八/靠你/操你/叉你/叉死/插你/插死/干你/干死/日你/日死/做爱/性交/口交/鸡巴/睾丸/包皮/龟头/射精/受精/授精/精子/卵子/阴茎/阴道/屄/赑/妣/肏/奶头/奶子/乳房/尻/屌/fuck';
	bw=s.split('/');
	s='';
	st=str1;
	for(i=0;i<st.length;i++) 
	{
		k=st.charCodeAt(i); 
		if(k<0||k>255) s+=st.charAt(i);
	}
	for(i=0;i<bw.length;i++) 
	{
		re=new RegExp(bw[i],'gi');
		if(s.search(re)>=0) 
		{
			s='findbadword'; 
			break;
		}
	}
	if(s=='findbadword')
	{
		ecount=ecount+1; 
		if (ecount>0) 
		{ 
			if (ecount!=5) {alert("您第"+ecount+"次发言内容不健康!5次以上将被请出去!"); return false}
			if(ecount>=5) 
			{
			alert("发言内容不健康超过5次!您出去吧!"); 
			
			top.close();
			}
		}
	}

if((str1==oldmsg)&&(fm2.ToWho.value==talkto)&&(str1.substring(0,2)!="//")&&(str1.substring(0,2)!="##"))
	{alert("发言内容不能重复!"); return false;}
oldmsg=str1;
talkto=fm2.ToWho.value;
addOne(fm2.SAYS.value);
if(!checkspeed(str1))	return false;
startnosay();
}

function sayto(s){
document.f1.ToWho.value=s.substring(1,s.length-1);
setFocus();
}

function getimgurl(p) {
imgurl = prompt(p,'http://'); 
if(imgurl==null){
imgurl='http://';} 
if(imgurl=='http://'){
IMGU='';}
else {
IMGU=imgurl;}
setFocus();
}
function openwin(page) {window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=120,left=240,width=380,height=270");}
function openwinm(page) {window.open(page,"new1","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=120,left=240,width=360,height=250");}
</script>

<title>Delphi聊天室</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<style type="text/css">
BODY {FONT-FAMILY: Tahoma,Verdana,MS Sans Serif,Courier New; FONT-SIZE: 9pt}
A:link {TEXT-DECORATION: none}
A:visited {TEXT-DECORATION: none}
A:hover {COLOR: #999999; TEXT-DECORATION: underline}
TR {FONT-SIZE: 9pt}
TD {FONT-SIZE: 9pt}
P {FONT-SIZE: 9pt}
.F {font-family:宋体; font-size : 9pt;}
INPUT.file {BACKGROUND-COLOR: #f0f0f0; }
SELECT {BACKGROUND-COLOR: #f0f0f0; }
.notice {BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #202020 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #202020 1px solid; OVERFLOW: visible}
.outter {BACKGROUND-COLOR: #cecece}
.cell {BACKGROUND-COLOR: #cecece}
</style>
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="#EBF4D5" aLink="#000000" bgColor="#ffffff" link="#000000" text="#000000" vLink="#000000" topmargin="0" leftmargin="0">
<form method="POST" name=f1 action="say" target="tar" onsubmit="return(checksays());" align="left">
<table border="0" cellPadding="0" cellSpacing="0" class="outter" width="100%" height="100%">
<tr height="1">
<td width="100%" height="55" colSpan="3">
<iframe border="0" frameBorder="0" height="55" marginHeight="0" marginWidth="0" scrolling="no" src="http://211.167.134.214/chat/banner.htm" name="banner" width="100%"></iframe>
</td>
</tr>

 <tr height="1">
  <td width="100%" Height="1" colSpan="3" bgcolor=black></td>
 </tr>


 <tr>
  <td width="100%" colSpan="3"><iframe border="0" frameBorder="0" height="100%" marginHeight="0" marginWidth="0" scrolling="NO" src="tl" name="TL" width="100%"></iframe></td>
 </tr>



<tr height="1">
<td width="100%" height="15">
	<iframe border="0" frameBorder="0" height="17" marginHeight="0" marginWidth="0" scrolling="no" src="about:blank" name="title" width="100%"></iframe>
</td>

<td width="102" height="15">
<iframe border="0" frameBorder="0" height="17" marginHeight="0" marginWidth="0" scrolling="no" src="about:blank" name="roomname" width="102"></iframe>
</td>

<td>
  <input type="text" name="clock"
  style="text-align:right;font-size:9pt;background-color:#3874d8;color:#f0f0f0;HEIGHT:17px;border: 0 double" value size="3" readonly></td>
</tr>

<tr>
<td colSpan="3" height="50">

<table border="0" cellPadding="2" cellSpacing="1" class="outter" width="100%">
 <tr height="1" align="middle" bgColor="#e0e0e0">
  <td height="1" width="1"><nobr><select name="SayColor" onChange="setFocus();" style="font-size:12px" size="1">
<option style="color:#000000" value="#000000">对话</option>
<option style="color:#000000" value="#000000">黑色</option>
<option style="color:#0088FF" value="#0088FF">海蓝</option>
<option style="color:#0000FF" value="#0000FF">亮蓝</option>
<option style="color:#000088" value="#000088">深蓝</option>
<option style="color:#888800" value="#888800">黄绿</option>
<option style="color:#008888" value="#008888">蓝绿</option>
<option style="color:#008800" value="#008800">橄榄</option>
<option style="color:#8888FF" value="#8888FF">淡紫</option>
<option style="color:#AA00CC" value="#AA00CC">紫色</option>
<option style="color:#8800FF" value="#8800FF">蓝紫</option>
<option style="color:#888888" value="#888888">灰色</option>
<option style="color:#FF8800" value="#FF8800">金黄</option>
<option style="color:#bb0000" value="#bb0000">棕红 </option>
  </select></nobr></td>
 <td align="left" height="1"><font class="table"><input type="text" name="MSG" style="font-size:12px;" size="55" MAXLENGTH="120"><input type="submit" value="发言" style="background-image: url('<%IMGURL%>/Images/m.gif'); border-style: solid; border-width: 0;HEIGHT:20px; WIDTH: 39px" style="font-size:12px"></font><font style="font-family:宋体;font-size:9pt;"> <a href="#" onclick="gP()"><<</a>
<a href="#" onclick="gN()">>></a></font>
</td>

<td height="1" align="right">
<font class=F><a href="music" onClick="javascript:top.TL.list=false" target="online"><img align="absMiddle" border="0" height="16" src="<%IMGURL%>/Images/message.gif" width="16"> 点歌 </a><a href="cfg" onClick="javascript:top.TL.list=false" target="online"><img align="absMiddle" border="0" height="16" src="<%IMGURL%>/Images/set.gif" width="16"> 设置 </a><a href="#" onClick="javascript:getimgurl('请输入图片的URL: (可使用密谈发给指定聊友)')"><img align="absMiddle" border="0" height="16" src="<%IMGURL%>/Images/chick.gif" width="16"></a><a href="<%IMGURL%>/admin/pic.htm" onClick="javascript:top.TL.list=false" target="online"> 贴图 </a><a href="room" onClick="javascript:top.TL.list=false" target="online"><img align="absMiddle" border="0" height="16" src="<%IMGURL%>/Images/room.gif" width="16"> 房间 </a><a href="javascript:parent.TL.writelist(); top.TL.list=true" target="tar"><img align="absMiddle" border="0" height="16" src="<%IMGURL%>/Images/admin.gif" width="16"> 名单</a>&nbsp;</font>
   </td></tr>
   <tr height="1" align="middle" bgColor="#e0e0e0">
   <td height="15"><nobr><select name="WordColor" onChange="setFocus();" style="font-size:12px" size="1">
<option style="color:#FF8800" value="#FF8800">姓名</option>
<option style="color:#000000" value="#000000">黑色</option>
<option style="color:#0088FF" value="#0088FF">海蓝</option>
<option style="color:#0000FF" value="#0000FF">亮蓝</option>
<option style="color:#000088" value="#000088">深蓝</option>
<option style="color:#888800" value="#888800">黄绿</option>
<option style="color:#008888" value="#008888">蓝绿</option>
<option style="color:#008800" value="#008800">橄榄</option>
<option style="color:#8888FF" value="#8888FF">淡紫</option>
<option style="color:#AA00CC" value="#AA00CC">紫色</option>
<option style="color:#8800FF" value="#8800FF">蓝紫</option>

⌨️ 快捷键说明

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