网上“店铺”DIY2

第二部分：实例



项目结构：

该项目主要由几个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") %> &nbsp;&nbsp;&nbsp; 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 %>	会员登录 用户 id=text1 name=txtUser size=12> 密码 入> onclick=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 "" ' next ' response.write " 书号 单 价 数量 " & session("ID_" & cstr(num_book)) & " " & session("price_" & cstr(num_book)) & " " & session("num_" & cstr(num_book)) & " " ' end if %> 为了您获得更优惠的价格，请您申请成为我们的会员，并在此进行登录。 付账方式：采用邮局付款或送货上门方式。

本站所包括文字和图片版权归于爱武

所有，未经许可，不得抄录
于爱武