 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@ 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 %> 返回类别: 教程 上一教程: 如何在ASP中实现PING 下一教程: XML、Web服务和.NET框架(2) 您可以阅读与"最简朴的ASP聊天室（附源码）"相关的教程: · 最简朴的ASP聊天室(附源码) · 用ASP构筑主页聊天室 · XMLHTTP+JAVASCRIPT+ASP写得聊天室，无刷新实现(四) · XMLHTTP+Javascript+Asp写得聊天室，无刷新实现（三） · 用ASP做个简朴聊天室 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
