一个简单的聊天试的源代码！（二）

源代码

recieve.asp

<html>
<% KNAME=REQUEST.FORM("USNAME")
   KPASSWORD=REQUEST.FORM("USPASSWORD")
DbPath = SERVER.MapPath("chat.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
SET RS=CONN.EXeCUTE("SELECT name,password FROM chat") ' WHERE NAME="&KNAME)
IF RS.EOF THEN
CONN.EXECUTE("INSERT INTO chat (NAME,PASSWORD) VALUES("&KNAME&","&KPASSWORD&")")
ELSE IF  RS.FIELDS("PASSWORD")<>KPASSWORD THEN
response.write"wrong password"
END IF
END IF
%>
<FRAMESET ROWS="70%,30%" >
<FRAME SRC="forum.asp" NAME="main"
MARGINWIDTH="1" MARGINHEIGHT="1" Noresize >
<FRAME SRC="frft.asp?kname=
" NAME="footnotes" MARGINWIDTH="1"
MARGINHEIGHT="1" Noresize >
</FRAMESET >
</html>

时间： 2024-10-19 02:55:18

一个简单的聊天试的源代码！（二）的相关文章

用ASP建立一个简单的聊天室

聊天室|聊天室     经过一个阶段的asp学习,下面我们结合所学过的内容建立一个最简单的聊天室,虽然很简单,但是大家可以通过他来掌握一个聊天室建立的基本过程,并且可以不断的完善其功能. 下面介绍其主要步骤: 1,添加Global.asa文件里面的代码.这部分代码主要处理Application_onStart事件,在此事件中,定义了一个有15个元素的数据,并把它赋给了一个Application对象的属性.Global.asa文件的内容如下. <SCRIPT LANGUAGE="VBScri

Flex和java的socket通信(四)一个简单的聊天室

服务端:java jdk1.5 使用工具:eclipse3.2 客户端:使用工具flex 2 目的:做一个简单的聊天室,用来实现消息广播. 服务端: 客户端:

用nodejs实现一个简单的聊天室

今天我来实现一个简单的聊天室,后台用nodejs, 客户端与服务端通信用socket.io,这是一个比较成熟的websocket框架. 初始工作 安装express, 用这个来托管socket.io,以及静态页面,命令npm install express --save,--save可以使包添加到package.json文件里. 安装socket.io,命令npm install socket.io --save. 编写服务端代码 首先我们通过express来托管网站,并附加到socket.io

ASP建立一个简单的聊天室_应用技巧

经过一个阶段的asp学习,下面我们结合所学过的内容建立一个最简单的聊天室,虽然很简单,但是大家可以通过它来掌握一个聊天室建立的基本过程,并且可以不断的完善其功能.下面介绍其主要步骤: 1,添加Global.asa文件里面的代码.这部分代码主要处理Application_onStart事件,在此事件中,定义了一个有15个元素的数据,并把它赋给了一个Application对象的属性.Global.asa文件的内容如下. <SCRIPT LANGUAGE="VBScript" RUNA

一个简单聊天试的源代码！（三）

源代码 forum.asp <%On error resume next %><% KNAME=SESSION("KNAME")RESPONSE.WRITE KNAMEIf trim(Request.Form("content"))="" thentalk=kname&" 沉默是金."Elsetalk=trim(Request.Form("content"))End IfAppli

一个简单聊天试的源代码！（四）

frft.asp<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN" ><html ><head ><meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80" ><meta name="GENERATOR" content="Microsoft

一个简单的聊天室源代码！（一）

聊天室|源代码 --chat.asp-- <html> <head><title></title></head> <body> <form method="post" action="RECEIVE.asp">  <input type="hidden" name="content" value><div align=&quo

求一个简单的jsp企业网站源代码

问题描述 由于目前的情况比较急,因为每天都很忙.希望各位如果有jsp企业建站的源代码,发一份给我.不需要什么功能,比如说,有首页,产品展示,公司简介,联系方式...这一列简单的功能.要求是jsp的,struts2的也可以.大家帮下忙,如果有的话,不吝给一下,不胜感激. 解决方案 解决方案二:怎么没有人来回答.我晕!解决方案三:快点回答啊..急啊???解决方案四:我的邮箱是gzsword@yahoo.com.cn解决方案五:http://www.aspjzy.com/8439.htmlhttp:/

用VB6做一个简单的文件上传组件(二)

上传     接着上回,新建一个ActiveX DLLs类型的工程,并将缺省的工程名由"Project1"改为"Songbird"(当然你也有权不这样改,呵呵),将缺省的类名由"Class1"改为"FileUp",至于为什么要这样改,以后你便知道了.    要想实现读取上传文件字节数据的功能,势必要涉及到Request对象,可是在VB中该怎么做呢?简单,只需要在工程中加入适当的类型库的参考即可.点击Project菜单选择Ref