繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 最简单的ASP聊天室（附源码）
- ASP
- IIS访问ASP页面时报错The requested resource is in use.的解决办法
- 错误类型：Provider (0x80004005)未指定的错误 的一个处理方法
- 关于asp+access的安全问题分析
- 把RS.GetRows看得更清楚
- asp下UTF-8页面乱码的解决方法
- 解决使用良精企业建站7.0未注册问题
- 在ASP中连接MySQL数据库的方法，最好的通过ODBC方法
- flash与js通讯方法
- ASP操作Excel相关技术总结
- 解决用Access数据库建站维护不便的问题的方法
- ASP实现GB2312字符与区位码的相互转换的代码
- 对于ASP编码问题的深入研究与最终解决方案
- ASP生成UTF-8编码的代码
- 删除A表中在B表中不存在的数据
- 动网防恶意广告比较有效的办法附asp代码
- asp磁盘缓存技术使用的代码
- 网页语言编码及asp乱码问题解决方案
- FSO遍历目录实现全站插马的代码
- 关于无限分级(ASP+数据库+JS)的实现代码
- 如何写ASP入库小偷程序
最简单的ASP聊天室（附源码）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 210 ::
收藏到网摘: n/a
<%
Response.Buffer=true ' 设 置 输 出 缓 存，用 于 显 示 不 同 页 面。
On error resume next ' 忽 略 程 序 出 错 部 分
If Request.ServerVariables("Request_Method")="GET" then
' 判 断 客 户 是 以 什 么 方 式 请 求 WEB 页 面
'------------------------
' 客 户 登 陆 界 面
'------------------------
%>
<form method="POST" action="http://www.cs02.com/luo40.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="http://www.cs02.com/luo40.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="http://www.cs02.com/luo40.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
%>
评论 (0) All
