欢迎光临爱时尚女性网
 

使用ASP自己开发网上“店铺”

2012-11-16 编辑:knwz 来源:爱时尚女性网 阅读次数:519
  导读:一、概述: 最近电子商务是一个非常热门的话题。那么到底什么是“电子商务”?“电子商 务”离我们到底还有多远?据一些网站的问卷调查结果显示,真正成熟的电子商务离 我们还有一定的距离。而中国目前所谓的“电子商务”,也是有中国特色的,这首先 一点就体现在交易方式...
一、概述:
最近电子商务是一个非常热门的话题。那么到底什么是“电子商务”?“电子商
务”离我们到底还有多远?据一些网站的问卷调查结果显示,真正成熟的电子商务离
我们还有一定的距离。而中国目前所谓的“电子商务”,也是有中国特色的,这首先
一点就体现在交易方式上:在国外,大多采用“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个工作日内删除。