网上商城毕业论文(8)

在本系统中，我们将数据库连接文件定义为：conn.asp，代码如下：

<%

Dim db,conn,connstr

db="data/member.mdb" '数据库所在路径

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.open connstr %>

Recordset对象是负责浏览与操作从数据库取出来的数据，Connection对象只负责与数据库进行链接的动作，并不能使用数据库内的数据，因此必须建立一个可以存取数据库数据的Recordset对象，使用RS.Open方法存取数据库： RS.Open SQL,CN,1,1

使用open方法来打开数据表指令参数设置如下： >>参数-SQL：为欲打开的数据表或SQL指令。

>>参数-ActionConnection：指定一个已打开的数据库对象，将此参数设为链接我们已经建立好的Connection对象“CN”。

>>参数-CursorType：指定Recordset的打开类型，1为可读写且可自由移动。 >>参数-LockType:指定锁定类型，1为只读。

4.2 主界面

网上购物系统作为一种交易系统，为了方便大家浏览商品，在线支付和便于管理，因此在网上应该把关于所售产品和产品相关信息以及会员和管理员的信息通过一定的方式表现出来（如图4-1）。主界面对于一个面向客户的购物网站来说是很重要的，它是网站的门户，主界面设计的得体，有助于为客户留下良好的印象，同时在设计主界面时也要把该网站一些常用的功能模块能罗列出来，如“商品展示”功能，“查询”功能，如客户对该网站有何建议，可以通过“留言簿”功能实现，方便客户操作，使网上购物变成一件愉快而又方便的事。

当用户为一般客户时，首先在会员区区域登录，系统服务器进行相关的处理，在会员表中查询该会员是否存在，如存在，继续完成以下购物环节，如不存在，系统返回“请输入编号”说明该用户还没进行注册。（图4-2）该代码：

<% if request.form("bh")<>"" then%>

<%set rs1=server.createobject("adodb.recordset")

rs1.source="select *from member where meno="&request.form("bh")&" " set rs1.activeconnection=cn rs1.open if rs1.eof then

response.write "找不到该会员的有效信息，请核对后再试！" %> <% else %>