资源描述
Asp动态网站制作流程
1、建立个人站点文件夹（如：E:\web100）
2、配置IIS：开始—程序—管理工具—Internet信息服务—默认网站—属性
（1）主目录：本地路径：E:\web100
（2）文档：index.asp
3、启用DW 8.0建立站点：站点—新建站点—“高级”或站点—管理站点—编辑—“高级”
（1）本地信息：站点名称：myweb；本地根文件夹：E:\web100；
（2）测试服务器：服务器模型：ASP VBScript；访问：本地/网络。
4、在DW中选择：文件—新建—动态页 ASP VBScript（文档类型：无）—创建
5、开始网页页面设计及代码编写等操作，将文件保存为.htm或.asp类型。
6、在Internet信息服务器窗口中右键点击要浏览的网页文件，选择“浏览”，在打开的IE窗口中进行测试，也可以直接打开IE，在地址栏里输入： 或或http://本机IP地址，来进行页面测试。
对数据库中数据表的操作主要有：增、删、改
（1）读取记录（显示/浏览记录）
（2）写入记录（插入记录）
（3）查询记录（查找满足指定条件的记录）
（4）修改记录
（5）删除记录
小小留言本的制作
目录
1、创建数据库test.mdb及留言用的数据表liuyan 2
2、创建连接数据库的文件conn.asp 2
3、制作留言本的首页index.asp 2
4、制作留言浏览页list.asp 3
5、制作添加留言的静态页add.htm 4
6、制作提交留言写入数据库的动态页add.asp 6
7、制作查询留言的静态页chaxun.htm 7
8、制作查询留言结果显示页cxjg.asp 8
9、制作删除留言静态页shanchu.htm 10
10、制作删除留言动态页scjg.asp 11
11、制作修改留言静态页xiugai.htm 12
12、制作修改留言动态页xiugai.asp 13
13、制作修改留言成功动态页xgjg.asp 15
详细步骤及代码
1、创建数据库test.mdb及留言用的数据表liuyan
确定数据表的各个字段名称及数据类型分别为：qq（文本，10）、nich（文本，10）、ly（备注）、time（日期/时间，默认值=Now（）。
2、创建连接数据库的文件conn.asp
conn.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"></td>
</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></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>
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")%>" size="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>
展开阅读全文
浙ICP备2021020529号-1 | 浙B2-20240490 
