1、2)、商品搜索3)、购物推车4)、会员服务5)、支付与订单查询6)、商品信息管理7)、留言簿8)、管理后台body 通讯录% 以下连接数据库,建立一个Connection对象实例conn Dim conn,strConn Set conn=Server.CreateObject(ADODB.Connection) strConn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(data.mdb conn.Open strConn 以下建立记录集,建立一个RecordSet对象实例rs Dim rs,strSql st
2、rSql=Select * From 景点类别信息表 Order By SceneClassID DESC 按自动编号字段降序排列 Set rs=conn.Execute(strSql)以下利用表格显示记录集中的记录 %table border=1 width=100% bgcolor=#339966 tr bgcolor=#3399FF 景点分类/tr Do While Not rs.Eof 只要不是结尾就执行循环 %tr td align=a href=Sceneinfo.asp?SceneClassID= target=_blankSceneClassName/a/td rs.MoveN
3、ext 将记录指针移动到下一条记录 Loop/tablediv align=index.asp返回首页/body/htmlheadmeta http-equiv=Content-Language content=zh-cnContent-Typetext/html; charest=gb2312meta name=GENERATORMicrosoft FrontPage 4.0ProgldFrontPage.Editor.Document/headbody bgcolor=#3366FF text=#FFFF00form method=POST action=Scenesearch2.asp
4、name=SearchForm98%td width=27%关键字73%input type=textKeyWord size=20 onblur=if(KeyWord.value=)alert(关键字不能为空,请检查!)搜索选项select size=SearchOptionoption selected value=景点名称景点名称option value=地理位置 value=地理位置p align=submit提交B1reset全部重写B2/p/formHTMLBODY% KeyWord=Request.Form( SearchOption=Request.Form( searchst
5、ring=select SceneID,SceneName,Address,Price from 景点详细信息表 where & SearchOption & like % KeyWord &% Set ConObject=Server.CreateObject( connstring= Data Source= ConObject.Open ConnString set result=ConObject.execute(searchstring) if Result.EOF then Response.write font color=#FFFF00对不起,找不到您所要的景点!请到我们的a
6、href=liuyan.asp顾客留言板brelse%table align= width=100% border=1td编号景点价格 do while Not Result.EOF BookNo=BookNo+1 BookNo & Result(SceneName) &AddressPriceconcretsceneinfo.asp?SceneID=SceneID详情/HTML购物车是网上购物的核心部分。没有登录的用户是不能在灵捷购物城中购买商品的。当用户在系统的首页,或者在各查询页面中找到了自己喜欢的商品,并单击了“放入导购车”的超链接,那么就会弹出购物车页面,提示用户自己购买的商品的所有
7、信息,包括数量、序号、商品名、单价、该类商品的价格,以及购物车中所有商品的总价,购物车页面给出2个选项,一个是继续购物,一个是填写订单。购物车使用了系统数据库的商品信息表,引用了这个表的商品名、价格等字段,其中属性字段是用于查找和显示,而会员价字段则是用于计算购物的某类商品小计和整个购物车总值用的;其中“是否选购”字段是用于删除。主要代码分析如下:/首先运用session和变量user来判断用户是否登录user=session(usename/如果用户名为空则弹出一个对话框显示“对不起,您还没有登陆!”if user= thenresponse.write script language=Ja
8、vaScriptalert(对不起,您还没有登陆!);history.back()/script/处理商品放入导购车环节sl=insert into goods(usename,pn,pprice,dind,pname) values(user&,1,pprice&,pid&pname&/处理 “继续购物”选项/处理 “填写订单”选项/判断用户名是否为空,空则显示提示信息 if(Session()=) then response.write else if trim(request.form(name)=/判断文本框中是否输入真实姓名script language=VBScript alert
9、(请输入你的真实姓名! /判断订单填写完成并插入到数据库(dingdan)表中,然后显示填写成功页面 sal=insert into dingdan(usename,name,tel,postcode,email,address,dind) values(names&tel&postcode&email&address&dind&/转入到dindpay.asp页面 response.redirect dindpay.asp end if; cn.close/删除过期商品id=request.QueryString(idsql=delete from goods where id=id/执行sq
10、l语句cn.execute sql/转入到另一个页面response.Redirect(shop.asp/下面就需要建立数据库的连接,同时打开数据库的连接。dim cn,strcom,rsdbq=server.mappath(shoping.mdb)&;driver=microsoft access driver (*.mdb)set cn=server.createobject(adodb.connectioncn.mode=3cn.open sql注册模块主要是用来为用户分配相应的权限。注册主要功能实现代码如下:/判断用户两次输入的密码是否一致 elseif trim(request.fo
11、rm(usepass)两次输入的密码不相同!/从文本框中获取信息 usename=request.form() . set rs=server.createobject(adodb.recordset sql=select * from curr where usename=usename& /向数据库(curr)表中插入注册信息sq=insert into curr(usename,usepass,name,selectsex,address,useaddr,postcode,usetel,usemail)_values(usepass&name&selectsex&_&useaddr&us
12、etel&usemail&登录/注册的具体实现注册用户模块由普通用户登录页面、登录检测页面、注册页面、注册接收页面及各类浏览页面组成,它实现的各个功能亦让用户能方便地注册并进行购买。用户登录主要功能实现代码如下: login=request(login if login=登录 currname=trim(request.form() currpass=trim(request.form(/从数据库shoping中curr表选择与登陆名相同的记录currname& rs.open sql,cn,1,1/如果查询没到表尾则执行 if not rs.eof then /如果用户密码与获取到文本框的密
13、码一致则用session记住用户名 if currpass=rs( session()=usenameall.asp /密码不相符合,提示密码不正确 else 密码不正确!_ end if /记录到末尾,则提示数据库中不存在这个用户名用户名不正确! /点击的是注册,则进入注册页面 Else if login= response.redirectuselogin.asp5)收款发货script language=JavaScriptfunction showpaymsg()switch(document.billform.PayWay.value)case 1: document.billfor
14、m.PayMessage.value=网上支付break;case 2:邮局汇款case 3:银行汇款default:document.billform.PayMessage.value=document.billform. R1.value;break#6699FFstrName=Session(strNameIf strName= ThenResponse.write您还没有登录,请index.asp target=_blank登录(若您还不是会员,请先sign.asp注册#ECE9D8 bordercolorlight=#FFFFFF107会员名称150收货人姓名55TrueName12 value=收货地址615 colspan=365邮政编码PostCode联系电话Phone14strTelEmailEmail付款方式297radio checked name=PayWay id=fp1 onclick=PayMessage.value=网上支付label for=网上支付fp2邮局汇款 邮局汇款/labelfp3银行汇款 银行汇款3392PayMessagesize=39 readonly value=发货方式fp4普通邮寄inpu
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1