查人人中国名人网旅游英语常用语:哪位大虾能找到局域网的聊天系统ASP的 急用!!!!!
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/13 19:44:40
<html>
<head>
<title>小小聊天室</title>
</head>
<%
Session("user_name")=Request("user_name") '将用户昵称保存到session中
'下面几句返回来访者信息
Dim sayStr
sayStr="来自" & Request.ServerVariables("Remote_Addr")& "的" '来访者IP地址
sayStr=sayStr & "<b>" & Session("user_name") & "</b>" '来访者昵称
sayStr=sayStr & "于" & Time & "大驾光临" '来访时间
sayStr="<font color='red'>" & sayStr & "</font>" '红色显示
'下面几句将来访信息保存到Application中
Application.Lock '先锁定
Application("show")= sayStr & "<br>" & Application("show") '返回聊天信息
Application("user_online")=Application("user_online")+1 '在线人数加1 Application.Unlock '解除锁定
%>
<frameset rows="*,14%">
<frame name="main" src="main.asp" >
<frame name="input" src="input.asp">
<noframes>
<body scroll="no">
<p>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</html>
**********************以上为CHAT.ASP****************
<%
'下面几句返回离开者信息
Dim sayStr
sayStr="来自" & Request.ServerVariables("Remote_Addr")& "的" '来访者IP地址
sayStr=sayStr & "<b>" & Session("user_name") & "</b>" '来访者昵称
sayStr=sayStr & "于" & Time & "高兴而去" '离开时间
sayStr="<font color='red'>" & sayStr & "</font>" '红色显示
'下面几句将来访信息保存到application中
Application.Lock '先锁定
Application("show")= sayStr & "<br>" & Application("show")
Application("user_online")=Application("user_online")-1 '在线人数减1
Application.Unlock '解除锁定
Response.Redirect "index.asp" '重定向回首页
%>
******以上为exit.asp****************
<html>
<head>
<title>聊天室</title>
<Script Language="JavaScript">
<!--
function check_Null(){
if (document.form1.user_name.value==""){
alert("昵称不能为空!");
return false;
}
return true;
}
// -->
</Script>
</head>
<body >
<h2 align="center">小小聊天室</h2>
<center>
现在共有<%=Application("user_online")%>人在线<p>
<form method="post" action="chat.asp" name="form1" onsubmit="JavaScript: return check_Null();">
请输入昵称<input type="text" name="user_name" size="10">
<input type="submit" value=" 进 入 ">
</form>
</center>
</body>
</html>
************以上为index.asp*******************
<html>
<head>
<title>发言区</title>
</head>
<body bgcolor="#FFFFCC" topmargin="0" leftmargin="0" onload="document.form1.say.focus();">
<form method="post" action="" name="form1">
发言:
<input type="text" name="say" size=40 >
<input type="submit" value="发言" >
<br>
颜色:
<select name="mycolor" style="font-size:12px">
<% If Request("mycolor")="#000000" Then %>
<option value="#000000" style="color:#000000" selected>黑色</option>
<% Else %>
<option value="#000000" style="color:#000000" >黑色</option>
<% End If %>
<% If Request("mycolor")="#FF0000" Then %>
<option value="#FF0000" style="color:#FF0000" selected>红色</option>
<% Else %>
<option value="#FF0000" style="color:#FF0000" >红色</option>
<% End If %>
<% If Request("mycolor")="#FFFF00" Then %>
<option value="#FFFF00" style="color:#FFFF00" selected>黄色</option>
<% Else %>
<option value="#FFFF00" style="color:#FFFF00" >黄色</option>
<% End If %>
<% If Request("mycolor")="#3333FF" Then %>
<option value="#3333FF" style="color:#3333FF" selected>蓝色</option>
<% Else %>
<option value="#3333FF" style="color:#3333FF" >蓝色</option>
<% End If %>
</select>
表情:
<select name="myemote" style="font-size:12px">
<option value="无" selected>无
<option value="回眸一笑">回眸一笑
<option value="幸灾乐祸">幸灾乐祸
<option value="号啕大哭">号啕大哭
<option value="拳打脚踢">拳打脚踢
<option value="气急败坏">气急败坏
<option value="温柔细语">温柔细语
<option value="得意非凡">得意非凡
<option value="大惊失色">大惊失色
</select>
<a href="exit.asp" target="_top">离开聊天室</a>
</form>
<%
IF Request("say")<>"" Then
'获取发言的有关信息
Dim say,mycolor,myemote,user_name '声明变量待用
user_name=Session("user_name") '返回用户昵称
say=Server.HtmlEncode(Request("say")) '返回发言，并用HtmlEncode编码
mycolor=Request("mycolor") '返回本次发言的颜色
myemote=Request("myemote") '返回本次发言表情
If myemote="无" Then
myemote=""
End If
'下面三句将得到本次发言的字符串
Dim sayStr
sayStr="<small>" & user_name & Time & myemote & "说：</small>"
sayStr=sayStr & "<font color='" & mycolor & "'>" & say & "</font>"
'下面几句将本次发言信息保存到Application中
Application.Lock '先锁定
Application("show")= sayStr & "<br>" & Application("show")
If Len(Application("show"))>10000 Then '如果发言总长度超过10000个字符，则截断为10000
Application("show")=Mid(Application("show"),1,10000)
End If
Application.Unlock '解除锁定
End If
%>
</body>
</html>
**************以上为input.asp***************
<html>
<head>
<title> 发言区</title>
<meta http-equiv="refresh" content="5">
</head>
<body>
<%
Response.Write Application("show") '显示聊天内容
%>
</body>
</html>
************以上为main.asp***************