|
|
|
[
来路：21kn.com 时间：2007-7-11 1:44:48
点击： ] |
|
|
|
|
|
＜%@ Language=VBScript %＞
＜%
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
%＞
|
|
|
：：：：站长友情提示：多花一分钟学点什么都好：：：：
|
|
|
|
|
|
|
|
|
|
|
|
=
= 免责声明 = = |
|
①
欢迎转载我网所刊信息，请注明“来源：E天下网络”。
② 凡本网注明“来源：XXX（非E天下网络）”的作品，均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如因作品内容、版权和其它问题需要同本网联系的，请在30日内进行。
※联系方式：Airtofly@163.com |
|
|
|
|
|
|
