B2B (Business to Business)是指企业对企业的电子商务，即企业与企业之间通过互联网进行产品、服务及信息的交换。
本文采用自顶向下的结构化的系统分析方法，介绍了一个小型B2B电子商务交易平台的开发过程。从电子商务B2B平台的需求入手，首先阐述了项目开发的背景、项目开发的意义，然后对所开发的商务平台做了系统分析，并完成功能模块的划分和数据库的设计，最终给出了商务平台详细设计过程。本系统采用ASP技术、ACCESS数据库以及B/S模式，实现了企业用户在线浏览，信息查询、注册和信息发布等功能。
项目开发的背景
近年来，由于互联网的快速发展，网络对人们的影响越来越大，电子商务，为企业和网民搭建一个购售平台。企业为了获取更多的利润，不仅要采取市场营销，还要采取网络营销。根据我国电子商务发展的情况来看，作为一个企业更要注重发展网络营销。自互联网成为一种革命性的大众媒体以来，其发展速度之快令人惊叹。
相对于传统的购物形式，网上购物使购买过程变得轻松、快捷、方便，对于商家来说可以节省成本，从而降低商品价格。在我国，网络用户占了很大一部分比例，随着网络技术的不断进步，网上购物成为时尚。为了避免商家见面订货所带来的局限性，以及时间，地域的限制所带来的麻烦，决定开发B2B模式的电子商务网站。
5 系统实现
5.1登录及注册管理模块
（1）登录模块
此模块主要功能是用于登录本系统，用户登录本系统会进入管理模块界面。按照用户名在数据库中进行查询如果查到该用户则将该用户的邮箱和密码全都取出来分别赋给两个字符串变量，判断从数据库中读出的密码与登录时输入的密码是否配比上，若两个密码相同则根据权限的值进入相应的页面，否则无法进入。如图5-1所示：
图5-1 前台登录界面
（2）程序流程
图5-2登录程序流程图
登录模块界面为chklogin.asp，一段代码如下：
dim name,pwd
strName=request.form("txtName")
strPass=request.form("txtPassWord")'读取提交的数据
strSQL="select * from web_member where m_Name='" & strName &"' And m_id=" & WebUserID
rs.open strSQL,conn,3,3 '检查用户权限
if rs.eof then
response.Redirect("error.asp?msg=对不起，此用户不存在，请重新输入！")
end if
if trim(rs("m_PassWord"))<>strPass then
response.Redirect("error.asp?msg=对不起，用户名和密码不正确，请重新输入！")
end if
Session("m_UserID")=Trim(rs("id")) '账号ID
Session("m_LoginName")=rs("m_Name") '账号
Session("m_RealName")=rs("m_RealName") '姓名
Session("m_PassWord")=rs("m_PassWord") '密码
Session("m_Code")=rs("m_code") '级别
Session("m_Email")=rs("m_email")
Session("m_Address")=rs("m_address")
Session("m_Tel")=rs("m_tel") '合法用户，给予授权
response.Redirect(".")
%>
5.2用户注册界面
此模块主要功能是用于用户注册，将用户写入的有关信息存储到数据库中，以便登录此系统时辨别身份。如图5-3所示：
图5-3 会员注册界面
用户注册界面为：reg.asp，其中一段代码如下：
<td><table cellSpacing="1" cellPadding="3" width="100%" border="0">
<tbody>
<tr>
<td align="right" width="120">会员帐号: </td>
<td><input name=txtName type=text id="txtName3" class="INPUT" style="WIDTH: 150px" size="15">* [5-20位英文或数字]</td>
</tr>
<tr>
<td align="right" width="120">登录密码: </td>
<td><input name="txtPassWord1" type="password" id="txtPassWord1" class="INPUT" style="WIDTH: 150px" size="10" >* [5-20位英文或数字]</td>
</tr>
<tr>
<td align="right" width="120">重复密码: </td>
<td><input name="txtPassWord2" type="password" id="txtPassWord2" class="INPUT" style="WIDTH: 150px">* [5-20位英文或数字]</td>
</tr>
<tr>
<td align="right" width="120">电子邮件: </td>
<td><input name=txtEmail type=text class="INPUT" id="txtEmail" style="" size="45">* [请输入正确的电子邮件]</td>
</tr>
</ tbody >
</table></td>
<TD><TABLE cellSpacing="1" cellPadding="3" width="100%" border="0">
<tbody>
<%if showRealName<> "none" then%>
<tr>
<td align="right" width="120">企业名称: </td>
<td height="22"><input name=txtRealName type=text class="INPUT" id="txtRealName" >*</td>
</tr>
<%end if%>
<tr>
<td align="right" width="120">主营行业: </TD>
<td height="22"><SELECT name="selclass" style="width:80px">
<%Sql="select id,limitname from web_limit order by id"
set rsclass=conn.execute(sql)
Do While Not rsclass.eof
Response.Write "<option value="""&rsclass(0)&""""
Response.Write ">"
Response.Write rsclass(1)&"</option>"
rsclass.movenext
Loop
rsclass.close%>
</select>
*</td>
</tr>
5.3网站首界面
网站首页是面向网站浏览者，为浏览者提供购物以及服务的平台。主界面是网站浏览者登录网站首先看到的界面，所以主界面的设计要求界面清新，引人入胜。如图5-4所示：
图5-4网站首界面
本系统主界面为：index.asp，其中一段代码如下：
</tr>
5.4发布供求信息界面
此模块主要功能是用于用户发布产品消息，用户通过注册并登录成为本系统的会员才能进入此模块。如图5-5所示：
图5-5发布产品界面
发布信息界面为admin/product/new1.asp一段代码如下：
5.5产品信息界面
此模块主要功能是将所有的产品按照一定的发布顺序，从数据库中读取，并显示出来。如图5-6所示：
图5-6网站首界面
产品信息界面为product_list.asp，其中一段代码如下：
<%
if strCurrMenu <>"" then
strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " and nshenhe=1 Order by p_code asc,ID Desc"
else
strSQL="Select * From v_web_product Where 1=1" & strQuery & " and nshenhe=1 Order by p_code asc,ID Desc"
end if
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1
'分页显示初始化
page=GetVariable("page")
if page="" then
page=1
else
page=Cint(page)
end if
Section=GetVariable("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
%>
5.6在线购买界面
用户登录本网站后选好自己需要的产品即可进行购买，生成订单。如图5-7所示：
图5-7在线购买界面
在线购买界面为productshow.asp，一段代码如下：
<td width="16%" height="20" bgcolor="#FFFFFF"><div align="right" class="black">产品名称：</div></td>
<td width="55%" height="20" bgcolor="#FFFFFF"><%=trim(rs("p_name"))%></td>
</tr>
<%
if showSymbol<>"none" then
%>
<tr>
<td height="20" bgcolor="fef6ef"><div align="right">计价单位:</div></td>
<td height="20" bgcolor="fef6ef"><%=trim(rs("p_symbol"))%></td>
</tr>
<%end if%>
<tr>
<td height="20" bgcolor="#FFFFFF"><div align="right">公司名称：</div></td>
<td height="20" bgcolor="#FFFFFF">
<%
if trim(rs("nuser"))<>0 then
sqlcom="select * from web_member where id="&trim(rs("nuser"))
set rscom=server.CreateObject("ADODB.RecordSet")
rscom.open sqlcom,conn,1,1
qufen=rscom("m_qufen")
if qufen=1 then
set rs1=conn.execute("select limitname from web_limit where id="&rscom("m_com"))
if not rs1.eof then
mcom=rs1("limitname")
end if
rs1.close
set rs1=nothing
%>
<a href="companyshow.asp?id=<%=trim(rscom("id"))%>&classname=<%=server.URLEncode(mcom)%>" target="_blank" class="black"><%=trim(rscom("m_realname"))%></a>
<%
else
%>
<%=trim(rscom("m_realname"))%>
<%
end if
rscom.close
set rscom=nothing
else
%>
5.7生成商品清单界面
用户点击购买后，可以在这个界面填写订单信息，并提交到后台管理界面。如图5-8所示：
图5-8在线购买界面
生成商品清单界面为：order.asp，一段代码如下：
<%
if GetVariable("action")="save" then
'下订餐单
if Session("ProductList")="" then
Response.Write "<script language='javascript'>alert('欢迎您来到B2B电子商务网站，您尚未点订购任何商品！\n\n请您先到产品展示区选择您想要的商品');</script>"
end if
strUser=GetFormVariable("txtuser")
strAddr=GetFormVariable("txtaddress")
strPhote=GetFormVariable("txtphote")
strEmail=GetFormVariable("txtemail")
strNote=GetFormVariable("txtnote")
strProduct=""
'输出商品列表
ProductList = Session("ProductList") '商品ID列表
ProductCount=Session("ProductCount") '商品数量列表
PtCounts = Split(ProductCount, ",")
strSQL="Select * From web_product Where id In (" & ProductList & "0)"
Rs.open strSQL,conn,1,1
money=0
strProduct=strProduct & "<table width=100% border=0 cellspacing=1 cellpadding=0>"
strProduct=strProduct & "<tr> "
strProduct=strProduct & "<td width=11% align=center>序号</td>"
strProduct=strProduct & "<td width=32% align=center>商品名</td>"
strProduct=strProduct & "<td width=21% align=right>单价</td>"
strProduct=strProduct & "<td width=18% align=right>数量</td>"
strProduct=strProduct & "<td width=18% align=right>小计</td>"
%>
<%
'添加商品
if GetVariable("action")="add" then
call AddProduct(GetVariable("spid"),CInt(GetVariable("PtCount")))
end if
'删除商品
if GetVariable("action")="modify" then
call ModifyProduct(GetVariable("spid"),CInt(GetVariable("PtCount")))
end if
'清空购物车
if GetVariable("action")="clear" then
call clearProduct()
end if
%>
5.8数据库连接文件
本系统采用的是ACCESS，每次调用数据库的时候，必须建立有效的数据库链接。因此可以建立一个专门的数据库链接文件，在每次需要的时候引用此文件，并且分别将打开数据路链接和关闭数据库链接做成函数调用就可以了，这样有利于管理。
<%
response.buffer = true
dim startTime, endtime
startTime = timer()
dim conn
dim connstr
dim rs, rSub
dim sql
connstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("data/#data.mdb")
set conn = server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""创建 ADO 对象失败"";</script>"
response.end
else
conn.open connstr
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""数据库连接失败"";</script>"
'''请检查数据库是否存在，以及 ODBC 是否存在
response.end
end if
end if
set rs = Server.CreateObject("ADODB.Recordset") '主程序用
set rSub = Server.CreateObject("ADODB.Recordset") '子程序用
上一篇：MySQL数据库在线管理系统设计
下一篇：vb小型宾馆管理系统