第二部分：实例

项目结构：

该项目主要由几个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 <!--

分三个TD，最主要的中间的一个，大多数操作都是对中间的一个。

--&gt

function openwindow(num){

window.open ("info.asp?key=" + num,"yu",0,0)

}

function buy(name){

window.open ("buy.asp?name=" + name ,"yu",0,0)

}

function viewPage(ipage){

document.Page.txtPage.value=ipage

document.Page.submit()

}

网上书店

src="file://C:InetPubwwwrootimages itle.jpg">

width="100%" style="BORDER-BOTTOM-COLOR: red; BORDER-LEFT-COLOR: red; BORDER-RIGHT-COLOR: red; BORDER-TOP-COLOR: red">

& "月" & day(date) & "日" %>

if session("UserID")<>"" then

Response.Write "

会员：" & session ("UserName") & ""

else

Response.Write "

会员：未登录"

end if

if session("sum")="" then session("sum")=0

Response.Write "

购货总金额：" & session ("sum") & ""

%>

畅销书目

---

图书分类

rs.open "select * from class order by ID","DSN=sqlsales;UID=sa;",3,3

rs.movefirst

do while not rs.eof

Response.Write "

"

Response.Write "

"

Response.Write "

"

rs.movenext

loop

%>

request.querystring("ifcover")=1 then %>

set rs=server.CreateObject("ADODB.Recordset")

rs.Open "select * from book where

ifcover=1","DSN=sqlsales;UID=sa;",3,3

%>

color=mediumslateblue style="FONT-FAMILY: serif" >最新书目

("Name") %>

>)"> >

书号:

作者:>

color=mediumslateblue>原价:

color=mediumslateblue>现价:

color=mediumslateblue>出版社

　　

color=#660066>

& "`" & rs.fields("Name") & "`" & rs.fields("Price") %>>购买

---

next

rs.Close

%>

Response.Write "购物蓝"

else

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

if Request.QueryString("flag")<>"" then session("flag")

=Request.QueryString("flag")

rs.open "select* from book where flag=" & session

("flag"),"DSN=sqlsales;UID=sa;",3,3

session("PageNum")=rs.PageCount

if rs.RecordCount <>0 then

%>

书名

作者

出版社

价格

订购

rs.MoveFirst

session("pagecur")=session("pagecur" & Request.QueryString("flag"))

if session("pagecur") ="" then

session("pagecur")=1

rs.AbsolutePage=1

else

if (Request.Form("txtPage"))="" then

'response.write session("pagecur") & "

"

rs.AbsolutePage =session("pagecur")

session("page")=session("pagecur")

else

rs.AbsolutePage =clng(Request.Form("txtPage"))

session("page")=clng(Request.Form("txtPage"))

'session("Page")=clng(Request.Form("txtPage"))

end if

end if

%>

首页

" %>

if session("Page")="" then

session("Page")=1

end if

if clng(session("Page"))>1 then

session("pagecur")=clng(session("page"))-1

Response.Write "("Pagecur") & ")" & chr(34) & "> 前页"

else

Response.Write " 前页"

end if

if clng(session("Page"))

session("pagecur")=clng(session("Page"))+1

Response.Write "("Pagecur") & ")" & chr(34) & "> 后页 "

else

Response.Write " 后页 "

end if

Response.Write "("PageNum") & ")" & chr(34) & ">末页"

%>

value=1>

i=0

do while not rs.EOF and i

i=i+1

Response.Write "

"

'Response.Write "

" & rs.Fields("ID") & "" %>

)">=rs.Fields("Name") %>

" & rs.Fields("Author") & ""

Response.Write "

" & rs.Fields("Publisher") & ""

Response.Write "

" & rs.Fields("Price") & ""

Response.Write "

订购"

Response.Write "

"

rs.MoveNext

loop

Response.Write "

"

end if

rs.Close

end if %>

会员登录

用户

id=text1 name=txtUser size=12>

密码

入>οnclick=window.location.href="registry.asp">

' session("num_book")=session("num")

' if session("num_book")<>"" then

' num_book=clng(session("num_book"))

' response.write "

书号

单 价

数量

' for i=0 to num_book

' response.write "

" & session("ID_" & cstr(num_book)) & "" & session("price_" & cstr(num_book)) & "" & session("num_" & cstr(num_book)) & ""

' next

' response.write "

"

' end if

%>

为了您获得更优惠的价格，请您申请成为我们的会员，并在此进行登录。

付账方式：采用邮局付款或送货上门方式。

本站所包括文字和图片版权归于爱武所有，未经许可，不得抄录

于爱武

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124729/，如需转载，请注明出处，否则将追究法律责任。