Asp动态网站制作流程详细步骤
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
小小留言本的制作
目录
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"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>小小留言本</title>
</head>
<body>
<a href="list.asp">浏览留言</a>
<a href="add.htm">添加留言</a>
<a href="chax.htm">查询留言</a>
<a href="xiugai.htm">修改留言</a>
<a href="shanchu.htm">删除留言</a>
</body>
</html>
4、制作留言浏览页list.asp
list.asp代码如下：
<!--#include file ="conn.asp"--> ‘包含连接数据库的文件
<%
exec="select * from liuyan" ‘查询数据表记录的表达式
set rs=server.CreateObject("adodb.recordset") ‘创建相应记录集
rs.open exec,conn,1,1 ‘读取记录集中满足表达式的相应记录
%>
<html><, /P>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>所有访客留言内容</title>
</head>
<body>
<div align="center">
<p>所有访客留言内容</p>
<table width="400" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>编号</td>
<td>QQ号</td>
<td>昵称</td>
<td>留言内容</td>
<td>留言时间</td>
</tr>
<% do while not rs.eof %>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("qq")%></td>
<td><%=rs("nich")%></td>
<td><%=rs("ly")%></td>
<td><%=rs("time")%></td>
</tr>‘该段代码用来在页面相应单元格中显示查询的记录
<%
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing ‘关闭记录集
conn.close
set conn=nothing ‘关闭数据库的连接
%>
<p><a href="index.asp">返回首页</a> </p>
</div>
</body>
</html>
5、制作添加留言的静态页add.htm
其中主要是一个用来提交留言数据的表单，注意表单中各个文本框等对象的命名
add.htm代码如下：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>添加留言</title></head>
<body><div align="center"><p>添加新留言</p>
<form name="form1" method="post" action="add.asp">
<table width="359" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="59">QQ号</td>
<td width="135"><input name="qq" type="text" id="qq" size="15"></t d>
</tr>
<tr>
<td>昵称</td>
<td><input name="nich" type="text" id="nich" size="15"></td>
</tr>
<tr>
<td>留言</td>
<td><textarea name="ly" rows="3" wrap="off" id="ly"></textarea></t d>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="重写">
</div></td>
</tr>
</table>
</form>
<p><a href="index.asp">返回首页</a></p>
</div>
</body>
</html>
6、制作提交留言写入数据库的动态页add.asp
add.asp代码如下：
<!--#include file ="conn.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
%> ‘本段代码用来添加相应记录到数据表中
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>留言成功</title></head>
<body><a href="index.asp">返回首页</a>
</body>
</html>
7、制作查询留言的静态页chaxun.htm
方法同add.htm
chaxun.htm代码如下：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>查询留言</title>
</head>
<body>
<div align="center">
<p>查询留言内容</p>
<form name="form1" method="post" action="cxjg.asp">
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="74">QQ号</td>
<td width="120"><input name="qq" type="text" id="qq" size="15"></td> </tr>
<tr>
<td>昵称</td>
<td><input name="nich" type="text" id="nich" size="15"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="查询">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
</form>
<p><a href="index.asp">返回首页</a></p>
</div>
</body>
</html>
8、制作查询留言结果显示页cxjg.asp
cxjg.asp代码如下：
<!--#include file ="conn.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 ‘读取记录集中满足表达式的相应记录
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>查询留言结果</title>
</head>
<body>
<div align="center">
<p>查找到的留言内容</p>
<table width="452" border="1" cellspacing="0" cellpadding="0"> <tr>
<td>编号</td>
<td>QQ号</td>
<td>昵称</td>
<td>留言内容</td>
<td>留言时间</td>
</tr>
<% do while not rs.eof %>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("qq")%></td>
<td><%=rs("nich")%></td>
<td><%=rs("ly")%></td>
<td><%=rs("time")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing‘关闭记录集和数据库
%>
<p><a href="index.asp">返回首页</a> </p>
</div>
</body>
</html>
9、制作删除留言静态页shanchu.htm
shanchu.htm代码如下：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>删除留言</title>
</head>
<body>
<div align="center">
<p>删除留言</p>
<form name="form1" method="post" action="scjg.asp">
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="68">编号</td>
<td width="126"><input name="id" type="text" id="id" size="15"></td> </tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="删除">
</div></td>
</tr>
</table>
</form>
<p><a href="index.asp">返回首页</a></p>
</div>
</body>
</html>
10、制作删除留言动态页scjg.asp
scjg.asp代码如下：
<!--#include file ="conn.asp"-->
<%
exec="delete * from liuyan where id="&request.Form("id")
conn.execute exec
response.Write(" 删除留言成功!")
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>删除留言成功</title>
</head>
<body>
<a href="index.asp">返回首页</a>
</body>
</html>
11、制作修改留言静态页xiugai.htm
xiugai.htm代码如下：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>修改留言</title>
</head>
<body>
<div align="center">
<p>修改留言</p>
<form name="form1" method="post" action="xiugai.asp">
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="68">编号</td>
<td width="126"><input name="id" type="text" id="id" size="15"></td> </tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="修改">
</div></td>
</tr>
</table>
</form>
<p><a href="index.asp">返回首页</a></p>
</div>
</body>
</html>
12、制作修改留言动态页xiugai.asp
xiugai.asp代码如下：
<!--#include file ="conn.asp"-->
<%
exec="select * from liuyan where id="&request.form("id")
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>修改留言</title>
</head>
<body>
<div align="center">
<p>修改留言</p>
<form name="form1" method="post" action="xgjg.asp">
<table width="360" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>QQ号</td>
<td>
<input name="qq" type="text" id="qq" value="<%=rs("qq")%>" size="15 ">
</td>
</tr>
<tr>
<td>昵称</td>
<td>
<input name="nich" type="text" id="nich" value="<%=rs("nich")%>" siz e="15">
</td>
</tr>
<tr>
<td>留言</td>
<td>
<textarea name="ly" rows="3" id="ly"><%=rs("ly")%></textarea>
<input name="id" type="hidden" id="id" value="<%=request.form("id ")%>">
</td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit2" value="重写">
</div></td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<p><a href="index.asp">返回首页</a></p>
</div>
</body>
</html>
13、制作修改留言成功动态页xgjg.asp
xgjg.asp代码如下：
<!--#include file ="conn.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("留言修改成功！")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>修改成功</title>
</head>
<body>
<a href="index.asp">返回首页</a>
</body>
</html>
11 / 11。