欢迎光临爱时尚女性网
 

一步一步教你制作自己的网上店铺

2012-10-18 编辑:knwz 来源:爱时尚女性网 阅读次数:515
  导读:一、概述: 最近电子商务是一个非常热门的话题。那么到底什么是“电子商务”?“电子商 务”离我们到底还有多远?据一些网站的问卷调查结果显示,真正成熟的电子商务离 我们还有一定的距离。而中国目前所谓的“电子商务”,也是有中国特色的,这首先 一点就体现在交易方式...
一、概述:
最近电子商务是一个非常热门的话题。那么到底什么是“电子商务”?“电子商
务”离我们到底还有多远?据一些网站的问卷调查结果显示,真正成熟的电子商务离
我们还有一定的距离。而中国目前所谓的“电子商务”,也是有中国特色的,这首先
一点就体现在交易方式上:在国外,大多采用“VISA”卡等通用的网上结算方式,而
在国内,虽然最近招商银行、建行等几家银行先后推出了网上结算服务,但还是缺少
一个“顶级”的认证机构,从而导致了网上购物时的消费心态:商家对客户不信任,
而客户也怕上当受骗,所以就形成了目前的具有中国特色的网上购物形式,大多数都
是采用汇款或货到付款的方式。
虽然目前国内还没有开始真正意义上的电子商务,但是对于我们来说,还是应该
做好准备,迎接迟来的电子商务。下面我们来做一个简单的“网上书店”,希望大家
从中能得到一些启示。
要建立一个网上书店,首先应该在网上安一个家。第一步是申请一个域名,然后
还要有自己的服务器,至于服务器的选择,可以用自己的服务器,也可以从ISP处租用
空间,如果使用自己的服务器,可以将它放在自己的机房内自己维护,也可以放在ISP
处实行托管。这几种方式各有各的优缺点,大家可以根据自己的实际情况进行选择。
采用租用空间的形式最为简单,要以满足一般中小用户的要求,而且对于主机的各种
维护您均不用操心。如果您有自己的主机,那么您的使用将是非常灵活的,您可以在
您的机子上建立数据库,而不用受ISP的限制,但是对于您的专业要求将比较高。因此
对于初次涉足这一领域的人来说,可以先租用一块空间就可以了。
在有了一个域名和一个“空间”后,剩下的就是主页了。这里所说的主页指的是
asp主页,因为这种主页可以很好地处理数据库。要想很好地使用ASP,必须有一些
HTML的基础和一门脚本语言的知识,在后面,我会对HTML和脚本语言做一个较为简要
地介绍,然后重点说一下ASP主页的创建以及与数据库的结合,最后地压轴好戏是一个
网上书店的具体实例,如果大家能跟我一步步地做下去… …好了,下面我们就开始
吧!
二、HTML基础:
HTML在严格意义上来讲,并不算是一种语言,因为它完全是靠浏览器来解释执行
的。也可以说,HTML是一种标记语言,用它可以快速地开发出Web页面。
HTML中有很多的标志词,而且一般都是成对出现。与位于HTML的开始
与结尾,分别标志着HTML文件的开始和结束。其它一些标志词都出现在它们中间。
用来表示一个页面的标题,它里面的内容将出现在浏览器的标题
上。与可以说是HTML中最常用的一个标志词,它是HTML的主体部分,
其它一些主要的内容都出现在这个标志词中间。


第二部分:实例

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



会员登录

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

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


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


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




Buy.asp


购货蓝



网上书店 src="file://C:\InetPub\wwwroot\images\title.jpg">





<%
function ID(mystr)
pos=0
for i=1 to len(mystr)
if mid(mystr,i,1)="`" then
if pos=0 then
ID=left(mystr,i-1)
exit for
end if
end if
next
end function
function BookName(mystr)
pos=0
for i=1 to len(mystr)
if mid(mystr,i,1)="`" then
if pos=0 then
pos=pos+1
else
BookName=mid(mystr,len(id(name))+2,i-2-len(id(name)))
exit for
end if
end if
next
end function
function PRice(mystr)
for i= len(mystr) to 1 step -1
if mid(mystr,i,1)="`" then
if pos=0 then
Price=right(mystr,len(mystr)-i)
exit for
end if
end if
next
end function
select case request.querystring("Name")
case "view"

response.write "浏览"

if session("num")="" then

response.write "目前购货蓝中没有选中的书目!"

else

num=clng(session("num"))

response.write ""

session("sum")=0

for i=0 to num

session("sum")=session("sum")+session("sum_" & cstr(i))

response.write ""

next

response.write "
书号书名单价
数量小计
" & session("ID_" & cstr(i)) & "" &
session("BookName_" & cstr(i)) & "
" & session("price_" & cstr
(i)) & "
value=" & session("num_" & cstr(i)) & ">" & session("sum_" & cstr
(i)) & "
"

Response.Write "购货总金额:" & session("sum")

end if

case ""

response.write "本页内修改"

num=clng(session("num"))

for i=0 to num

session("num_" & cstr(i))=(request.form("txtNum" & cstr(i)))

session("sum_" & cstr(i))=session("num_" & cstr(i))*session("price_"
& cstr(i))

next

response.write ""

session("sum")=0

for i=0 to num

session("sum")=session("sum")+session("sum_" & cstr(i))

response.write ""

next

response.write "
书号书名单价
数量小计
" & session("ID_" & cstr(i)) & "" &
session("BookName_" & cstr(i)) & "
" & session("price_" & cstr
(i)) & "
value=" & session("num_" & cstr(i)) & ">" & session("sum_" & cstr
(i)) & "
"

Response.Write "购货总金额:" & session("sum")

case else

response.write "增加"

if session("num")="" then

session("num")=0

else

session("num")=clng(session("num"))+1

end if

num=clng(session("num"))

name=(request.querystring("Name"))

session("ID_" & cstr(num))=id(name)

session("Bookname_" & cstr(num))=bookname(name)

session("price_" & cstr(num))=price(name)

session("sum_" & cstr(num))=price(name)

session("num_" & cstr(num))=1

response.write ""

session("sum")=0

for i=0 to num

session("sum")=session("sum")+session("sum_" & cstr(i))

response.write ""

next

response.write "
书号书名单价
数量小计
" & session("ID_" & cstr(i)) & "" &
session("BookName_" & cstr(i)) & "
" & session("price_" & cstr
(i)) & "
value=" & session("num_" & cstr(i)) & ">" & session("sum_" & cstr
(i)) & "
"

Response.Write "购货总金额:" & session("sum")

end select

%>

>">





其运行界面如下:
在下面有总金额的显示,并且购买的数量可以更改。
In.asp
<%@ Language=VBScript %>


<%


if Request.Form("txtUser")="" or Request.Form("txtPWD")="" then


Response.Write "用户名或密码为空,请重新输入,如果您没有注册,请选择注
册!"


else


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


rs.Open "select * from info where ID='" & Request.Form("txtUser")
& "'" ,"DSN=sqlsales;UID=sa",3,3


if rs.RecordCount =0 then


Response.Write "此会员号不存在!"


else


if trim(rs.Fields("PWD"))<>trim(Request.Form("txtPWD")) then


Response.Write "密码不正确!"


Response.Write rs.Fields("ID") & "
"


Response.Write rs.Fields("PWD") & "
"


Response.Write Request.Form("txtPWD")


else


session("UserID")=rs.Fields("ID")


session("UserName")=rs.Fields("Name")


Response.Redirect "index.asp"


'Response.Write rs.Fields("ID") & "
"


'Response.Write rs.Fields("PWD") & "
"


'Response.Write "欢迎光临!"


end if


end if


rs.Close


end if


%>























此段程序用于检测登录的合法性。


Registry.asp
<%@ Language=VBScript %>


<%


if Request.Form("txtID")="" and Request.Form("txtPWD")="" and
Request.Form("txtPWD1")="" and _


Request.Form("txtname")="" and Request.Form("txtSFZ")="" and
Request.Form("txtemail")="" and _


Request.Form("txtAdd")="" and Request.Form("txtPost")="" and
Request.Form("txtPhone")="" then


Response.Write "请认真填写以下内容:"


else


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


Response.Write "用户名为空,请重新填写!" & "
"


elseif Request.Form("txtPWD")="" then


Response.Write "密码为空,请重新填写!" & "
"


elseif Request.Form("txtPWD1")="" then


Response.Write "密码校验为空,请重新填写!" & "
"


elseif Request.Form("txtName")="" then


Response.Write "姓名为空,请重新填写!" & "
"


elseif Request.Form("txtAdd")="" then


Response.Write "联系地址为空,请重新填写!" & "
"


elseif Request.Form("txtPost")="" then


Response.Write "邮政编码为空,请重新填写!" & "
"


elseif trim(Request.Form("txtPWD"))<>trim(Request.Form("txtPWD1"))
then


Response.Write "密码位与校验位不一致,请重新输入!" & "
"


else


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


rs.Open "select * from info where ID='" & trim(Request.Form("txtID"))
& "'" ,"DSN=sqlsales;UID=sa;",3,3


'rs.Open "select * from info where ID=" & chr(34) & "yuaiwu" & chr
(34) ,"DSN=sqlsales;UID=sa;",3,3


if rs.RecordCount <>0 then


Response.Write "此用户已经登记,请选择别的用户名:"


else


dim fld(7)


dim value(7)


fld(0)="ID"


fld(1)="name"


fld(2)="PWD"


fld(3)="Email"


fld(4)="address"


fld(5)="phone"


fld(6)="post"


fld(7)="sfz"


value(0)=Request.Form("txtID")


value(1)=Request.Form("txtname")


value(2)=Request.Form("txtpwd")


value(3)=Request.Form("txtEmail")


value(4)=Request.Form("txtadd")


value(5)=Request.Form("txtphone")


value(6)=Request.Form("txtPost")


value(7)=Request.Form("txtSFZ")


rs.AddNew fld,value


rs.Update


end if


rs.Close


end if


end if


%>

















会 员 申 请






























































































用户名

style="HEIGHT: 22px; WIDTH: 275px">**
密码

type=password


style="HEIGHT: 22px; WIDTH: 274px">**
确认

type=password


style="HEIGHT: 22px; WIDTH: 275px">**
姓名

style="HEIGHT: 22px; WIDTH: 274px">**
身份证号码

style="HEIGHT: 22px; WIDTH: 274px">
Email

style="HEIGHT: 22px; WIDTH: 273px">
联系地址:

style="HEIGHT: 22px; WIDTH: 272px">**
邮政编码:

name=txtPost


style="HEIGHT: 22px; WIDTH: 270px">**
联系电话:

style="HEIGHT: 22px; WIDTH: 270px">




认>




请注意:







  • 带有 ** 号的栏目是必须填写的,其他的栏目可以不



  • 以上信息应如实填写,以便我们能与您取得及时的联



 











这个登录界面和大多数网上的登录新用户类似。


小结:



几个程序都做了一个简要地说明,当然,程序做地非常简单,还有很多功能没有
或有待完美,但它却示范了一个简单的范例,在此仅供大家参考。如果大家有兴趣,
可以把上面的程序试一下,祝大家成功!

文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。