chat.asp

asp教程

<%@Language=VBScript%>
<%
Response.Buffer=true'设置输出缓存，用于显示不同页面。
On error resume next'忽略程序出错部分
If Request.ServerVariables("Request_Method")="GET" then
'判断客户是以什么方式请求WEB页面
'------------------------
'客户登陆界面
'------------------------
%>
<form method="POST"action="chat.asp"><p>
<input type="text" name="nick" size="20" value="nick" style="background-color:rgb(192,192,192)"><br>
<input type="submit" value="进入聊天室" name="B1" style="color:rgb(255,255,0);font-size:9pt;background-color:rgb(0,128,128)">
<p><input type="hidden" name="log" size="20" value="1"><br></p>
</form>
<%
Response.End'结束程序的处理
Else
Response.clear'清空缓存中的内容
Dim  talk
If Request.Form("nick")<>"" then
'判断客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
End if
'------------------------'
客户聊天界面
'------------------------
%>
<form method="POST" action="chat.asp" name=form1><p><%=Session("nick")%>说话： 
<input type="text" name="talk" size="50"><br>
<input type="submit" value="提交" name="B1">
<input type="reset" value="取消" name="B2"></p> 
</form>
<A HREF="e:\asp教程/chat.asp">离开</a><br><br>

<%
If Request.Form("log")<>1 then
If trim(Request.Form("talk"))="" then
'判断用户是否没有输入任何内容
talk=Session("nick")&"沉默是金。"
Else
talk=trim(Request.Form("talk"))
'去掉字符后的空格
End if
Application.lock
Application("show")="<table border='0' cellpadding='0' cellspacing='0' width='85%'><tr><td width='100%' bgcolor='#C0C0C0'></td></tr><tr><td width='100%'><font color='#0000FF'>来自"&Request.ServerVariables("remote_addr")&"的"&Session("nick")&time&"说：</font>"&talk&"</td></tr><tr><td width='100%' bgcolor='#C0C0C0'></td></tr></table><br>"&Application("show")
Application.UnLock
Response.Write Application("show")
End if
end if
%>