| 用户名： |
| 登录密码： |
14、>
实现效果：四、注册界面代码：用户注册欢迎光临圆圆书店！先注册吧，成为我们的会员！ 实现效果：输出注册结果代码：<% language="vbscript" %> <% dim username dim password dim question dim answer dim name dim phonenumber dim mail username=requ
30、est.form("username") password=request.form("password") question=request.form("question") answer=request.form("answer") name=request.form("name") phonenumber=request.form("phonenumber") mail=request.form("mail") response.write"
31、;
" response.write"| username: | " response.write""&username&" |
" response.write"| password: | " response.write""&pass
32、word&" |
" response.write"| question: | " response.write""&question&" |
" response.write"| answer: | " response.write"&qu
33、ot;&answer&" |
" response.write"| name: | " response.write""&name&" |
" response.write"| phonenumber: | " response.write"
34、>"&phonenumber&"
" response.write"| e-mail: | " response.write""&mail&" |
" response.write"
" %> 虚拟目录建立步骤
35、(1)在计算机管理建立虚拟目录（2）创建虚拟目录名称、并浏览html存放的文件(3)通过虚拟目录浏览文件（4） 注册信息填写并提交用户登录（检查用户登录信息是否正确di.asp）<% set conn=server.createobject("adodb.connection") strprovider="driver=microsoft access driver (*.mdb);dbq=" &server.mappath("liyuanyuan.mdb") set rs=server.createobject(&qu
36、ot;adodb.recordset") username=request("username") password=request("password") if len(username)<6 then checkpass=false if len(password)<6 then checkpass=false if checkpass then query="select username from zhuce where usename='"&username&"'
37、; and password='"&password&"'" rs.open query,con,3,2 response.write username&"，欢迎光临！" end if rs.close set rs=nothing %>五、购物车界面 往购物车里添加商品：当单击商品信息页面中的“加入购物车”按钮后，就会调用“cart.asp”页面，同时传递当前商品的编号。“cart.asp”页面接受商品编号以后，把该商品信息添加到购物车信息数据库表中，然后显示当前的购物车商品。添加时使用inser
38、t into语句，用法如下：sql="insert into cartitem(cartid,productid,"&_"productquantity) value("&cartid&","&productid&_","&productquantity&")" cart.asp完整代码如下：<%language=vbscript %><
39、%dim userid,productid,productquantity.productprice,cartiduserid=session("userid")if userid=""thenresponse.write"
对不起，你还没有登录，所以不能订购商品。
"&_"如果你已经注册，请按这里登录。"&_"如果没有，请按这里
40、
注册。"set conn=nothingresponse.endproductid=request.form("productid")productprice=request.form("productprice")productquantity=1set rscart=server.createobject("adodb.recordset")sql="select*form carts where userid="&useridrscart.open sql,conn,3,
41、2if recart.eof and recart.bof thenrscart.addnewrscart("userid")=useridrscart.updateend ifrscart.movelastcartid=rscart("cartid")rscart.closeset rscart=nothingset rsitem=server.createobject("adodb.recordset")if productid<>""thensql="delete from cartit
42、em where cartid="&cartid&_"and productid="&productidconn.execute sqlsql="insert into cartitem(cartid,productid,"&_"productquantity,productprice)value("&cartid&","&productid&_","&productquantity &",&qu
43、ot;&productprice&")"conn.execute sqlend ifsql="select cartitem.cartid,cartitem.productid,cartitem.productquantity,"&_"products.productprice,products.productname"&_"from cartitem,products"&_"where cartitem.productid=products.productid a
44、nd"&_"cartitem.cartid="&cartid&_"order by cartitem.productid"rsitem.open sql,conn,0,1%>
欢迎光临购物车实现效果：点击图书致青春详情表下面的“加入购物车”按钮，出现如下页面（其代码在下面图书详情代码中再详细给出）：数据库如下：六、分类检索-以文学类为例代码：圆圆书店圆圆书店 文学类
实现结果：点击致青春的书名或图片。其代码及实现页面如下代码：
59、gt;圆圆书店
圆圆书店
|
61、mg src="图书图片/zjiqingchun.jpg" width="357" height="500"> | 致我们终将逝去的青春(附珍藏卡册)
63、ight="45">库存数量：2件 |
图书描述
64、t;style5" id=postbodyps style="overflow: hidden"> 郑微，心怀对林静的爱意考上林静所在城市大学，发现林静已出国，后爱上同校陈孝正，一个板正又敏感的男孩。两个人走到一起，陈孝正却选择出国，放弃郑微。几年后，林静陈孝正出现，郑微会倾向于哪边呢？
&l
67、t;/h2> |
其中“best.asp”源码如下：<%adopenkeyset=1adlockoptimistic=3set conn= server.createobje
68、ct("adodb.connection")conn.open “provider=microsoft.jet.oledb.4.0;data source=" & server.mappath ("liyuanyuan.mdb")set rs=server.createobject("adodb.recordset")rs.cursorlocation=aduseclientsql="select * from products"rs.open sql,conn,adopenkeyset,adlo
69、ckoptimisticrs.addnewrs("productid").value="图书编号"rs("productname").value="图书名称"rs("productprice").value="图书价格"rs.updaters.closeset conn=nothing%> 实现页面：点击首页top1图书，出现以下界面：7、 搜索查询代码：<% set conn=server.createobject("adodb.connection&
70、quot;)strprovider="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("liyuanyuan.mdb")conn.open strprovider set rs=server.createobject("adodb.recordset")search=request(sousuo)sql="select * from products where productname like'%"&searc
71、h&"%'"rs.open sql,con,1,1 %>
搜索图书 | 图书名称 |
72、;
作者 | 出版社 | 价格 |
<% while not rs.eof%> | <%=rs("productname")%> | | <%=rs("productfactory")%> | <%=rs("productprice")%> |
<% rs.movenet wend %>
74、html>操作界面：搜索查询结果：8、 订单详情代码：
欢迎光临本书店
策略思维与细节的完美结合，有效帮您减少试错成本
策略思维与细节的完美结合，有效帮您减少试错成本
立即与安优联系，开启网站设计全新体验
立即与安优联系，开启网站设计全新体验
立即与安优联系
开启网站设计全新体验
立即与安优联系
开启网站设计全新体验
