个人网站制作（Dreamweaver） - 学习资料 - 逐梦论坛

Rank: 1

1^# 跳转到 »

fantasyfancy发表于 2007-4-10 11:08 | 显示全部帖子

顾客满意。购物结束后，进行提交，点击“order”，完成购物。
此外顾客还得进行身份信息的填写，包括姓名，年龄，住址，联系方式和选择的支付方式或使用的支付卡等等。个人身份信息的填写是为了方便顾客所购买的货物准确及时送达。而所有这些信息也将保存在系统数据库中，顾客以后再次购买时就无需重新输入个人身份，可以直接登陆到页面中。
3.3 程序设计
管理员在进入网上购物系统主页后点击“管理员”按钮就会进入管理员登陆界面

只有管理员才有权限进入后台修改数据库，其部分代码如下：
session("shopadmin")=""
session("init")=""
dim myconn
msg=""
shopopendatabase myconn
on error resume next
if request("submit")<>"" then
sql = "select * from tbluser where fldusername=“" & request("username")&"“andfldpassword=“"&request("password")& "“"
set rs = myconn.execute(sql)
 if err.number>0 then
 msg=session("openerror")
 else
 if not rs.eof then
session("shopadmin") = rs("fldusername")
loguser session("shopadmin"), "in", myconn
 shopclosedatabase myconn
 response.redirect "shopadmin1.asp"
 else
 msg="用户名或者密码错误！ "
 end if
 end if
 end if
shoppageheader
if msg <> "" then
 response.write msg
end if
%>
</center>
<form action="shopadmin.asp" method="post" name="loginform">
<center>
此页面仅供管理员使用</center> 

<table width=300 border=1 cellpadding=3 cellspacing=0
align="center" bordercolordark="#333399" bordercolorlight="#666699">
<tr>
<td bgcolor="#0080c0" colspan=2 align=left valign=top>


高级用户登陆
</td>
</tr>
<tr>
<td width=50 align=left valign=top>


用户名：
</td>
<td align=left valign=top>


<input type=text name="username" value="<%=request("username") %>">
</td>
</tr>
<tr>
<td width=50 align=left valign=top>


密码：
</td>
 <td align=left valign=top>


<input type=password name="password">
</tr>
其用来登陆的用户名、密码、及登陆后的权限都与系统数据库相连

如过用户名、密码错误将来到以下界面

输入管理员用户名、密码后来到以下界面

进入后台数据库管理系统，其部分代码如下：
%>
选择相应的项可以进行管理编辑

<center>
<%
 dim myconn
 shopopendatabase myconn
 formatheader
 list = getaccess(session("shopadmin"), myconn)
 ac = split(list,",")
 for each item in ac
sql = "select * from tblaccess where fldauto = " & cint(item)
set objrec = myconn.execute(sql)
 formatrow objrec
 next
 shopclosedatabase myconn
 formattrailer
end sub
sub formatheader
%>
<table border="2" cellspacing="1" width="90%" bordercolor="#008080">
 <tr>
 <td width="50%">
 功能</td>
 <td width="50%">
 描述</td>
 </tr>
<%
end sub
sub formatrow (objrec)
dim name,url,comment
name = objrec("fldname")
url = objrec("fldurl")
comment=objrec("fldcomment")
%>
其中网页上所显示的“功能”及“描述”选项都与系统数据库相连，点击“显示订单”按钮，

其中部分代码如下：
%>
<td>订单号</td>
<td>用户号</td>
<td>订单日期</td>
<td>购物费用</td>
<td>姓名</td>
<td>国家</td>
<td>是否删除</td>
<%
其中网页上所显示的“删除记录”及“标记已经交易成功”等选项都与系统数据库相连，点击“显示产品”按钮， 网页将会把所有的商品都一一列举出来，方便管理员管理、查询、修改。

其中部分代码如下：
response.write "
<a href=shopa_addgeneral.asp?database=" & dbname &
 "&table=" & dbtable & ">增加新记录</a> "
response.write " page " & mypage & " of " & maxpages & " "
%>
<center>
<form action="shopa_editdisplay.asp?table=<%=dbtable%>" method="post">
<table border="2" cellpadding="2" cellspacing="3" width="100%">
<tr><td></td>
<%
response.write "<td align=center>delete</td></tr>"
“ 下面获得所有记录
howmanyrecs=0
do until rstemp.eof or howmanyrecs=maxrecs
 my_link=scriptresponder & "?which=" & rstemp(idfield) +
& "&idfield=" & idfield & "&table=" & dbtable & "&database=" & dbname
 response.write "<tr><td valign=""top"">
<a href=" & my_link & ">编辑</a></td>"
> response.write("</table>")
%>
 <input type="hidden" name="database" value="<%=database%>">
 <input type="hidden" name="table" value="<%=dbtable%>">
 <input type="hidden" name="idfield" value="<%=idfield%>">
 <center>
<input type="submit" name="delete" value="删除记录">
</center>
<%
 response.write("</form>")
其中网页上所显示的“增加新记录”及“删除”等选项都与系统数据库相连，点击“历史记录”按钮， 网页将会把所有的进入后台信息都显现出来，方便管理员管理、查询。

其中部分代码如下：
if request("delete")<>"" then
for each item in request("deletehis")
del = "delete from tbllog where fldauto=" & cint(item)
con.execute(del)
next
end if
adminpageheader
sql = "select * from tbllog"
set objrec = con.execute(sql)
%>
<td>


<%=objrec("fldusername")%></td>
<td>


<%=objrec("fldtime")%></td>
<td>


<%=objrec("flddate")%></td>
<td>


<%=ucase(objrec("fldinout"))%
其中网页上所显示的“删除”选项都与系统数据库相连，

TOP

返回列表

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]