第二部分：实例
项目结构：
该项目主要由几个ASP文件和一个数据库组成：
book.mdb：存放数据库的内容
index.asp：网站主要的文件，大部分的内容均由它来显示
buy.asp：购物蓝的内容
in.asp：供登录使用
registry.asp：使您成为我们的会员
数据库（book.mdb）：
第一个表是Book，用于存储关于书目的一些相关的信息，结构如下：
ID
整型
书的序号
Name
字符
书的名字
Author
字符
作者
Brief
字符
简介
Ifcover
整型
是否首页显示
Price
双精度
价格
Publisher
字符
出版社
Cover
字符
封面的图片的路径
Flag
整型
标志
第二个表是info，用于存储会员的信息，结构如下：
Id
字符
会员登录号
Name
字符
会员姓名
Pwd
字符
登录密码
Email
字符
Address
字符
地址
Phone
字符
电话
Post
字符
邮编
Sfz
字符
身份证号码
第三个表是class，用于存储书目的类别，其结构如下：
ID
字符
编号
Name
字符
类别
几个ASP文件的内容：
Index.asp
1@ Language=VBScript
1<script language="javascript">
2
3function openwindow(num){
4
5window.open ("info.asp?key=" + num,"yu",0,0)
6
7}
8
9</script>
1<script language="javascript">
2
3function buy(name){
4
5window.open ("buy.asp?name=" + name ,"yu",0,0)
6
7}
8
9</script>
1<script language="javascript">
2
3function viewPage(ipage){
4
5document.Page.txtPage.value=ipage
6
7document.Page.submit()
8
9}
10
11</script>
1<html>
2<head>
3<title>网上书店</title>
4<meta content="Microsoft Visual Studio 6.0" name="GENERATOR"/>
5</head>
6<body bgcolor="lightcyan">
7<p align="center"><img alt="网上书店" src="file://C:\InetPub\wwwroot\images\title.jpg"/><br/>
8<table align="center" border="0" cellpadding="0" cellspacing="10" style="BORDER-BOTTOM-COLOR: red; BORDER-LEFT-COLOR: red;
9BORDER-RIGHT-COLOR: red; BORDER-TOP-COLOR: red" width="100%">
10<tr>
11<td colspan="3">
12<table bgcolor="Khaki" border="1" cellpadding="0" cellspacing="0" width="100%">
13<tr>
14<td bgcolor="MediumSeaGreen">```
15 =year(date()) &amp; "年" &amp; month(date)
16&amp; "月" &amp; day(date) &amp; "日"
17```</td>
18<td bgcolor="MediumSeaGreen"><a href="about.htm">关于我们</a></td>
19<td bgcolor="MediumSeaGreen"><a href="buy.asp?name=view">查询购物蓝
20</a></td>
21
if session("UserID")<>"" then
Response.Write "<td bgcolor="MediumSeaGreen"> 会员：" & session
("UserName") & "</td>"
else
Response.Write "<td bgcolor="MediumSeaGreen">会员：未登录</td>"
end if
if session("sum")="" then session("sum")=0
Response.Write "<td bgcolor="MediumSeaGreen">购货总金额：" & session
("sum") & "</td>"
1
2</tr>
3</table>
4</td>
5</tr>
6<tr>
7<td bgcolor="beige" bordercolor="deeppink" valign="top" width="15%">
8<a href="index.asp?ifcover=1"><p align="center">
9
10最新书目</p></a><br/>
11
12畅销书目<br/>
13<hr color="deeppink"/>
14<p></p>
15<p align="center">
16
17图书分类<br/>
18<table border="1" cellpadding="0" cellspacing="0" width="100%">
19
set rs=server.CreateObject("ADODB.recordset")
rs.open "select * from class order by ID","DSN=sqlsales;UID=sa;",3,3
rs.movefirst
do while not rs.eof
Response.Write "<tr><td align="center">"
Response.Write "<a "="" &="" href='index.asp?flag="' rs("id")="">" & rs
("Name") & "</a><br/>"
Response.Write "</td><tr>"
rs.movenext
loop
1
2</tr></tr></table>
3</p>
4</td>
5<td bordercolor="orangered" valign="top" width="65%">
6
if Request.QueryString("flag")="" and session("flag")="" or
request.querystring("ifcover")=1 then
1
set rs=server.CreateObject("ADODB.Recordset")
rs.Open "select * from book where
ifcover=1","DSN=sqlsales;UID=sa;",3,3
1
2<p align="center" style="FONT-SIZE: x-large"><font color="mediumslateblue" style="FONT-FAMILY: serif">最新书目</font></p>
3
for i=1 to rs.RecordCount
1
2<table border="0" cellpadding="5" cellspacing="5" width="100%">
3<tr>
4<td colspan="2"><font color="red" size="5"><p align="center">```
5 =rs.Fields
6("Name")
7```</p></font></td>
8</tr>
9<tr>
10<td width="30%"><a %="" href="javascript:openwindow(```
11 =rs.Fields(" id")="">)"&gt;<img =rs.fields("cover")="" ```="" src="<%"/>
12</a></td>
13<td><font color="mediumslateblue">书号:</font>```
14 =rs.Fields("ID")
15```<br/>
16<font color="mediumslateblue">作者:</font>```
17 =rs.Fields("Author") %
18&gt;<br/><font color="mediumslateblue">原价:</font>&lt;% =rs.Fields("Price")
19```<br/><font color="mediumslateblue">现价:</font>```
20 =rs.Fields("Price")
21```<br/><font color="mediumslateblue">出版社</font>```
22 =rs.Fields("Publisher")
23```</td>
24</tr>
25<tr>
26<td colspan="5"> <font color="#660066">```
27 =rs.Fields("Brief")
1 rs.MoveNext
2
3next
4
5rs.Close
6
1 elseif Request.QueryString("flag")=9999 then
2
3Response.Write "购物蓝"
4
5else
6
7set rs=server.CreateObject("ADODB.recordset")
8
9if Request.QueryString("flag")&lt;&gt;"" then session("flag")
10=Request.QueryString("flag")
11
12rs.open "select* from book where flag=" &amp; session
13("flag"),"DSN=sqlsales;UID=sa;",3,3
14
15session("PageNum")=rs.PageCount
16
17if rs.RecordCount &lt;&gt;0 then
18