新建 文本文档.txt

一个简单聊天室的实现,通过对ASP的脚本语言,ASP的内置对象,ASP与数据库的连接等技术的分析,探讨了建立聊天室的设计思想,方法及设计过程,详细地分析了各个模块的功能及实现方法.

<style type="text/css">
<!--
body,td,th {
font-size: 14px;
}
-->
</style><a href="l-4.asp">退出聊天室</a><br>
<table width="800" height="70" border="1" align="center" bordercolor="#003366" bgcolor="#00CCFF" >
<tr width="800" bordercolor="#336699">
<td align="center">当前在线
<%
dim xm,shu
shu=application("online_number")
response.Write shu & "人"
%>
</td>

<%
xm=session ("name")
application.Lock()
user=application("user")
if user(session("id"))="" then
if xm="" then 
user(session("id"))="游客"
for i=1 to application("online_number")
response.Write "<td align=left bgcolor=#FFFFFF>"
response.Write user(i)
response.Write "</td>"
next
else
user(session("id"))=xm
for i=1 to application("online_number")
response.Write "<td align=left bgcolor=#FFFFFF>"
response.Write user(i)
response.Write "</td>"
next
end if
application("user")=user
else
if user(session("id"))=xm then
for i=1 to application("online_number")
response.Write "<td align=left bgcolor=#FFFFFF>"
response.Write user(i)
response.Write "</td>"
next
else
if xm="" then
user(session("id"))="游客"
for i=1 to application("online_number")
response.Write "<td align=left bgcolor=#FFFFFF>"
response.Write user(i)
response.Write "</td>"
next
else
user(session("id"))=xm
for i=1 to application("online_number")
response.Write "<td align=left bgcolor=#FFFFFF>"
response.Write user(i)
response.Write "</td>"
next
end if
application("user")=user
end if
end if
application.UnLock()
%>
</tr>
<tr height="400">
<td height="400" colspan="3" bordercolor="#333366">

<%
fayan=request.Form("fayan")
application.Lock()   
if fayan<>"" then
msg=application("msg")
'将数组中的消息全部向前移，留出空位用来存放最新的消息
user=application("user") 
for i=1 to 19
    msg(i)=msg(i+1)
next
   msg(20)="["&user(session("id"))&"]说：" & fayan & " " & now() & "<br>"
   for i=1 to 20
response.write msg(i)
next 
application("msg")=msg
else
msg=application("msg")
for i=1 to 20
response.write msg(i)
next 
end if
application.UnLock()
%></td>
</tr>
<tr width="800" height="70"><td height="71" colspan="2" align="right" bordercolor="#333366">
<form name="form1" method="post" action="">
<textarea name="fayan" cols="110" rows="3" id="fayan"onKeyDown="if(event.keyCode==13)"></textarea>
<input type="reset" name="Submit" value="清除" />
<input type="submit" name="Submit2" value="发送" />
</form>
</tr>
</table>