跟我学做留言本（一）

答案：写在前面
    在学习了一段时间后，大家对ASP有了基本的了解：语法，函数，对象。现在可以开始动手做一个完整的项目了。这里所有的跟我学系列，
都需要有一定的基础，如果你感觉读起来很吃力，最好还是去啃啃书本里的基础知识再回来。
    在后面的文章中，我们会和大家一起，从浅入深地完成一些最常用的项目设计。所有的项目都会按设计、规划、代码、调试几个步骤来完成（请参考文档中心的《如何开始一个ASP网站的设计》）。为了简单起见，所有的数据库都用ACCESS2000，调试平台是win2000 server +IIS 5.0 这里不提供源代码给大家下载，主要是希望大家能自己动手去写这些代码。对于CSS，图象之类的资源，会提供下载的地址。

一、项目设计
    首先我们要开始的是最简单的项目：留言本。不过，“麻雀虽小，五脏俱全”，别小看留言本，跟着我们的脚步，你会发现，一个完整的项目总是要全面的知识来完成。
    现在我们开始第一步，项目的功能设计：
  1、单用户版。只有一个管理员，所有人都可以留言，可以按留言内容搜索留言；
说明：单用户版和多用户版我们以后会经常遇到。
单用户版是指：所有的用户都共用一个环境，所有的数据对所有用户都可见；
多用户版则是每个用户都有自己的个人环境，每个用户的部份数据对所有用户可见。
对于留言本来说，多用户版就是网络上常见的可以申请免费留言本的那种。
  2、记录下每个留言者的 IP，QQ，头像，姓名，主页，电子邮件，留言时间，留言内容，留言内容可以使用UBB代码。
  3、有管理员回复功能。如果已经回复，还可以更改回复的内容。记录回复的时间；
  4、记录主页的位置，以便快速回到主页；用锚点记录页面顶部，以便快速回到页首。
  5、自定义的页头和页脚，以便显示特定的信息。
  6、将数据存到ACCESS数据库
  7、管理功能：管理员登录/回复/删除/更改管理员密码/更改显示的留言数/更改主页地址

二、数据库设计
  1、数据库名：lyb.mdb
  2、表：共有二个表
    表一： admin 
    字段名        类型        长度        其它            说明
    admin_user        文本        15        不允许空值        管理员用户名
    admin_pass        文本        15        不允许空值        管理员密码
    admin_nick        文本        15        不允许空值        管理员昵称
    admin_web        文本        50        不允许空值        主页名称
    admin_http        文本        150        可为空值        主页地址
    admin_perpage    数字/整型    -        小数为0            每页显示记录数

    表二： main
    字段名        类型        长度        其它            说明
    user_id        自动编号    -        -            -
    user_name        文本        15        不为空            姓名
    user_image        文本        30        不为空            头像文件名
    user_from        文本        15        不为空            来自
    user_ip        文本        15        不为空            IP地址
    user_oicq        文本        10        可为空            QQ号
    user_http        文本        50        可为空            主页
    user_email        文本        50        可为空            电子邮件
    user_time        日期        -        长日期            留言时间
    user_ly        文本        255        不为空            留言内容
    user_replay    是/否        -        -            是否回复
    user_rply        文本        255        可为空            回复内容
    user_rptime    日期        -        长日期            回复时间

数据库做好后，要手工添加管理员的记录，如下：
admin_user:  asp2yup
admin_pass:  asp2yup
admin_nick:  小甜甜
admin_web:  我的主页
admin_http:  http://www.he-xi.com  （注：改成你们自己的）
admin_perpage: 5

最后，把数据库文件改名成 lyb.asp 以保证安全。

三、文件设计
    1、inc.asp  有关函数和常数，包括打开数据库函数，打开表函数，文字处理函数
    2、bottom.htm 页脚信息
    3、index.asp  留言本主页面。包括显示留言，管理员登录，修改参数，回复留言。引用inc.asp;
    4、main.css  css文件，存在CSS文件夹下；
    5、tou.htm  头像列表文件；
    6、image  文件夹，存头像及其它图片；


四、页面设计
1、首先来设计CSS，要设计的内容有：页面、表格、链接、表单对象
相关下载: http://www.he-xi.com/newlyb/css/main.css
CSS不是我们的重点，如果做不来，直接下载就可以了。
2、bottom.htm
<br> 
<table class=jnfont5 width="650" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center" rowspan="2" height="40">
<a href=><img src=http://old.zzzyk.com/article/Article/"images/epoint88x31-s.gif" width="88" eight="31" border="0">
</a>
</td>
    <td width="400" height="20">厦门E点网络工作室留言薄</td>
  </tr>
  <tr> 
    <td width="400" height="20">由
<a href=>厦门E点网络工作室</a> 
      出品 版本：1.0 </td>
  </tr>
  <tr> 
    <td align="center" colspan="2"> 
      <hr size="1">
    </td>
  </tr>
</table>

可以把内容改成自己的内容。

3、头像及列表文件tou.htm
    头像可以自己去网上找。或者用这个：
头像列表网页
把上面的网页里的图保存到images文件夹

4、函数库inc.asp
    以后我们将会经常用到这个库，现在先来写留言本里要用到的函数，以后再扩充。
<%
'*******************************************************************
'通用数据库ASP函数

'*******************************************************************
'数据库常数
Const databasename="lyb.asp"    '数据库名
const br="<br>"        '回车换行
const sp="&nbsp;"    '空格

'*******************************************************************
'打开数据库
sub opendb(connect)
set connect=server.CreateObject("ADODB.connection") 
connect.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(databasename)
connect.Open strconn
end sub

'*******************************************************************
'关闭数据库
sub closedb(connect)
connect.close
set connect=nothing
end sub

'*******************************************************************
'打开单个表读
sub opentable(connect,tbname,myrs)
set myrs=server.createobject("ADODB.recordset") 
rssql="select * from " & tbname
myrs.open rssql,connect,1,1
end sub

'*******************************************************************
'关闭临时表
sub closetable(rs)
rs.close
set rs=nothing
end sub

'*******************************************************************
'查询数据库
sub searchtable(connect,sql,rs)
set rs=server.createobject("ADODB.recordset") 
rs.open sql,connect,1,1
end sub

'*******************************************************************
'查询并更改数据库
sub changetable(connect,sql,rs)
set rs=server.createobject("ADODB.recordset") 
rs.open sql,connect,1,3
end sub

'*******************************************************************
'将字符串中的回车和空格转化为HTML代码（先不处理ubb代码）
function pro(nn)
dd=""
l=len(nn)

for i=1 to l
t=mid(nn,i,1)
select case t
case vbcr
  i=i+1
  dd=dd&br
case " "
  dd=dd&sp
case else
  dd=dd&t
end select
next
pro=dd
end function
%>


5、主文件结构设计index.asp
注：如果你的站点默认页不是index.asp,请改名
在这里，我们先设计出主文件的结构就可以了
'引用inc.asp

'接收参数，其中action表示相应的动作

'根据action的值来判断所要执行的子程序

'写留言子程序

'管理员登录子程序

'回复子程序

'删除记录子程序

'修改参数子程序

'退出登录子程序

'读出留言本相关信息
<html>
<head>
<!--引用CSS--!>
'输出网页标题
<bod

上一个：跟我学做留言本(三)
下一个：取得浏览者的离开时间