网站建设之最简单的聊天室程序

2010-03-11 郑州网站建设  
想到聊天室,你一定会认为非常复杂非常麻烦的吧,呵呵,这仅仅只有一段简单的ASP代码,实现了聊天室的基本功能,不妨参考下:将以下代码保存为liaotian.asp
 
<%If Request.ServerVariables("Request_Method")="GET" then%>
<form method="post" action="liaotian.asp">
<input type="text" name="nick" Value="您的昵称"><p>
<input type="submit" Value="come in"><p>
<input type="hidden" name="log" size="20" Value="1">
</form>
<%Response.End 
Else
Response.clear
dim talk
If Request.Form("nick")<>"" then
Session("nick")=Request.Form("nick")
End if
%>
<form method="post" action="liaotian.asp" name=form1> 
<%=Session("nick")%>说话:
<input type="text" name="talk" size="50"><br>
<input type="submit" Value="提交">
<input type="reset" Value="取消"></p>
</form>
<a href="liaotian.asp">离开</a><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")="来自"&Request.ServerVariables("remote_addr")& "的" &Session("nick")&"在"&time& "的时候说:" &talk& "<br>" &Application("show")
Application.UnLock
Response.Write Application("show")
End if
%>
<%End if%>
 
提示:将V改成v
 

河南郑州做网站首选天择文化,我们专注郑州网站建设网站设计网站制作与开发,是中原地区专业的郑州网络公司,多年来我们一直努力,服务客户数百家,欢迎您的咨询。
本文链接:郑州网络公司http://www.tzchb.com/tech/497.html转载请标明出处,谢谢合作!
标签:
  • 代码
  • 网站建设
  • 程序
  • asp