chat.asp

网络作业批改管理信息系统,以vb为开发语言帮助老师和同学之间建立网络联系,很好的协调工作

<%@ Language=VBScript %>

<%
Response.Buffer=true 
On error resume next 
If Request.ServerVariables("Request_Method")="GET" then

%>

   <form method="POST" action="chat.asp"><p>

   <input type="text" name="访客" size="20" value="访客" 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("访客")<>"" then
  Session("访客")=Request.Form("访客")
  End If
%>

    <form method="POST" action="chat.asp" name=form1> <p><%=Session("访客")%> 请说话：<input type="text" name="talk" size="50"><br>
    <input type="submit" value=" 提交 " name="B1">
    <input type="reset" value=" 取消 " name="B2"></p>
    </form>
    <A HREF="./chat.asp"> 离开 </a><br>
    <br>

<%
   If Request.Form("log")<>1 then
   If trim(Request.Form("talk"))="" then

   talk=Session("访客")&" 你好！"
   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
%>