网上“店铺”DIY2 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 网上“店铺”DIY2

网上“店铺”DIY2 时间：2004/10/7 19:18:00来源：本站整理作者：蓝点我要评论(0)

第二部分：实例

项目结构：

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

<%@ Language=VBScript %>

网上书店

网上书店

src="file://C:\InetPub\wwwroot\images\title.jpg">

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

BORDER-RIGHT-COLOR: red; BORDER-TOP-COLOR: red">

<%

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

Response.Write ""

else

Response.Write ""

end if

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

Response.Write ""

%>

<% =year(date()) & "年" & month(date)

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

关于我们

查询购物蓝

会员：" & session

("UserName") & "

会员：未登录

购货总金额：" & session

("sum") & "

最新书目

畅销书目

图书分类

<% 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 ""

rs.movenext

loop

%>

"

Response.Write "" & rs

("Name") & "
"

Response.Write "

<% if Request.QueryString("flag")="" and session("flag")="" or

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" >最新书目

<% for i=1 to rs.RecordCount %>

<% =rs.Fields ("Name") %>
>)">>	书号:<% =rs.Fields("ID") %> 作者:<% =rs.Fields("Author") % > color=mediumslateblue>原价:<% =rs.Fields("Price") %> color=mediumslateblue>现价:<% =rs.Fields("Price") %> color=mediumslateblue>出版社<% =rs.Fields("Publisher") %>
color=#660066><% =rs.Fields("Brief") %>
& "`" & rs.fields("Name") & "`" & rs.fields("Price") %>>购买

<% rs.MoveNext

next

rs.Close

%>

<% elseif Request.QueryString("flag")=9999 then

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 "" %>

<% Response.Write ""

Response.Write ""

Response.Write ""

Response.Write ""

Response.Write ""

rs.MoveNext

loop

Response.Write "

书名	作者	出版社	价格	订购
" & rs.Fields("ID") & "	)"><% =rs.Fields("Name") %>	" & rs.Fields("Author") & "	" & rs.Fields("Publisher") & "	" & rs.Fields("Price") & "	订购

"

end if

rs.Close

end if %>

<%

' 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 ""

' next

' response.write "