 |
|
|
 首页 |
名片设计 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.4ico.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.4ico.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.4ico.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如何更好的解决用户验证问题 下一教程: ASP出错集成处理 您可以阅读与"最简朴的ASP聊天室(附源码)"相关的教程: · 最简朴的ASP聊天室（附源码） · XMLHTTP+Javascript+Asp写得聊天室，无刷新实现（四） · 用ASP建立一个简朴的聊天室 · XMLHTTP+Javascript+Asp写得聊天室，无刷新实现（三） · XMLHTTP+Javascript+Asp写得聊天室，无刷新实现（二） |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
