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

想到聊天室，你一定会认为非常复杂非常麻烦的吧，呵呵，这仅仅只有一段简单的ASP代码，实现了聊天室的基本功能，不妨参考下：将以下代码保存为liaotian.asp

<%If Request.ServerVariables("Request_Method")="GET" then%>
<form method="post" action="liaotian.asp">
<input type="text" name="nick" Ｖalue="您的昵称"><p>
<input type="submit" Ｖalue="come in"><p>
<input type="hidden" name="log" size="20" Ｖalue="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" Ｖalue="提交">
<input type="reset" Ｖalue="取消"></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

2010/2/11 网站建设之ASP上一篇下一篇代码

2010/2/9 鞋子中国网站制作完成

2010/2/7 网站建设之如何快速备案

2010/2/5 广州奇亿网站建设恭祝全国人民新春快乐

2010/2/4 腾讯也被收购？中移动澄清无意收购腾讯！

2010/2/2 网站建设实用的图片防盗链方法

2010/2/1 建站技巧之一个表单同时提交两个页面

2010/1/30 网站建设之域名转发新方法

2010/1/29 PHP自动执行任务的网站建设代码

2010/1/28 广州网站制作赠送空间免费升级通知

2010/1/26 网站建设技巧之ASP时间显示格式

2010/1/24 网站制作之如何去掉LI前面的点

2010/1/22 从网络孔子学院事件看网站建设问题

2010/1/21 网站建设行业的几大忽悠

2010/1/20 asp动态判断下拉菜单或选择框哪个已选

2010/1/19 网站建设之简单的简繁转换代码

2010/1/18 网站制作客户使用CN域名的紧急通知

2010/1/16 简单随网页滚动而滚动的层

2010/1/15 广州网站建设之弹出并关闭跳转返回代码

2010/1/14 谷歌退出中国市场的真正原因何在？