最简单的ASP聊天室(附源码)
程序员文章站
2022-07-05 23:24:28
<%@ Language=VBScript %><%Response.Buffer=true 设 置 输 出 缓 存,用 于 显 示 不 同 页 面。On er...
<%@ Language=VBScript %>
<%
Response.Buffer=true 设 置 输 出 缓 存,用 于 显 示 不 同 页 面。
On error resume next 忽 略 程 序 出 错 部 分
If Request.ServerVariables("Request_Method")="GET" then
判 断 客 户 是 以 什 么 方 式 请 求 WEB 页 面
------------------------
客 户 登 陆 界 面
------------------------
%>
<form method="POST" action="https://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="https://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="https://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
%>
<%
Response.Buffer=true 设 置 输 出 缓 存,用 于 显 示 不 同 页 面。
On error resume next 忽 略 程 序 出 错 部 分
If Request.ServerVariables("Request_Method")="GET" then
判 断 客 户 是 以 什 么 方 式 请 求 WEB 页 面
------------------------
客 户 登 陆 界 面
------------------------
%>
<form method="POST" action="https://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="https://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="https://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
%>
上一篇: jsp+servlet实现验证码功能
推荐阅读
-
非常简单的Ajax请求实例附源码
-
ASP.NET页面进行GZIP压缩优化的几款压缩模块的使用简介及应用测试!(附源码)第1/2页
-
Laravel框架实现简单的学生信息管理平台案例【附源码下载】
-
ASP.NET编程简单实现生成静态页面的方法【附demo源码下载】
-
ASP.NET实现的生成验证码功能示例【附demo源码】
-
Android开发实现的简单计算器功能【附完整demo源码下载】
-
android 源码中添加一个最简单的自启动的本地服务
-
ASP.NET页面进行GZIP压缩优化的几款压缩模块的使用简介及应用测试!(附源码)第1/2页
-
基于jsp+servlet实现的简单博客系统实例(附源码)
-
iOS实现换肤功能的简单处理框架(附源码)