帮忙改程序，高分~~改简单的聊天室程序

gyzrich 2003-03-29 10:28:07
要求改成：私聊功能可用，能够正常聊天，无刷新，不用数组存储所有对话，应该存储单个对话，总之和一般的无刷新聊天室基本一样就行了，我实在是改的头疼了，菜呀~~
===============================================================
index.asp入口文件
------------------------------------------------------------
<form action="enter.asp">
<Font color="#FF0000"><center><%If Not IsEmpty(Session("pplchatmess")) Then Response.Write(Session("pplchatmess")&"<BR>"):Session("pplchatmess")=Empty%></center></font>
<table width="345" height="127" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#F0E0F0">
<tr align="center" bgcolor="#000000">
<td colspan="2"><font color="#FFFFFF"><Big>聊天广场</Big></font></td>
</tr>
<tr bgcolor="#FF6600">
<td> <font color="#FFFFFF">您在聊天室中使用的名字:</font></td>
<td><input type="text" name="UserName" value=""><BR></td></tr><tr bgcolor="#FF6600">
<td> <font color="#FFFFFF">希望进入的聊天室:</font></td>
<td>

<select name="CRNAME">
<option value="情人世界">情人世界<%If Application("情人世界"&"usernum")>0 then Response.Write("["&Application("情人世界"&"usernum")&"]")%></option>
<option value="白领公寓">白领公寓<%If Application("白领公寓"&"usernum")>0 then Response.Write("["&Application("白领公寓"&"usernum")&"]")%></option>
<option value="三十而立">三十而立<%If Application("三十而立"&"usernum")>0 then Response.Write("["&Application("三十而立"&"usernum")&"]")%></option>
<option value="情感天地">情感天地<%If Application("情感天地"&"usernum")>0 then Response.Write("["&Application("情感天地"&"usernum")&"]")%></option>
</select>
<input name="sex" type="radio" value="男" checked>
男
<input type="radio" name="sex" value="女">
女 </td>
</tr><tr align="center" bgcolor="#FF6600"><td colspan="2">
<input type="submit" value="进入聊天室"></td></tr></table>
</form>
===================================================================
enter.asp引导文件
------------------------------------------------------------------
<%
'If1
If len(Request("UserName"))=0 or len(Request("CRNAME"))=0 then
Session("PPLCHATMESS")="请输入你在聊天室中使用的名字"
Response.Redirect("index.asp")
End If
'EIf1
sex=request("sex")
uname=request("username")&"("&sex&")"

Session("CRNAME")=Server.HtmlEncode(Request("CRNAME"))
Session("username")=Server.HtmlEncode(uname)

'IF1
If IsEmpty(Application(SESSION("CRNAME")&"sentences")) then'如果房间没有人则执行下列代码

dim sentences(60)'定义sentences句子数组
dim whotowho(60,2)'定义交谈双方数组
dim OUN(60) 'Online User Name在线用户数组
dim OULT(60) 'Online User Last Timer
OUN(1)=Session("username")
OULT(1)=Now
cur=1'数组指针
sentences(cur)="<font color=#FF0000>GYZ CHAT Service Running at "&Now&"</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"
cur=cur+1'计数器指针+1
If cur>60 then cur=1
sentences(cur)="<font color=#FF0000>[系统公告]</font>"&Session("username")&"刚刚进入<u>"&Session("CRNAME")&"</u>……<font color=#B0B0B0>("&Now&")</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"
Application.Lock
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"usernum")=1
Application.UnLock

else

OUN=Application(SESSION("CRNAME")&"OUN")
OULT=Application(SESSION("CRNAME")&"OULT")
for i=1 to 60
'IF2
If Session("username")=OUN(i) and abs(DateDiff("s",OULT(i),Now))<130 then
Session("PPLCHATMESS")="已经有人正在使用<font color=#0000FF>"&Session("username")&"</font>这个名字在本聊天室聊天，请换用其它名字登录。"
Response.Redirect("index.asp")
End If
'EIF2
next
'检测人数是否超出最大限量（60）
'IF2
If Application(SESSION("CRNAME")&"usernum")>=59 then
Session("PPLCHATMESS")="对不起本聊天室已经满员，请进入其它聊天室。"
Response.Redirect("index.asp")
End If
'EIF2

usernum=0 '在线人数

OUN=Application(SESSION("CRNAME")&"OUN")
OULT=Application(SESSION("CRNAME")&"OULT")
sentences=Application(SESSION("CRNAME")&"sentences")
cur=Application(SESSION("CRNAME")&"cur")
whotowho=Application(SESSION("CRNAME")&"whotowho")

for i=1 to 60
If len(OUN(i))>0 then usernum=usernum+1 '统计在线人数
next

'删除过期聊天用户
for i=usernum to 1 step -1
If abs(DateDiff("s",OULT(i),Now))>60 then
cur=cur+1
if cur>60 then cur=1
sentences(cur)="<font color=#FF0000>[公告]</font>"&OUN(i)&"刚刚离开<u>"&Session("CRNAME")&"</u>……<font color=#B0B0B0>("&OULT(i)&")</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"
for os=i to usernum-1
OUN(os)=OUN(os+1)
OULT(os)=OULT(os+1)
next

OUN(usernum)=EMPTY
OULT(usernum)=EMPTY
usernum=usernum-1
End If
next

End If
'EIF1

Application.Lock
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"usernum")=usernum
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application.unLock

Response.Redirect("chat.asp")
%>
=========================================================================
chat.asp聊天框架文件
----------------------------------------------------------------------
<%Response.Expires=0%>

<html>
<head>
<meta http-equiv="Content-Type" content='text/html; charset=gb2312'>
<title><%=Session("CRNAME")%></title>
<frameset cols='*,100' framespacing=4 frameborder=yes border=4 bordercolor="#000000">
<frameset rows='*,0,80' id="topframeset" cols="*" framespacing=0 frameborder=0 border=0>
<frameset rows="7,268">
<frame src="f_top.asp" name="f_top" id="f_top">
<frame src='f1.asp' name='f1'>
</frameset>
<frame src="about:<body bgcolor=#f2f2f2>blank" name="f_me" scrolling="auto" id="f_me" style="border-top: 3 dashed #80b888; bgcolor:#ffff00">
<frame src='f2.asp' name='f2' frameborder="yes" scrolling='no' bordercolor="f2f2f2">
</frameset>
<frameset rows='*,90' border=0 frameborder=0 framespacing=0 >
<frame src='f3.asp' name='f3' marginheight=10 marginwidth=5>
<frame src='f4.asp' name='f4' marginwidth=0 scrolling='no'>
</frameset>
</frameset><noframes></noframes>
</head>
</html>
...全文
59 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
ruihuahan 2003-07-15
  • 打赏
  • 举报
 回复
up
rib213 2003-07-15
  • 打赏
  • 举报
 回复
无刷新用inerhtml
gyzrich 2003-03-30
  • 打赏
  • 举报
 回复
再顶
gyzrich 2003-03-30
  • 打赏
  • 举报
 回复
t
gyzrich 2003-03-29
  • 打赏
  • 举报
 回复
jtmoon(逍遥小贼)
你把它粘贴下来，用dwmx查看，其实很短的~~我的Mail: richmedia@eyou.com:)
逍遥小贼 2003-03-29
  • 打赏
  • 举报
 回复
不是吧，你这样问问题也太夸张了，呵呵，太长，看得头大：）
gyzrich 2003-03-29
  • 打赏
  • 举报
 回复
f4.asp手动刷新
--------------------------------

<table border="0" cellpadding="0">
<tr>
<td>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#CCCCCC" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80">
<tr>
<td>
<div align="center" class="p9"><a href="f3.asp" onMouseOver="window.status='立即刷新在线名单，默认为每20秒刷新一次。';return true" onMouseOut="window.status='';return true" target='f3'>刷新名单区</a></div>
</td>
</tr>
<tr>
<td class="p9">
<div align="center"><a href="f1.asp" onMouseOver="window.status='立即刷新对话区内容，默认为每12秒刷新一次。';return true" onMouseOut="window.status='';return true" target='f1'>刷新对话区</a></div>
</td>
</tr>
<tr>
<td class="p9">
<div align="center"><a href="javaScript:window.close()" onMouseOver="window.status='从在线名单中删除并且关闭窗口，离开聊天室。';return true" onMouseOut="window.status='';return true" target=_top>离开聊天室</a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
gyzrich 2003-03-29
  • 打赏
  • 举报
 回复
f3.asp显示在线人数及名单
----------------------------------------
<%Response.Expires=0
If IsEmpty(Session("UserName")) then Response.End%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<meta http-equiv=refresh content='20;url=f3.asp'>
<meta http-equiv="pragma" content="no-cache">
<style type="TEXT/CSS">
<!--
body,table {color:#000000;font-family: "宋体_GB2312"; font-size: 12px; line-height: 12pt}
A:link {text-decoration: none; color:#000000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:visited {text-decoration: none; color: #FF9900; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:active {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:hover {text-decoration: none; color: #FF0000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
-->
</style>
<script language="JavaScript">
<!--
function selectwho(list){
parent.f2.document.forms[0].towho.options[0].value=list;
parent.f2.document.forms[0].towho.options[0].text=list;
parent.f2.document.forms[0].saystemp.focus();
}
//-->
</script>
</head>
<body bgcolor=#CCCC66 text="#FFFFFF">
<%
usernum=0 '在线人数

OUN=Application(SESSION("CRNAME")&"OUN")
OULT=Application(SESSION("CRNAME")&"OULT")
sentences=Application(SESSION("CRNAME")&"sentences")
cur=Application(SESSION("CRNAME")&"cur")
whotowho=Application(SESSION("CRNAME")&"whotowho")

for i=1 to 60
If len(OUN(i))>0 then usernum=usernum+1 '统计在线人数
next


'删除过期聊天用户
for i=usernum to 1 step -1
If abs(DateDiff("s",OULT(i),Now))>120 then
cur=cur+1
if cur>60 then cur=1

sentences(cur)="<font color=#FF0000>[公告]</font>"&OUN(i)&"刚刚离开<u>"&Session("CRNAME")&"</u>……<font color=#B0B0B0>("&OULT(i)&")</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"

for os=i to usernum-1
OUN(os)=OUN(os+1)
OULT(os)=OULT(os+1)
next
OUN(usernum)=EMPTY
OULT(usernum)=EMPTY
usernum=usernum-1
End If
next

Application.Lock
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"usernum")=usernum
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application.unLock


Response.Write("在线人数："&usernum)
%>
<BR>
<HR>
<a href="javascript:selectwho('大家');" onMouseOver="window.status='选择对话或动作对象为：大家'" onMouseOut="window.status=''">大家</a><br>
<%for x=1 to usernum%>
<a href="javascript:selectwho('<%=OUN(x)%>');" onMouseOver="window.status='选择对话或动作对象为：<%=OUN(x)%>'" onMouseOut="window.status=''"><%=OUN(x)%></a><br>
<%next%>
</body></html>
gyzrich 2003-03-29
  • 打赏
  • 举报
 回复
f1.asp显示框架
------------------------
about:blank
============================================
f2.asp发言区
---------------------------------------------------
<%Response.Expires=0%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>发言区</title>
<script Language='JavaScript'>
function checksays() {
document.forms[0].says.value='';
if (document.forms[0].saystemp.value!=''){
if ((document.forms[0].oldsays.value==document.forms[0].saystemp.value) && (document.forms[0].oldtowho.value==document.forms[0].towho.options[document.forms[0].towho.selectedIndex].value)){
alert('内容不可重复！');
document.forms[0].saystemp.focus();
document.forms[0].saystemp.select();
return false;
}
document.forms[0].oldtowho.value=document.forms[0].towho.options[document.forms[0].towho.selectedIndex].value;
document.forms[0].oldtowho.value=document.forms[0].towho.value;
document.forms[0].says.value=document.forms[0].saystemp.value;
document.forms[0].oldsays.value=document.forms[0].saystemp.value;
document.forms[0].saystemp.focus();
document.forms[0].saystemp.value='';
return true;
}
if (document.forms[0].towho.value==''){
alert('请选择动作对象！');
return false;
}
document.forms[0].oldacttowho.value=document.forms[0].towho.options[document.forms[0].towho.selectedIndex].value;
document.forms[0].saystemp.focus();
document.forms[0].saystemp.value='';
return true;
}
</script>
</head>
<body bgcolor=#FF9900 text="304060" leftmargin="0" topmargin="0" onload="javascript:self.focus()">
<div align=left>
<form method=POST action='f_top.asp' target='f1' onsubmit='return(checksays());'>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="28" bgcolor="#FFCC00"><input type=hidden name='says' value=''> <input type=hidden name='oldsays' value>
<input type=hidden name='oldsign' value> <input type=hidden name='oldact' value>
<input type=hidden name='oldtowho' value> <input type=hidden name='oldacttowho' value>
说话颜色:
<select name='sayscolor' onChange="document.forms[0].saystemp.focus();" style='font-size:12px'>
<option value="0">默认 </option><option value="1">黑色 </option>
<option value="2">海蓝 </option><option value="3">亮蓝 </option>
<option value="4">深蓝 </option><option value="5">黄绿 </option>
<option value="6">蓝绿 </option><option value="7">橄榄 </option>
<option value="8">淡紫 </option><option value="9">紫色 </option>
<option style="background-color: #8800FF; color:#8800FF" value="10">蓝紫 </option><option value="11">灰色</option><option value="12">土黄</option><option value="13">金黄</option><option value="14">玫瑰 </option><option value="15">紫红 </option><option value="16">大红 </option></select> <%=Session("UserName")%>说: <input type=text name='saystemp' style='font-size:12px' size=50 maxlength=100> <input name="submit" type=submit style='font-size:12px' value='发言'></td></tr><tr><td bgcolor="#FF9900">姓名颜色: <select name='addwordcolor' onChange="document.forms[0].saystemp.focus();" style='font-size:12px'><option style="background-color: #008888; color:#008888" value="0">默认 </option><option style="background-color: #000000; color:#000000" value="1">黑色 </option><option style="background-color: #0088FF; color:#0088FF" value="2">海蓝 </option><option style="background-color: #0000FF; color:#0000FF" value="3">亮蓝 </option><option style="background-color: #000088; color:#000088" value="4">深蓝 </option>
<option style="background-color: #888800; color:#888800" value="5">黄绿 </option><option style="background-color: #008888; color:#008888" value="6">蓝绿 </option><option style="background-color: #008800; color:#008800" value="7">橄榄 </option><option style="background-color: #8888FF; color:#8888FF" value="8">淡紫 </option><option style="background-color: #AA00CC; color:#AA00CC" value="9">紫色 </option><option style="background-color: #8800FF; color:#8800FF" value="10">蓝紫 </option><option style="background-color: #888888; color:#888888" value="11">灰色 </option><option style="background-color: #CCAA00; color:#CCAA00" value="12">土黄 </option><option style="background-color: #FF8800; color:#FF8800" value="13">金黄 </option><option style="background-color: #FF0088; color:#FF0088" value="14">玫瑰 </option><option style="background-color: #FF00FF; color:#FF00FF" value="15">紫红 </option><option style="background-color: #FF0000; color:#FF0000" value="16">大红
</option></select><input type="checkbox" name="toone" value="ON">悄悄话<script language="JavaScript">
function setheight(){
this.parent.topframeset.rows=(this.parent.topframeset.rows=="*,0,80"?"*,132,80":"*,0,80");
}
</script>
<input name="fp" type="checkbox" id="fp" value="on" onClick="javascript:setheight();">
分屏 对
<select name='towho' onchange="document.forms[0].saystemp.focus();" style='font-size:12px'>
<option value='大家' selected>大家
</select>
表情:
<select name='addsays' onchange="document.forms[0].saystemp.focus();" style='font-size:12px'>
<option value="0" selected>无
<option value="1">微笑 <option value="2">温柔 <option value="3">脸红
<option value="4">得意 <option value="5">大笑 <option value="6">神秘
<option value="7">战兢 <option value="8">毛手 <option value="9">嘟嘴
<option value="10">慢条<option value="11">同情<option value="12">乐祸
<option value="13">快哭 <option value="14">哭 <option value="15">拳打
<option value="16">坏意<option value="17">遗憾<option value="18">诧异
<option value="19">幸福<option value="20">翻箱<option value="21">悲痛
<option value="22">正义<option value="23">严肃<option value="24">生气
<option value="25">大声<option value="26">傻 <option value="27">满足
<option value="28">无措<option value="29">无辜<option value="30">自语
<option value="31">瞪眼<option value="32">想吐<option value="33">无采
<option value="34">不舍<option value="35">白沫</select>图片<select name='addsign'>
<option value='' selected>不贴图<option value="A">胜利<option value="B">OK
<option value="C">赞 <option value="D">逊 <option value="I">布
<option value="J">笑脸 <option value="L">扁嘴 <option value="M">炸弹
<option value="N">毒药 <option value="O">旗 <option value="R">太阳
<option value="S">水滴 <option value="T">雪花 <option value="V">十字架
<option value="Y">星星 <option value="Z">月亮 <option value="b">蚵蚪
<option value="d">肚脐 <option value="f">箭头 <option value="m">圆
<option value="r">四角 <option value="1">档案夹 <option value="4">备忘录
<option value="6">沙漏 <option value="8">滑鼠 <option value="!">笔
<option value="#">剪刀 <option value="$">眼镜 <option value="%">铃当
<option value="&">书 <option value="*">明信片 <option value="(">电话
<option value="-">信箱 <option value="<">磁片 <option value="|">黑花
<option value="]">舵 <option value="{">白花 <option value="'">腊烛
<option value=":">电脑 </select> </td> </tr> </table> <br> </form></div>
<tr align="center"><td></td></tr></body></html>
「已注销」 2003-03-29
  • 打赏
  • 举报
 回复
我骂你全家~~~~~~~~~~~
gyzrich 2003-03-29
  • 打赏
  • 举报
 回复
F_top.asp顶部隐藏框架，刷新作用
----------------------------------------------------------------
<%Response.Expires=0%>
<%If IsEmpty(Session("UserName")) then Response.Write("与系统失去联系，请重新登录。"):Response.End%>
<%
emote="//? 抓了抓头皮，露出迷惑的神情.... //?? 抓呀抓，把头皮都抓破了，也没有想出个所以然来。 //"
emote2="//? 很疑惑的看着对象... //:( 一肚子苦水向对象倒了出来 :((((((((((((((( //:) 对对象露出愉快的表情 //"

sayscolor=Request.Form("sayscolor")'说话颜色
fp=request("fp")'分屏

addwordcolor=Request.Form("addwordcolor")'姓名颜色
addsays=Request.Form("addsays")'表情
Select Case addwordcolor'姓名颜色转换
Case "0"
addwordcolor="#008888"
Case "1"
addwordcolor="#000000"
Case "2"
addwordcolor="#0088FF"
Case "3"
addwordcolor="#0000FF"
Case "4"
addwordcolor="#000088"
Case "5"
addwordcolor="#888800"
Case "6"
addwordcolor="#008888"
Case "7"
addwordcolor="#008800"
Case "8"
addwordcolor="#8888FF"
Case "9"
addwordcolor="#AA00CC"
Case "10"
addwordcolor="#8800FF"
Case "11"
addwordcolor="#888888"
Case "12"
addwordcolor="#CCAA00"
Case "13"
addwordcolor="#FF8800"
Case "14"
addwordcolor="#FF0088"
Case "15"
addwordcolor="#FF00FF"
Case "16"
addwordcolor="#FF0000"
Case else
addwordcolor="#008888"
End Select
Select Case sayscolor'说话颜色
Case "0"
sayscolor="#660099"
Case "1"
sayscolor="#000000"
Case "2"
sayscolor="#0088FF"
Case "3"
sayscolor="#0000FF"
Case "4"
sayscolor="#000088"
Case "5"
sayscolor="#888800"
Case "6"
sayscolor="#008888"
Case "7"
sayscolor="#008800"
Case "8"
sayscolor="#8888FF"
Case "9"
sayscolor="#AA00CC"
Case "10"
sayscolor="#8800FF"
Case "11"
sayscolor="#888888"
Case "12"
sayscolor="#CCAA00"
Case "13"
sayscolor="#FF8800"
Case "14"
sayscolor="#FF0088"
Case "15"
sayscolor="#FF00FF"
Case "16"
sayscolor="#FF0000"
Case else
sayscolor="#660099"
End Select
Select Case addsays'表情转换
Case "0"
addsays="　对　"
Case "1"
addsays="　微微笑对　"
Case "2"
addsays="　温柔地对　"
Case "3"
addsays="　红着脸对　"
Case "4"
addsays="　摇头晃脑得意地对　"
Case "5"
addsays="　哈！哈！哈！笑着对　"
Case "6"
addsays="　神秘兮兮地对　"
Case "7"
addsays="　战战兢兢地对　"
Case "8"
addsays="　毛手毛脚地对　"
Case "9"
addsays="　嘟着嘴地对　"
Case "10"
addsays="　慢条斯理地对　"
Case "11"
addsays="　同情地对　"
Case "12"
addsays="　幸灾乐祸地　"
Case "13"
addsays="　快要哭地对　"
Case "14"
addsays="　哭着对　"
Case "15"
addsays="　拳打脚踢地对　"
Case "16"
addsays="　不怀好意地对　"
Case "17"
addsays="　遗憾地对　"
Case "18"
addsays="　瞪大了眼睛，很诧异地对　"
Case "19"
addsays="　幸福地对　"
Case "20"
addsays="　翻箱倒柜地对　"
Case "21"
addsays="　悲痛地　"
Case "22"
addsays="　正义凛然地对　"
Case "23"
addsays="　严肃地对　"
Case "24"
addsays="　生气地对　"
Case "25"
addsays="　大声地对　"
Case "26"
addsays="　傻乎乎地对　"
Case "27"
addsays="　很满足地对　"
Case "28"
addsays="　手足无措地对　"
Case "29"
addsays="　很无辜地对　"
Case "30"
addsays="　喃喃自语地对　"
Case "31"
addsays="　恶狠狠地瞪着眼对　"
Case "32"
addsays="　快要吐地对　"
Case "33"
addsays="　无精打采地对　"
Case "34"
addsays="　依依不舍地对　"
Case "35"
addsays="　口吐白沫对　"
Case else
addsays="　对　"
End Select
%>
<html>
<head>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<meta name="" content="document.location.reload()">
<script language="JavaScript">
<!--
function selectwho(list){
parent.f2.document.forms[0].towho.options[0].value=list;
parent.f2.document.forms[0].towho.options[0].text=list;
parent.f2.document.forms[0].saystemp.focus();
}
//-->
</script>
</head>
<body bgcolor="#F0F0FF" text="#660099">

<%
'人员登录

OUN=Application(SESSION("CRNAME")&"OUN")
OULT=Application(SESSION("CRNAME")&"OULT")
usernum=Application(SESSION("CRNAME")&"usernum")
cur=Application(SESSION("CRNAME")&"cur")
whotowho=Application(SESSION("CRNAME")&"whotowho")
sentences=Application(SESSION("CRNAME")&"sentences")
UPDA=0
for i=1 to 60
'更新自已最后访问时间(OULT)
If Session("username")=OUN(i) then
UPDA=1
OULT(i)=Now
End If
If len(OUN(i))=0 then usernum=i-1:Exit For
Next

'加入新聊天用户
If UPDA=0 then
OUN(usernum+1)=Session("username")
OULT(usernum+1)=Now
usernum=usernum+1
cur=cur+1
if cur>60 then cur=1
sentences(cur)="<font color=#FF0000>[公告]</font>"&Session("username")&"刚刚进入<u>"&Session("CRNAME")&"</u>……<font color=#B0B0B0>("&Now&")</font>"
whotowho(cur,1)="System"
whotowho(cur,2)="大家"
End If
Application.Lock
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"usernum")=usernum
Application.UnLock

%>
<%
sentences=Application(SESSION("CRNAME")&"sentences")
whotowho=Application(SESSION("CRNAME")&"whotowho")
cur=Application(SESSION("CRNAME")&"cur")
says=ltrim((Request("says")))
If len(says)>0 then

cur=cur+1
If cur>60 then cur=1

whotowho(cur,1)=Session("UserName")

If Request("toone")="ON" then
whotowho(cur,2)=Request("towho")
senhead="<font color=#FF0000>[悄悄话]</font>"
else
whotowho(cur,2)="大家"
senhead=""
End If

sentences(cur)=senhead&"<font color="&addwordcolor&">"&Session("UserName")&"</font>"&addsays&Request("towho")&"　说：<font color="&sayscolor&">"&Server.HtmlEncode(says)&"</font><font face='wingdings' size='4' color='"&sayscolor&"'>"&Request("addsign")&"</font><font color=#B0B0B0>("&Now&")</font>"


'---emote Beg---
If left(says,2)="//" then

myemote=Lcase(rtrim(left(says,Instr(says+" "," "))))
othersays=rtrim(right(says,len(says+" ")-Instr(says+" "," ")))

emoloc=instr(emote,myemote+" ")
If emoloc>0 then
emosay=mid(emote,emoloc+len(myemote),(instr(emoloc+len(myemote),emote,"//"))-(emoloc+len(myemote)))
emosay=Replace(emosay,"对象",Request("towho"))
sentences(cur)=senhead&"<font color="&addwordcolor&">"&Session("UserName")&"</font>"&emosay&" "&othersays&"<font face='wingdings' size='4' color='"&sayscolor&"'>"&Request("addsign")&"</font><font color=#B0B0B0>("&Now&")</font>"
End If

If emoloc=0 or Request("towho")<>"大家" then
emoloc=instr(emote2,myemote+" ")
If emoloc>0 then
emosay=mid(emote2,emoloc+len(myemote),(instr(emoloc+len(myemote),emote2,"//"))-(emoloc+len(myemote)))
emosay=Replace(emosay,"对象",Request("towho"))
sentences(cur)=senhead&"<font color="&addwordcolor&">"&Session("UserName")&"</font>"&emosay&" "&othersays&"<font face='wingdings' size='4' color='"&sayscolor&"'>"&Request("addsign")&"</font><font color=#B0B0B0>("&Now&")</font>"
End If
End If

End If
'---End emote---

End If
Application.Lock
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"cur")=cur
Application.UnLock


sentences=Application(SESSION("CRNAME")&"sentences")
whotowho=Application(SESSION("CRNAME")&"whotowho")
cur=Application(SESSION("CRNAME")&"cur")

outputstr=Empty

for i=cur+1 to 60
If len(sentences(i))>0 then
If whotowho(i,2)="大家" then
OutputStr=OutputStr&(sentences(i)&"<br>")
else
if whotowho(i,1)=Session("username") or whotowho(i,2)=Session("username") then
OutputStr=OutputStr&(sentences(i)&"<br>")
End If
End If

End If
next


for i=1 to cur
If len(sentences(i))>0 then

If whotowho(i,2)="大家" then
OutputStr=OutputStr& (sentences(i)&"<br>")
else
if whotowho(i,1)=Session("username") or whotowho(i,2)=Session("username") then
OutputStr=OutputStr& (sentences(i)&"<br>")
End If
End If

End If
next
if senhead<>"" and request("fp")="on" then
%>
<Script Language="JavaScript">
<!--
this.parent.f_me.document.body.innerHTML+="<%=outputstr%>";
//-->
</Script>
<%
else
%>
<script language="javascript">
<!--
this.parent.f1.document.body.innerHTML+="<%=outputstr%>";
-->
</script>
<%
e
YOLOv8实战VisDrone无人机目标检测
YOLOv8 基于先前 YOLO 版本的成功，进一步提升性能和灵活性。 VisDrone2019数据集是在不同的无人机平台、不同的场景以及不同的天气和光照条件下收集。数据集包含了多种类型的目标，包括行人、车辆、自行车、摩托车等...
我参与的编程导航项目 荣获 腾讯第一届云开发大赛一等奖 #云开发
前言 最近跟腾讯的一位同学(鱼皮)一起参加了腾讯第一届云开发大赛，我们提交的作品：编程导航（https://www.code-nav.cn） 荣获 腾讯第一届云开发大赛一等奖???? 目录 作品简介 云开发能力应用情况 功能模块介绍 编程导航主站 静态程序员主页 编程导航微信公众号服务端 编程导航小程序 编程导航文档 体验二维码/网址 进一步了解项目 作品简介 一站式编程资源导航项目，包括响应式网站、静态主页、小程序、公众号矩阵，帮助大家高效灵活地发现优质编程...
关于西电计科本科学习的一些经验分享与资料汇总
关于西电计科本科学习的一些经验分享与资料汇总
一位同济大学女生的忠告 ！（不看一生后悔啊）
我觉得，这是有史以来我在校内上面看到的最有价值的东西。真的是不枉费这一点时间看完它。太真实了。下面就是那个同济毕业的女生写的东西：我是2005年毕业的，偶尔来这里看看，不常灌水。今天来随意写下一些，如果对各位有任何的帮助，是我衷...
爬虫技术做到哪些很酷很有趣很有用的事情
能利用爬虫技术做到哪些很酷很有趣很有用的事情？ 准备学习python爬虫。各位大神都会用爬虫做哪些有趣的事情？ 今天突然想玩玩爬虫，就提了这个问题。跟着YouTube上的一个tutor写了个简单的程序，爬了一点豆瓣的数据。主要用到request和bs4（BeautifulSoup）模块。虽然简陋，毕竟是人生中的第一只爬虫啊……以示纪念，代码写在博客里了：我的第一只爬虫：爬取豆瓣读书
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章