基于B/S模式的网上书店

3．3．1 图书的管理

manage/addpro.asp程序实现图书的添加，首先设计一个表单供管理员输入图书资料，单击[添加]按钮后，先经过有效性验证，验证有效后添加到数据库中。

<!--#include file="inc/config.asp"-->

<!--#include file="inc/conn.asp"-->

<!--#include file="inc/chk.asp"-->

<%

''判断管理员级别

if session("rank")>2 then

   call Msgbox("你的权限不够！","Back","None")

   response.End

end if

%>

<%

''判断是否进行添加产品操作

If NOT IsEmpty (request("AddProSubmit")) then

   dim productdate,discount

   discount=round(request("price2")/request("price1"),2)

''图书日期处理

if request("productdateyear")<>"" then

productdate=trim(request("productdateyear"))&"年"&trim(request ("productdatemonth"))&"月"

   else

      productdate=""

   end if

   ''初始化recordset对象

   set rs=server.CreateObject("adodb.recordset")

   rs.Open "select * from product",conn,1,3

   rs.AddNew

   ''开始添加

   rs("productdate")=productdate

   rs("discount")=discount

   ''对表单传递过来的数据进行处理

   rs("name")=trim(request("name"))

   rs("format")=request("format")

   if request("pagenum")<>"" then

      rs("pagenum")=int(request("pagenum"))

   else

        rs("pagenum")=0

   end if

   if request("printed")<>"" then

      rs("printed")=int(request("printed"))

   else

      rs("printed")=0

   end if

   rs("author")=trim(request("author"))

   rs("mark")=trim(request("mark"))

   rs("introduce")=trim(request("introduce"))

   rs("price1")=trim(request("price1")) 

   rs("price2")=trim(request("price2")) 

   rs("vipprice")=trim(request("vipprice")) 

   rs("pic")=trim(request("pic"))

     rs("categoryid")=int(request("categoryid"))

   rs("sortsid")=int(request("sortsid"))

   rs("score")=request("score")

   rs("type")=trim(request("type"))

   rs("solded")=0

   rs("viewnum")=0

   rs("adddate")=now()

   rs("rank")=0 

   rs("ranknum")=0

   if request("detail")<>"" then

      rs("detail")=htmlencode2(request("detail"))

     end if

   if request("content")<>"" then

      rs("content")=htmlencode2(request("content"))

   end if

   if request("detail")<>"" then

      rs("desc")=htmlencode2(strvalue(request("detail") ,100))

   end if

   ''是否推荐产品

   if request("recommend")=1 then 

      rs("recommend")=1

   else

      rs("recommend")=0

   end if

   rs.Update

   rs.Close

   set rs=nothing

   call MsgBox("添加成功！","GoUrl","addpro.asp")

   response.End

end if

%>

3．3．2 客户和管理员用户的管理

quser.asp是客户管理程序，在此页面上管理员可对客户进行管理，单击某一用户名，还可对该客户的详细信息进行修改，但不能修改用户名。该页面还带有一个搜索用户的功能其主要代码如下：<!--#include file="inc/config.asp"-->

<!--#include file="inc/conn.asp"-->

<!--#include file="inc/chk.asp"-->

<%

''判断管理员级别

if session("rank")>1 then

   call Msgbox("你的权限不够！","Back","None")

   response.End

end if

%>

<%

判断管理员是否单击了删除用户按钮

if NOT isempty(request("DelQuserSubmit")) then

   dim userid

''把表单传递过来的数据赋值给userid

   userid=request.QueryString("id")

   if userid="" then userid=request("userid")

''执行删除语句，删除选定客户

   conn.execute "delete from [user] where userid in ("&userid&")"

   conn.execute "delete from orders where userid in ("&userid&")"

   response.Redirect "quser.asp"

end if

%>

manage/huser.asp实现管理员用户的添加、删除及修改管理权限等操作。管理员账户是不能注册的，但能通过已登陆的有管理权限的管理员添加。

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167