网上“店铺”DIY(2)

第二部分：实例

项目结构：
该项目主要由几个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，最主要的中间的一个，大多数操作都是对中间的一个。

-->

<%@ Language=VBScript %>

<script language=javascript>

function openwindow(num){

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

}

</script>

<script language=javascript>

function buy(name){

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

}

</script>

<script language=javascript>

function viewPage(ipage){

document.Page.txtPage.value=ipage

document.Page.submit()

}

</script>

<HTML>

<HEAD>

<title>网上书店</title>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

</HEAD>

<BODY bgColor=lightcyan>

<P align=center><IMG alt="网上书店"

src="http://edu.cnzz.cn/NewsInfo/file://C:/InetPub/wwwroot/images/title.jpg"><br>

<TABLE align=center border=0 cellPadding=0 cellSpacing=10
width="100%" style="BORDER-BOTTOM-COLOR: red; BORDER-LEFT-COLOR: red;
BORDER-RIGHT-COLOR: red; BORDER-TOP-COLOR: red">

<tr>

<td colspan=3>

<table border=1 width=100% bgcolor=Khaki cellpadding=0 cellspacing=0>

<tr>

<td bgcolor=MediumSeaGreen ><% =year(date()) & "年" & month(date)
& "月" & day(date) & "日" %></td>

<td bgcolor=MediumSeaGreen ><a href="about.htm">关于我们</a></td>

<td bgcolor=MediumSeaGreen ><a href=buy.asp?name=view>查询购物蓝
</a></td>

<%

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

%>

</tr>

</table>

</td>

</tr>

<TR>

<TD width="15%" valign=top bordercolor=deeppink bgcolor=beige>

<A href=index.asp?ifcover=1><P align=center>

最新书目</a><br>

畅销书目<br>

<hr color=deeppink>

<P></P>

<p align=center>

图书分类<br>

<table border=1 cellspacing=0 cellpadding=0 width=100%>

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

%>

</table>

</p>

</TD>

<TD width = "65%" bordercolor=orangered valign=top>

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

%>

<P align=center style="FONT-SIZE: x-large"><FONT

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

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

<table border=0 cellpadding=5 cellspacing=5 width="100%">

<tr>

<td colspan=2><font color=red size=5 ><p align=center><% =rs.Fields
("Name") %></p></font></td>

</tr>

<tr>

<td width="30%"><a href="javascript:openwindow(<% =rs.Fields("ID") %
>)"><img src=<% =rs.Fields("Cover") %>>

</td>

<td><FONT color=mediumslateblue>书号:</FONT><% =rs.Fields("ID") %><br>

<FONT color=mediumslateblue>作者:</FONT><% =rs.Fields("Author") %
><br><FONT

color=mediumslateblue>原价:</FONT><% =rs.Fields("Price") %><br><FONT
color=mediumslateblue>现价:</FONT><% =rs.Fields("Price") %><br><FONT

color=mediumslateblue>出版社</FONT><% =rs.Fields("Publisher") %></td>

</tr>

<tr>

<td colspan=5>    <FONT

color=#660066><% =rs.Fields("Brief") %>

</FONT>

</td>

</tr>

<tr>

<td colspan=6><p align=right><a href=buy.asp?name=<% =rs.Fields("ID")
& "`" & rs.fields("Name") & "`" & rs.fields("Price") %>>购买
</A></p></td>

</tr>

</table>

<hr>

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

%>

<table border=1 width="100%">

<tr>

<td width=40% align=center>书名</td>

<td width=15% align=center>作者</td>

<td width=29% align=center>出版社</td>

<td width=8% align=center>价格</td>

<td width=8% align=center>订购</td>

</tr>

<%

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") & "<BR>"

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

%>

<form action="index.asp" method=post name=Page>

<% ="<a href=" & chr(34) & "javascript:viewPage(1)" & chr(34) & ">首页
</a>" %>

<%

if session("Page")="" then

session("Page")=1

end if

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

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

Response.Write "<a href=" & chr(34) & "javascript:viewPage(" & session
("Pagecur") & ")" & chr(34) & "> 前页</a>"

else

Response.Write " 前页"

end if

if clng(session("Page"))<clng(session("PageNum")) then

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

Response.Write "<A href=" & chr(34) & "javascript:viewPage(" & session
("Pagecur") & ")" & chr(34) & "> 后页 </a>"

else

Response.Write " 后页 "

end if

Response.Write "<a href=" & chr(34) & "javascript:viewPage(" & session
("PageNum") & ")" & chr(34) & ">末页</a>"

%>

<INPUT id=txtPage name=txtPage style="HEIGHT: 22px; WIDTH: 103px"
value=1>

<INPUT id=submit1 name=cmdPage type=submit value=GO style="BACKGROUND-
COLOR: peru; COLOR: greenyellow">

</form>

<%

i=0

do while not rs.EOF and i<rs.PageSize

i=i+1

Response.Write "<tr>"

'Response.Write "<td>" & rs.Fields("ID") & "</td>" %>

<td><a href="javascript:openwindow(<% =rs.Fields("ID") %>)"><%
=rs.Fields("Name") %></a></td>

<% Response.Write "<td>" & rs.Fields("Author") & "</td>"

Response.Write "<td>" & rs.Fields("Publisher") & "</td>"

Response.Write "<td>" & rs.Fields("Price") & "</td>"

Response.Write "<td>订购</td>"

Response.Write "</tr>"

rs.MoveNext

loop

Response.Write "</table>"

end if

rs.Close

end if %>

<TD width="20%" valign=top bordercolor=orangered bgcolor=beige>

<form method=post action="in.asp" id=login name=login>

<p align=center>

会员登录</p><p align=center>用户<INPUT

id=text1 name=txtUser size=12>

<br>

密码<INPUT id=text2 name=txtPWD size=12 type=password></p>

<P align=center><INPUT id=cmdLogon name=cmdLogon type=submit value=进
入><INPUT id=cmdReg name=cmdReg type=button value=申请
onclick=window.location.href="registry.asp"></form></P>

<%

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

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

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

' response.write "<table border=1 width=100%\><tr><td>书号</td><td>单
价</td><td>数量</td></tr>"

' for i=0 to num_book

' response.write "<tr><td>" & session("ID_" & cstr(num_book))
& "</td><td>" & session("price_" & cstr(num_book)) & "</td><td>" &
session("num_" & cstr(num_book)) & "</td></tr>"

' next

' response.write "</table>"

' end if

%>

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

<p>付账方式：采用邮局付款或送货上门方式。
</p></TD></TR></TBODY></TABLE></P>

<p align=center><font size=2 color=blue>本站所包括文字和图片版权归于爱武
所有，未经许可，不得抄录<br>于爱武</font></p>

</BODY>

</HTML>

时间： 2024-09-01 10:58:26

网上“店铺”DIY(2)的相关文章

网上“店铺”DIY(1)

一.概述:     最近电子商务是一个非常热门的话题.那么到底什么是"电子商务"?"电子商务"离我们到底还有多远?据一些网站的问卷调查结果显示,真正成熟的电子商务离我们还有一定的距离.而中国目前所谓的"电子商务",也是有中国特色的,这首先一点就体现在交易方式上:在国外,大多采用"VISA"卡等通用的网上结算方式,而在国内,虽然最近招商银行.建行等几家银行先后推出了网上结算服务,但还是缺少一个"顶级"的认证机

网上“店铺”DIY(3)

Buy.asp <HTML> <HEAD> <title>购货蓝</title> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <BODY bgColor=lightcyan> <P align=center><IMG alt="网上书店" src=&q

浅谈网上店铺发布信息推广的学问

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 现在在网上开店的人越来越多,不管你是采用独立购物系统程序自带的B2C商城,还是在如淘宝,拍拍,百度C2C网络拍卖平台上建立的网络店铺都需要良好的推广手段,才能增加店铺的浏览率.店铺的浏览率就如传统实体店铺每日的客流量.酒香不怕巷子深,那是过去式了,不可再以此守株待兔,要知道现在的兔子也学会树比三家,不会主动慌不择路的去撞你守着的那一颗树.实体

浅析网上店铺的销售“来路”

随着电子商务平台的不断完善,网上购物俨然成为了时下最热门的购物方式之一.众多商家也纷纷瞄准商机,打造专属于自己的网上店铺.但是网上购物是一种变化莫测的交易手段,很多的网上卖家还不能摸透买家的"来路"与"脾气",即使有好的货源也找不到合适的销路. 首先来跟大家分析一下网上店铺的销售"来路" 1. 找准适合自己产品的网上店铺销售平台,现在很多人的首选仍然是淘宝网,其次是一些类似的购物网站以及一些供生活服务行业提供网店服务的生活服务类网站.说女怕嫁错郎

网上店铺级别能当学分用

义乌工商职业技术学院的大二学生丁洋波在今年寒假20天,通过淘宝网做了至少30多万元的生意. 在义乌工商职业技术学院,几乎每个学生都开着网店,进行着网上创业,在去年,60%以上的学生能做到生活费自理,一年打工创业所得收入超过2500万. 在这个学校,还有个更让人惊讶的规定,淘宝上开店,店铺的级别还能当学分用,一颗"钻"能顶两学分. 该院副院长贾少华说:"让学生毕业时就有在社会中闯荡的本事,这是最重要的." 本报通讯员 梅沁芳

网上店铺无人问津的救命稻草

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 关于提高店铺流量和成交量的方法,无非是把握宝贝发布的时间,社区多发帖回帖,多发精华帖,产品有特色,多做友情连接,在搜索网站建立连接,服务态度要好,产品质量要保证,售后服务要到位,等等之类的,在此天天也不再赘述了,因为这是你在淘宝上开店,所必备的常识. 一.新手卖家信誉难(其实一点也不难) 好多奋斗了好久的卖家,还是一心二心,所谓信誉,我们可以

网络营销:哪些商品最适合网上销售

确定要开一家网上店铺后,"卖什么"就成为最主要的问题了.在确定卖什么的时候,要综合自身财力.商品属性以及物流运输的便捷性,对售卖商品加以定位.目前个人店铺的网上交易量比较大的包括服装服饰.化妆品.珠宝饰品.手机.家居饰品等.在这方面,网上开店与传统的店铺并无太大区别,寻找好的市场和有竞争力的产品,是成功的重要因素. 在考虑卖什么的时候,一定要根据自己的兴趣和能力而定.尽量避免涉足不熟悉.不擅长的领域.同时,要确定目标顾客,从他们的需求出发选择商品.目前主流网民有两大特征,一是年轻化,以

网上购物的安全问题

现在由于大家的生活节奏加快,在线网购的人也越来越多.网购行为也越来越频繁.什么服装.烟酒.手机.厨具.宠物食品等等,除了一些必须亲自体验才干出手的东西,几乎没有什么在网上购买不到的了.而且网上购物还经常会有一些意外的收获,让人不得不赞叹,网络时代的魅力. 但是对于大部分朋友,可能都尚存一种顾虑.因为很多时候,在线交易都需要用到银行卡/信用卡,而现在网上使用银行卡/信用卡进行交易,很容易遇到各种诈骗行为,毕竟不是面对面交易.尤其是在国内,网络交易更是被很多朋友敬而远之. 那么如何方便.快捷,而又安

网上购物的优势

网上纳物之所以方兴未艾,除了各种客观环境促其发展之外,与这种消费模式自身的魅力也是密不可分的.与传统的现实中上街购物的消费模式相比,它拥有诸多颇具诱惑力的优势与特色,让消费者不得不为之侧目. 节约购物时间 由于网络购物足不出户就可购买到所需商品,因而极大地节省了购物时间,若是现实生活中的购物地点距离很远还免除了舟车劳顿.因而,这种在线交易的方式对于平日里工作繁忙的Office一族尤为适用,即便是因加班等原因没时间逛街,也可利用工作间隙的少许时间完成商品购买. 节省购物成本 由于网上店铺简化了由生