ASP聊天室制作.doc
ASP聊天室制作这次我为大家介绍的是我第一个用ASP做的程序-聊天室，很简单，没用数据库，但是对于还未学到ADO的同志是个比较好的参考例子，这个例子基本包括了所以ASP的五个内置对象，但是有了聊天室的雏形，如果水平到家可以在此基础上做的强大好看点好了，废话不说了，现在进入正题吧！首先这个程序有四个部分组成，分别是index.asp,chat.asp,show.asp,input.asp首先调用chat.asp然后就可以运行了！作为一个初学者，我觉得写一个程序整体观念很重要，也就是说你首先要确定要实现什么样的功能，然后再进行各个功能的分块和解决，那么作为一个简单的聊天室我觉得首先要有一个登陆界面，登陆后进入一个聊天室的主界面，主界面又分为两个块，上面一块是聊天显示的内容，下面一块是聊天者写入的文字并进行发送。确定好各个功能版块后，然后我们各个去实现！好，先解决登陆界面吧，这个容易，html随便做个表单，我做的很简单： <html><head><title>欢迎光临小型聊天室</title><meta http-equiv=Content-Language content=zh-cn> </head><body topmargin=150 bgcolor=ffffff><table border=1 align="center" cellpadding=0 cellspacing=0 height=200><tr><td align=center >聊天室用户登陆</td></tr><tr><td align=center height=162><form method=POST action="chat.asp"><table border=0 cellpadding=0 cellspacing=0><tr><td></td></tr><tr><td width=37% align=center>用户名</td><td width=63%><input type="text"name="userid" size=19 maxlength="10" ></td></tr><tr><td >密 码</td><td><input type="password" name="password" size=19 maxlength="30"></td></tr><td><p align=center><input type=submit value="登陆" name="submit"><input type=reset value="重写" name=reset > </td></tr><tr><td ></td></tr></table></form></td></tr><tr><td align=center><a href= target="_blank"></a></td></tr></table></body></html>好了，做好了这么个简单的登陆页面后下面我们进入主页面的制作。上面我们做了个简单的登陆页面，现在开始做我们的主界面chat.asp： <%name=request.form("userid")password=request.form("password")response.cookies("cname")=namesession("sname")=nameif name=""thenresponse.redirect"index.asp"end if%><frameset rows=80%,20%><frame name="show" src="show.asp"><frame name="input" src="input.asp"></frameset> 这个程序主要实现的是提取index.asp的表单数据，然后判断是否用户有填写用户名，如果没有回到登陆界面，同时设立了cookies和session变量以用于其他文件的调用。做好了以后我们转入编写input.asp文件，也就是用户输入聊天内容的部分：<html><head><title>欢迎光临小型聊天室</title></head><body><meta http-equiv=Content-Language content=zh-cn><form method="post" action="show.asp" target="show"><p><font=ffff00><%=request.cookies("cname")%></font>说：<input type="text" name=putword size="82"><input type="submit" name=formsubmit value="发送"><input type="reset" name=formreset value="重发"></font></body></html>这段代码很简单，有一个地方初学者可能会看不懂，target是实现将写入的内容送到show的框架，而不是被直接在自己的框架里！读者可以体会一下把target去掉，接下来我们做最后一个部分也就是show.asp部分<%mytalk=trim(request.form("putword")if mytalk<>""thenapplication.lockapplication("show")="<font color=0000ff size=4>" & request.cookies("cname") & "</font>:" & "<font size=3>" & mytalk & "</font>" & "<br>" & application("show")application.unlockend if%><html><head><title>欢迎光临小型聊天室</title></head><body><meta http-equiv=Content-Language content=zh-cn><pre><%=application("show")%></pre></body></html>由于没有应用数据库，这段代码主要的部分是用application来实现对聊天内容进行共享好了，很简单的一个聊天室做好了，呵呵！不要见笑啊！ASP+ACCESS制作留言程序本文章来自 21视频教程网 ASP+ACCESS制作留言程序_Asp教程 原文链接：准备ASP环境 | IIS(Internet Information System，可以通过系统组件添加) 或 新生命专用Web服务器( 本站下载 官方下载)(我主要使用这种)ACCESS | 很容易安装的数据库程序，属于office 组件，很多Windows系统中已安装好。ASP手册 | 可要可不要，毕竟此教程比较简单，没用到太多概念的东西。Dreamweaver cs3 | 主要是利用里面的站点测试站点，以及具有语法提示语法着色的代码编辑环境。十天学会ASP | 最好你也去关注一下，因为我是通过这篇教程改编的。HTML | 搜索相关知识第一课（ASP环境调试与Dreamweaver站点建立）1、把下载好的新生命专用Web服务器放置到D:ASPweb目录，双点运行。2、运行Dreamweaver cs3 建立站点，设置本地根文件夹D:ASPweb3、设置测试服务器，服务器模型： ASP Vbscript，访问：本地/网络 ，测试服务器文件：D:ASPweb4、新建页面test.asp，在<body></body>之间添加 <%=now()%>5、F12进行预览，看到结果为计算机系统当前时间：2009-3-29 17:03:58ASP+ACCESS制作留言程序(第二课)第二课 ASP接收表单数据1、表单与表单对象一个留言页面就是一个表单页面,而页面中可以用来填写信息的文本框以及按扭都属于表单的对象。在HTML中，表单是使用<form>标签进行标记。2、制作表单页面 add.asp<form name=”form1 method=”post” action=”addProcess.asp”> 用户 <input type=”text” name=”user” id=”user”> <br> 邮箱 <input type=”text” name=”email” id=”email”><br>留言<textarea name=”message” id=”message” cols=”45 rows=”5></textarea><br><input type=”submit” name=”button” id=”button” value=”提交”></form>提示：利用Dreamweaver制作会非常便捷；红色外框线是表单；表单对象要放表单里面；文本框ID必须注意命好名（接收页面要根据名字进行接收数据）；表单属性action要求指定提交给对方的ASP页面名称。3、制作接收页面 addProcess.asp复制内容到剪贴板代码:<%user = request(”user”)email = request(”email”)message = request(”message”)response.Write (user)response.Write (”<br />”)response.Write(email)response.Write (”<br />”)response.Write(message)%>提示：request （请求）；esponse.write （向浏览器输出)；”<br />” (换行符)。 第三课 连接数据库与添加记录对于数据库的简单理解，放到第四天课来讲，这次任务是要完成连接数据库并且对数据库进行添加记录目前的站点目录准备将 data.rar 下载，解压放置在D:ASPweb目录步骤1、add.asp 代码不变:复制内容到剪贴板代码:<form name=”form1 method=”post” action=”addProcess.asp”> 用户 <input type=”text” name=”user” id=”user”> <br> 邮箱 <input type=”text” name=”email” id=”email”><br>留言<textarea name=”message” id=”message” cols=”45 rows=”5></textarea><br><label><input type=”submit” name=”button” id=”button” value=”提交”></label></form>2、addProcess.asp 代码进行适当修改：复制内容到剪贴板代码:<%set conn=server.createobject(”adodb.connection”) 创一个ado组件对象，用于连接数据库conn.open “driver=microsoft access driver (*.mdb);dbq=”&server.mappath(”Data.mdb”) 执行连接user = request(”user”) 接收数据并临时保存email = request(”email”)message =request(”message”)message = replace(message,chr(13),”<br />”) 把内容中换行的字符编码替换成HTML换行标签message = replace(message,chr(32),” ”) 把内容中空格的字符编码替换成HTML空格识别符exec=”insert into guestbook(user,email,message)values(”+user+”,”+email+”,”+message+”)” 添加记录的sql语句conn.execute exec 执行sql语句response.write “记录添加成功!”%>3、注意问题：add.asp中的表单的action是指向addProcess.asp页面；表单对象命名与request接收时名称要对应；储存request值的变量名与sql语句的变量名对应； 在sql语句中单引号与双引号的关系；单个单引句为单行注释符；测试成功会在页面上显示“记录添加功能”字样。 第四课:数据库认识及ASP连接数据库方法数据库顾名思义,就是用来存放数据的一个”仓库”。它有很多种类，例如我常用的Access数据库，MS-SQL，也有PHP的搭档Mysql数据库等等。其中 Access数据库的扩名为： mdb创建表表与记录数据库由表组成，表里面可以存放很多很多条记录。连接Access的语句set conn=server.createobject("adodb.connection") '创一个ado组件对象，用于连接数据库conn.open "driver=microsoft access driver (*.mdb);dbq="&server.mappath("数据库名.mdb") '执行连接往往我们很难背出这段语句，这里介绍一个不错的方法来得到这个连接语句：在桌面新建一个UDL格式文件，双击进行简单设置，再用记事本(Notepad)打开，你会发现代码已经出来了。:>对于这么多种类的数据库，一般情况我们都会使用Access(*.mdb)，因为它移植方便，使用简单。它是微软Office软件包里面的一个组件。但是它也有它不足之处- 安全性不够，加了用户级密码容易破解,如果做为服务器的话，对服务器要求很高，否则容易造成 MDB 损坏.- 并发数255，但是对高强度操作适应性差，如果服务器不够好，网络不够好，编程的方法不够好，多人同时访- 问就能导致 MDB 损坏.- 不能脱离 ACCESS 或者 ACCESS RUNTIME 环境，该环境相对其他软件体积较大（50M左右）。- 每个数据库文件最大限制只有2G，对于大型网站显然不能够胜任。本文章来自 21视频教程网 ASP+ACCESS制作留言程序_Asp教程 原文链接：聊天室ASP制作chat.asp <html><body><p align="center"><%name=trim(request("name")if len(name)<>0 thensession("name")=nameitems=split(application("people"),",")if ubound(items)>=100 thenresponse.write "人满，请稍后进入"session.abandonresponse.endend ifapplication.lockapplication("people")=application("people")&name&","application(name)="欢迎"&name&"进入聊天室!"application.unlock%><br><br><br><br><a herf="main.asp"><b>请加入绿色聊天室</b></a><%else%><center><table border="1" width="80%" height="150"><form action="chat.asp" method="post"><tr><td width="100%" bgcolor="#aaaaaa" height="51" align="center"><font color="#" size=5><strong><i>欢迎进入聊天室</i></strong></font></td></tr><tr><td width="100%" align="center" bgcolor="#00f0f0" height="89"><font color="#a000a0">您的昵名：</font><input type="text" name="name" size="14" maxlength="10"><input type="submit" value="进入"></td></tr></form></table></center></body></html><%end if%> content.asp<html><head><meta http-equiv="refresh" content="1;url=content.asp"><title>聊天内容</title><base targe="ltop"></head><body bgcolor="rgb(200,200,200)"><%name=session("name")if session("name")<>"" thenresponse.write application(name)else%><font face="隶书" color="#ff0000"><big><big><strong>请您进入聊天室</strong></big></big></font><%end if%></body></html> main.asp<html><head> <title>聊天室</title></head><%'显示框架和聊天室内容%><frameset rows="70%,*"><frameset cols="69%,*"><frame name="ltop" target="ltop" scrolling="auto" noresize src="content.asp"><frame name="rtop" target="rtop" scrolling="auto" noresize src="talker.asp"></frameset><frameset cols="100%"><frame scrolling="auto" noresize src="talking.asp"></frameset><noframes><body><p>浏览不支持</body></noframes></frameset></html> talker.asp<html><head><meta http-equiv="refresh" content="10;url=talker.asp"><title>聊天人员</title><base targe="rtop"></head><body bgcolor="rgb(224,241,227)"><%if session("name")<>"" then%><p><strong><font color="#ff00ff">聊天者:</font></strong><br></p><p><%items=split(application("people"),",")response.write"<font color=green>"&"-"&_session("name")&"-"&"</font><br>"for i=0 to ubound(items)-1if session("name")<>items(i)thenresponse.write"<font color=green>"&"-"&_items(i)&"-"&"</font><br>"end ifnextelse%><font face="隶书" color="#ff0000"><big><strong>请你离开</strong></big></font><%end if%></p></body></html> talking.asp<html><body bycolor="rgb(230,300,100)"><%quit=request("quit")if quit="退出" thenname=session("name")items=split(application("people"),",")application.lockapplication("people")=""for i=1 to ubond(items)-1if items(i)<>name thenapplication("people")=application("people")&items(i)&","end ifnextapplication(name)=""application.unlocksession.abandonresponse.endelsewho=request("who")if who="all" thenwho="大家"end ifif request("content")<>"" thenname=session("name")str="<font color='"&request("color")&"'><u>"&name&"</u> 对 <i><b>"&who&"</b></i> "&request("face")&"说："_&request("content")&"</font><br>"items=split(application("people"),",")application.lockif request("who")="all" thenfor i=0 to ubound(items)-1application(items(i)=str&application(items(i)nextelsefor i=0 to ubound(items)-1if items(i)=name or items(i)=who thenapplication(items(i)=str&application(items(i)end ifnextend ifapplication.unlockend if%><form method="post" action=""><p><select name="color" size=1><option value="blue">兰色</option><option value="yellow">黄色</option><option value="green">绿色</option><option value="red">红色</option><option value="gray">灰色</option><option value="black">黑色</option><option value="white">白色</option></select>后台要实现的功能：1) 后台只能由管理员登录，并设有一个密码保护。2) 管理员可以通过后台进行对文章及练习的添删改查。3) 管理员可以对用户进行管理。基于以上功能，前台通过以下11个文件予以实现，分别是： login.asp 登录文件conn.asp 链接文件index.asp 主欢迎界面文件chkSession.asp 非法登录文件chkLogin.asp 判断登录信息文件save.asp 保存进度文件article.asp 测试篇课文文件catechism.asp 习题文件aftermath.asp 解析文件error.asp 错误信息页面logout.asp 返回登录页面后台通过以下6个文件予以实现，分别是： login.asp 登录文件index.asp 主界面文件 checkSession.asp 非法登录文件loginChk.asp 密码验证网页out.asp 返回登录页面error.asp 错误信息页面1、 数据库连接。ASP与Access数据库连接：<% language=VBscript%><%dim conn,mdbfilemdbfile=server.mappath('数据库名称.mdb')set conn=server.createobject('adodb.connection')conn.open 'driver=microsoft access driver (*.mdb);uid=admin;pwd=数据库密码;dbq='&mdbfile%>2登陆前后index.asp页面区别代码首先在login.asp页面判断并将username等值存入sessionset rs=server.createobject("adodb.recordset")sqlc="select * from userinfo where username='"&request.Form("username")&"' and password='"&password&"'"rs.open sqlc,conn,1,1if rs.eof thenresponse.Write("error")response.End()elsesession("uName")=rs("username")session("uID")=rs("id")session("uGroup")=rs("userGroup")end ifrs.closeset rs=nothingresponse.Redirect("change.asp")在index.asp页面存放登录框的表格中：<!-LOGIN-><%if session("uid")="" Then%>loginbox代码<%else%>登陆后显示信息的代码<%end if%><!-LOGIN end->也可将login和登陆后显示信息的代码做成一个.asp页面在用<!-#Include File="文件名.asp"->调用loginbox代码：<div class="title-bg"><div class="titletext">会员登陆</div></div><div class="left-con" style="height:100px; padding-top:5px;border:1px #cccccc solid"> <form name="form1" method="post" action="login.asp"> <table width="203" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="60" height="30"><div align="right">用户名：</div></td> <td colspan="2"><label> <input type="text" name="username" id="username" style=" width:120px; height:20px; border:1px solid #d4d4d4; background-color:#F9F9F9;"> </label></td> </tr> <tr> <td width="60" height="33"><div align="right">密码：</div></td> <td height="30" colspan="2"> <label> <input type="password" name="password" id="textfield2" style=" width:120px; height:20px; border:1px solid #d4d4d4; background-color:#F9F9F9;"> </label></td> </tr> <tr> <td> </td> <td width="10"><input type="image" src="./images/hf_btn01.jpg" alt="登录" name="imgsubmit"/></td> <td width="10"><a href="zhuce.asp"><img src="images/hf_btn02.jpg" style="margin-top:3px;"/></a></td> </tr> </table> </form></div>登陆后显示信息的代码：<div class="title-bg"><div class="titletext">会员登陆</div></div><div class="left-con" style="height:100px; padding-top:5px;border:1px #cccccc solid"> <div align="center"> <p> </p> <p><span class="STYLE1">欢迎登陆</span><br> <strong>您登陆的时间是：</strong><br> <%=now()%></p> </div></div>3、 asp做注册页面源代码1，（index.asp 用户登陆页面）<!- #include file="conn.asp" -><!- -><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>会员</title><style type="text/css"><!-body,td,th font-family: 宋体;font-size: 14px;-></style></head><body><center><p>会员注册系统</p><form name="form1" method="post" action="login.asp"><table width="34%" border="0"><tr><td width="33%" height="30">用户名:</td><td width="67%" height="30"><input name="username" type="text" id="username" size="15"></td></tr><tr><td height="30">密码:</td><td height="30"><input name="password" type="password" id="password" size="15"></td></tr><tr><td colspan="2" align="center"><input type="submit" name="Submit" value="确定"><input type="reset" name="Submit" value="重置"></td></tr><tr><td colspan="2"><a href="reg.asp" target="_self">注册</a></td></tr></table></form></center></body></html>2，（login.asp 用户数据处理文件）<!- #include file="conn.asp" -><%'打开数据库判断用户是否存在,info为表名,
