Asp教你制作简单的留言簿

来源：qqread 作者：opooR 出处：巧巧读书 2007-01-10 进入讨论组

前言:
　　前几天看了《请不要做浮躁的人》这篇文章.真是收益非浅..每看这篇文章就会脸红一次.想想学习ASP这么长时间了..居然还是属于菜鸟级的人物.说来惭愧那.可能跟自己的努力程度和实践程度有关.文中有句话说的好: 菜鸟学习脚本的方法就是多练习. 的确是这样,世界上本来就没有跨不过去的坎..关键在于你要去做.光说不练是假把式....我想只要你去做了,你就不可能永远菜下去... 那好....废话不说了,切入正题.

　　学习ASP有段时间了..对一些基础的东西也有了一些了解.比如常用的内置对象的用法.那么现在你需要开始动手规划你的第一个留言本.人都有第一次吗?是不是....你要把那些知识用到实战中去以检验你的ASP学习成果..那,留言本其实是最好的练手机会.因为留言本从结构上来说不是很复杂...而且会用到很到ASP中比较基础的东西.你独立完成的这个留言本是你的第一个作品,好说也有点成就感嘛.而且对你的ASP技术进阶也有很大的帮助.....省略1000字..哎..我这个人就是喜欢罗嗦..就此打住... 我们马上开始...

一. 制作思路
　　思路其实是一个很重要的东西.写程序尤其是如此.谁都没有把握去编写一个还没有思考成熟的东西. 先明确一点,这个留言本没有用到任何新技术.[是给菜鸟看的嘛].因为这个教程的目的不在于创新而在于练习.

　　大体的思路是这样: 需要一个数据库存放留言的内容等.然后用ASP读出数据库中的内容显示在页面上. 主要讲解了一下在ASP中运用ADO和SQL语句对数据库的一些基本操作.比如最常用的Select语句.对了.就是这样.关于ADO请参阅相关资料...
    在这个极简单的留言本中用到的文件清单:
    Liuyan.mdb    '留言本数据库文件
    Install.asp   '留言本表结构创建文件
    Show.asp      '显示留言主文件
    Add.htm       '添加新留言表单
    Insert.asp    '插入新留言文件
    login.asp     '管理员登录文件
    del.asp       '删除留言文件

二.建立数据库
1.打开你的Access建立一个文件名为:Liuyan.mdb.添加以下字段:
   (1). ID        类型为自动编号(存放留言的ID编号)
   (2). Name      类型为文本字段(存放留言人的姓名)
   (3). Homepage 类型为文本字段(存放留言人的主页)
   (4). Title     类型为文本字段(存放留言的主题)
   (5). Neirong   类型为备注字段(存放留言的内容)

　　当然你可以自己添加你认为需要的字段，如果你把字段名或表名换成其它名称，则对程序也要作出相应的更改，不然会出错。如果你不想手工建表及添加字段，那你可以在浏览器中运行Install.asp文件，它可以自动建表，你就可以偷懒了:)

2. 在开始编写之前有必要罗列下在这个留言本中用的的SQL语句.也是留言本的原理.
以本数据库为例:

'检索出数据库中的留言并最新的留言在前
Sql=SELECT * FROM liuyan ORDER BY id DESC
'这个语句是签写新留言时用到的.
Sql=INSERT INTO liuyan(name,homepage,title,neirong) VALUES
('name','homepage',title','neirong')

　　这两条语句是今天要用到的.还有很多基本语句比如Delete,update等并没有在这个留言本中用到.你可以自己试着完善.

三.编写代码
　　1.Install.asp：考虑到手工建表有点麻烦，所以写了这个文件。文件主要用到CREATE TABLE和DROP TABLE语句，不过由于数据库的原因，有些数据库有可能不支持此语句。本文以Access为例，因为ACCESS支持这两条语句，如果还是新手还看不懂那也没关系，以为有机会再研究好了:)。由于不清楚数据库定义了那些关键字，所以在创建表和字段时，都用[]把表名和字段名括起来，即使表名或字段名和数据库的关键字冲突，也不会引起程序出错。不过运行本程序前，必须先在Access中创建一个数据库名称为liuyan.mdb，可以不为其创建表，用此程序来创建。
Install.asp的源代码：
<% '此文件在执行后最好删除，因为如果不注意再次执行的话，将会使数据库的所有<a href="/tag/1817/index.html" target="_blank">数据丢失</a>，切记！ Dim SYS_strTableName,SYS_strSQL,SYS_objRS '需要创建的表的名字 SYS_strTableName = "liuyan" Set objConn = Server.CreateObject("ADODB.Connection") 'OLEDB方式打开数据库的Connection对象连接字符串 strcon="provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath("liuyan.mdb") objConn.open strcon'和数据库已经建立连接可对其操作了. 'DROP TABLE是一条从数据库中删除表的SQL语句。有些数据库有可能不支持。 SYS_strSQL = "DROP TABLE [" & SYS_strTableName & "]" '删除表时，如果有错误出现则跳转执行下语句 '因为如果DROP TABLE一个数据库中并不存在的表时，就会导致程序出错， '所以加了这个语句On Error Resume Next On Error Resume Next objConn.Execute (SYS_strSQL) '因为On Error Resume Next比较耗资源，执行这条语句后，下面再出现错误将不会被跳转了也就是On Error Resume Next将不对此后的语句产生作用了，如果不加这句话，就对此后的都起屏蔽错误的作用。 On Error Goto 0 '创建表格的主要是用CREATE TABLE语句 'CREATE TABLE tablename (fieldname1 fieldytype1,fieldname2 fieldtype2......) SYS_strSQL = "CREATE TABLE [" & SYS_strTableName & "] (" '此为创建自动编号类型的字段id SYS_strSQL = SYS_strSQL & "[id] integer IDENTITY (1, 1) PRIMARY KEY NOT NULL ," '创建文本类型的字段name，并限定该字段的长度为50(char(50)实现该功能),不能为空(NOT NULL) SYS_strSQL = SYS_strSQL & "[name] char (50) NOT NULL," '创建文本类型的字段homepage，并限定该字段的长度为50(char(50)实现该功能),允许为空(NULL) SYS_strSQL = SYS_strSQL & "[homepage] char (50) NULL ," SYS_strSQL = SYS_strSQL & "[title] char(50) NOT NULL," '创建备注类型的字段neirong SYS_strSQL = SYS_strSQL & "[neirong] memo)" Set SYS_objRS = objConn.Execute(SYS_strSQL) '显示创建成功信息。 Response.Write (" " & SYS_strTableName & " 表创建成功！ ") %>
[Ctrl+A 全部选择然后拷贝]

　　2.show.asp文件基本思路: 把每一条留言以表格的形式存放标准Html中.然后通过Asp中的Do while方法循环打印出表格.利用ADO对象依次读出数据表的留言内容显示在页面上.暂时没有分页功能.....因为这是个最简单的留言本吗?^_^..

先定义数据库连接对象..采用标准的Oledb连接方式.主要用到Connection、RecordSet这两个对象.就是我们读出的记录集变量．
show.asp的源代码：
<html> <head> <title>最简留言本</title> <LINK href="style.css" rel=stylesheet type=text/css> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head> <body leftmargin="1" topmargin="0"> <% Set conn = Server.CreateObject("ADODB.Connection") strcon="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("liuyan.mdb") conn.open strcon '和数据库已经建立连接可对其操作了. Set rs = Server.CreateObject ("ADODB.Recordset") '建立Recordset记录集对象 sql = "SELECT * FROM Liuyan ORDER BY id DESC" '上面提到的Sql语句．作用是取出数据. rs.Open sql,conn,1 '用RS对象的Open方法打开数据库并把数据存放进记录集中.... If rs.Bof And rs.Eof Then '表中还没有任何记录 '在屏幕上居中显示"还没任何留言！"，并给出"添加新留言"的链接 Response.Write("<center>还没有任何留言！ 请<a href=""Add.htm"">添加新留言</a></center>") '强制终止程序的执行，在调试ASP程序时经常要用到这句 Response.End End If Do While Not rs.eof '循环读出所有记录 'Server.HtmlEncode(字符串)主要是原样输出HTML和<a href="/keys/javascript/index.html" target="_blank">JavaScript</a>代码 %>  <table align=center width=65% cellspacing=1 cellpadding=4 bgcolor="#999999"> <tr> <td width=72 height="" align=center valign="middle" bgcolor="#003366">留言本:</td></tr> <tr> <td width="72" height="0" valign="middle" bgcolor="#E6E6E6">姓名：</td><td height="20" bgcolor="#E6E6E6"> <%=server.htmlencode(rs("name"))%> </td> </tr> <tr> <td width="72" height="0" valign="middle" bgcolor="#FFFFFF">hompage:</td> <td height="20" bgcolor="#FFFFFF"><%= server.htmlencode(rs("homepage"))%> </td></tr> <tr> <td width="72" height="20" bgcolor="#E6E6E6">主题：</td> <td height="20" bgcolor="#E6E6E6"><%=server.htmlencode(rs("Title"))%></td></tr> <tr style="word-break:break-all"> <td width="72" height="20" bgcolor="#E6E6E6">留言：</td> <td height="20" bgcolor="#E6E6E6"><%= server.htmlencode(rs("neirong"))%> </td></tr></table>  <% rs.movenext Loop '关闭对象并释放资源 rs.Close Set rs = Nothing Conn.Close Set Conn = Nothing %> </body> </html>
[Ctrl+A 全部选择然后拷贝]

浏览URL http://www.qqread.com/asp/2007/01/n292445.html进入讨论组讨论。