网络编程
位置：首页>> 网络编程>> Asp编程>> asp如何编写一个最简单的聊天程序？

asp如何编写一个最简单的聊天程序？

　来源：asp之家　发布时间：2009-11-08 19:04:00　

标签：聊天程序,asp

chat.html 

<html> 
<head>
<title>asp之家-简单聊天</title>
</head> 
<frameset rows="*,100"> 
<frame src="chatopinions.asp"> 
<frame src="chatform.asp"> 
</frameset> 
</html>

  chatopinions.asp

<html> 
<head> 
<META HTTP-EQUIV=refresh content="5;URL=chatopinions.asp"></head> 
<body bgcolor=FFFFFF> 
<center> 
<table border=0 width=350> 
<tr><td width=50> 
<％ =Application("A9") ％></td><td width=300><％ =Application("B9") ％> 
</td></tr><tr><td> 
<％ =Application("A8") ％></td><td><％ =Application("B8") ％> 
</td></tr><tr><td> 
<％ =Application("A7") ％></td><td><％ =Application("B7") ％> 
</td></tr><tr><td> 
<％ =Application("A6") ％></td><td><％ =Application("B6") ％> 
</td></tr><tr><td> 
<％ =Application("A5") ％></td><td><％ =Application("B5") ％> 
</td></tr><tr><td width=50> 
<％ =Application("A4") ％></td><td><％ =Application("B4") ％> 
</td></tr><tr><td> 
<％ =Application("A3") ％></td><td><％ =Application("B3") ％> 
</td></tr><tr><td> 
<％ =Application("A2") ％></td><td><％ =Application("B2") ％> 
</td></tr><tr><td> 
<％ =Application("A1") ％></td><td><％ =Application("B1") ％> 
</td></tr></table> 
<table border=0 width=350> 
<tr><td align=right> 
Get your chat at <A REF="http://www.aspxhome.com">Submitside</A>: free script. 
</td></tr></table> 
</center> 
</body> 
</html>

  chatform.asp

<％  
If Request.Form ("Opinion")="" then  
ShowForm()  
else  
  if Session("AA")="" then 
  NewUser() 
  GoAhead() 
  else 
  GoAhead() 
  end if  
end if ％> 
<％ Sub ShowForm() ％> 
<html><body  bgcolor=FFFFFF> 
<center> 
<form method=post action=chatform.asp> 
<table border=0><tr><td> 
<％  if Session("AA")="" then ％> 
选择名字或昵称
<input type=text name=Name size=20><BR> 
输入您的看法  
<％ else ％> 
<％ =Session("AA") ％> 
<％ end if ％> 
<input type=text size=60 name=Opinion value="<％ =request.form("Opinion") ％>"><BR> 
<input type=submit value="提交"> 
</td><tr></table> 
</form> 
</center> 
</body> 
</html> 
<％ End Sub ％> 
<％ Sub GoAhead() ％> 
<％ 
BB=Request.form("Opinion") 
BB=server.htmlencode(BB) 
Application.Lock 
Application("B1")=Application("B2") 
Application("B2")=Application("B3") 
Application("B3")=Application("B4") 
Application("B4")=Application("B5") 
Application("B5")=Application("B6") 
Application("B6")=Application("B7") 
Application("B7")=Application("B8") 
Application("B8")=Application("B9") 
Application("B9")=BB 
Application("A1")=Application("A2") 
Application("A2")=Application("A3") 
Application("A3")=Application("A4") 
Application("A4")=Application("A5") 
Application("A5")=Application("A6") 
Application("A6")=Application("A7") 
Application("A7")=Application("A8") 
Application("A8")=Application("A9") 
Application("A9")=Session("AA") 
Application.Unlock 
％> 
<html> 
<head></head><body bgcolor=FFFFFF> 
<center> 
<form method=post action=chatform.asp> 
<table border=0><tr><td> 
<％ =Session("AA") ％> <input type=text size=60 name=Opinion> 
<BR><input type=submit value="提交"> 
</td></tr></table> 
</form> 
</center> 
</body> 
</html> 
<％ End Sub ％> 
<％ Sub NewUser() ％> 
  <％ 
  AA=Request.form("Name") 
  AA=server.htmlencode(AA) 
  Session("AA")=AA 
  ％> 
<％ End Sub ％>

0
投稿

猜你喜欢

  • 很多时候，我们都在说设计需要引导用户，尤其是在对初级用户的引导上，很大程度决定着产品能否快速聚拢用户的可能；但同样很多时候，用户并不需要引导
  • 使用MySQL，目前你可以在三种基本数据库表格式间选择。当你创建一张表时，你可以告诉MySQL它应该对于表使用哪个表类型。MySQL将总是创
  • 如果你计划将数据库从SQL Server 2000 升级到 SQL Server 2005。你在升级之前一定会测试每样东西，并且证明应用程序
  • MySQL语句优化的基本原则：◆1、使用索引来更快地遍历表。缺省情况下建立的索引是非群集索引，但有时它并不是最佳的。在非群集索引下，数据在物
  • 哎~工作忙死了！！！！！！今天在百度老年看到一个手写输入法，颇感新鲜。so把其框下！请不要用在商业用途，学习之用，版权百度所有。看代码！注：
  • 关于SQL Server数据库的一切信息都保存在它的系统表格里。我怀疑你是否花过比较多的时间来检查系统表格，因为你总是忙于用户表格。但是，你
  • 1. 确认已经安装了NT/2000和SQL Server的最新补丁程序，不用说大家应该已经安装好了，但是我觉得最好还是在这里提醒一下。2.
  • 浏览器的出现互联网的出现是人类信息交流方式的一次划时代的革命，在这场革命中有两个技术对互联网的发展起到了决定性的作用：一个技术带来的人类信息
  • 最近随着狂风计划的席卷，我也终于开始橱窗产品位列表展示的编码工作，这只是一个改进项目，因此有原代码可供参考。但是当我打开原代码模板的时候便愣
  • 原理：建一个栈，每次碰到一个新标签，就与栈顶的标签配对，如果配对，栈顶的标签就出栈，如果不配对，这个新标签就进栈，最终，栈如果是空的，说明所
  • 函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法：字符类型的strUsername = C
  • 当元素设置浮动(float)后会被移出文档流，相信大家都会经常遇到这样的问题。这问题的解决办法有N种之多，因为每种浏览器对CSS的解析各异，
  • 一、介绍这篇文档旨在介绍如何安装配置基于2台服务器的MySQL集群。并且实现任意一台服务器出现问题或宕机时MySQL依然能够继续运行。虽然这
  • 注：本文是应Alan邀请为《CSS布局实录》写的一个web标准入门指导。书已经上市近一年了，现在摘选出来，给初学者一个参考。希望了解更多实现
  • 下面就是解决方案： 1- From the command prompt, stop isqlplus: c:\>isqlplusct
  • Example.asp<％@LANGUAGE="VBSCRIPT" CODEPAGE="65001&qu
  • 一个网站能切换不同的CSS风格大家应该都了解，像众所周知的腾讯在今年改版时也增加了切换皮肤的功能。根据时间自动调整站点风格是不错的想法，这种
  • 分页查询是经常能够遇到的问题，我们首先看看分页查询存在的理由:方便用户：用户不可能一次察看所有数据，所以一页一页的翻看比较好。提高性能：一次
  • var a = 0, b = 0;[0, 0].sort(function() {a = 1;return 0;});[0, 1].sort
  • 很神奇的一个晚上，居然在以前老同事的群里跟同事讨论起CSS的东西来了，不过很意外的还是有收获。在IE中常常会碰到如果将容器定位后，出现容器内
手机版 网络编程 asp之家 www.aspxhome.com