Asp动态网站制作流程详细步骤

小小留言本的制作

目录

1、创建数据库test.mdb及留言用的数据表liuyan2

2、创建连接数据库的文件conn.asp2

3、制作留言本的首页index.asp2

4、制作留言浏览页list.asp3

5、制作添加留言的静态页add.htm4

6、制作提交留言写入数据库的动态页add.asp6

7、制作查询留言的静态页chaxun.htm7

8、制作查询留言结果显示页cxjg.asp8

9、制作删除留言静态页shanchu.htm10

10、制作删除留言动态页scjg.asp11

11、制作修改留言静态页xiugai.htm12

12、制作修改留言动态页xiugai.asp13

13、制作修改留言成功动态页xgjg.asp15

详细步骤及代码

1、创建数据库test.mdb及留言用的数据表liuyan

确定数据表的各个字段名称及数据类型分别为：qq（文本，10）、nich（文本，10）、ly（备注）、time（日期/时间，默认值=Now（）。

2、创建连接数据库的文件conn.asp

c onn.asp代码如下：

<%

set conn=server.CreateObject("adodb.connection") ‘设置一个adodb数据库连接组件

conn.open "driver={microsoft access driver (*.mdb)};dbq="

&server.MapPath("test.mdb")‘设定所要连接的数据库（包括名称和路径）%>

3、制作留言本的首页index.asp

index.asp代码如下：

<%@language="vbscript" codepage="936"%>

浏览留言

添加留言

查询留言

修改留言

删除留言

4、制作留言浏览页list.asp

list.asp代码如下：

‘包含连接数据库的文件

<%

exec="select * from liuyan" ‘查询数据表记录的表达式

set rs=server.CreateObject("adodb.recordset") ‘创建相应记录集

rs.open exec,conn,1,1 ‘读取记录集中满足表达式的相应记录

%>

<, /P>

5、制作添加留言的静态页add.htm

其中主要是一个用来提交留言数据的表单，注意表单中各个文本框等对象的命名

add.htm代码如下：

6、制作提交留言写入数据库的动态页add.asp

add.asp代码如下：

<%

qq=request.Form("qq")

nich=request.Form("nich")

ly=request.Form("ly")‘从提交的表单中获取相应的值

exec="insert into liuyan(qq,nich,ly)

values('"+qq+"','"+nich+"','"+ly+"')" ‘插入记录的表达式

conn.execute exec ‘执行该表达式命令

response.Write(" 添加留言成功!")

conn.close

set conn=nothing

%> ‘本段代码用来添加相应记录到数据表中

返回首页

7、制作查询留言的静态页chaxun.htm

方法同add.htm

chaxun.htm代码如下：

8、制作查询留言结果显示页cxjg.asp

cxjg.asp代码如下：

<%

qq=request.Form("qq")

nich=request.Form("nich")‘从表单中获取要查询的条件值

exec="select * from liuyan where qq='"+qq+"'or nich='"+nich+"'" ‘设定查询条件表达式

set rs=server.CreateObject("adodb.recordset") ‘创建相应记录集

rs.open exec,conn,1,1 ‘读取记录集中满足表达式的相应记录

%>

9、制作删除留言静态页shanchu.htm

shanchu.htm代码如下：

10、制作删除留言动态页scjg.asp

scjg.asp代码如下：

<%

exec="delete * from liuyan where id="&request.Form("id")

conn.execute exec

response.Write(" 删除留言成功!")

conn.close

set conn=nothing

%>

返回首页

11、制作修改留言静态页xiugai.htm

xiugai.htm代码如下：

12、制作修改留言动态页xiugai.asp

xiugai.asp代码如下：

<%

exec="select * from liuyan where id="&request.form("id")

set rs=server.CreateObject("adodb.recordset")

rs.open exec,conn

%>

13、制作修改留言成功动态页xgjg.asp

xgjg.asp代码如下：

<%

exec="select * from liuyan where id="&request.form("id")

set rs=server.CreateObject("adodb.recordset")

rs.open exec,conn,1,3

rs("qq")=request.Form("qq")

rs("nich")=request.Form("nich")

rs("ly")=request.Form("ly")

rs.update

rs.close

set rs=nothing

conn.close

set conn=nothing

response.Write("留言修改成功！")

%>

返回首页