基于WEB的网上购物系统的开发与设计

图4-4 系统管理员界面
4.4.2 书籍管理的设计
（1）是管理员权限的判断，使用跳转页面进行管理员的权限检验，创建表单为form method="post" action="check.asp"，点击提交后进入到check.asp页面验证管理员的用户名和密码是否正确，代码如下：
  Dim t1,t2,founderr
  founderr=false
  t1=Request.Form("t1")
  t2=Request.Form("t2")
  if t1<>"ibm" then
     Response.Write "非法的用户名!"
     founderr=true
  end if
  if t2<>"123" then
     Response.Write "非法的密码!"
     founderr=true
  end if
如果填写的用户名和密码出现错误，则提示用户名或密码出现错误，返回到首页要求重新输入，如果输入正确则跳转到manage.asp页面，代码如下：
<script language="javascript">
  top.document.location="manage.htm"
 </script>
进入到manage.asp页面以后，管理员就可以的书籍的信息进行浏览、添加、删除和修改。
实现书籍信息浏览功能的代码如下：
<input type="radio" name="bookchange" value="<%=rs(0)%>">   <%=rs(1)%></font></td>
  </tr>
  <%rs.MoveNext loop%>
每个书籍前面都有一个单选按钮，点击单选按钮，选择要查看的书的名称，使用提交，可以浏览到数据库中所有包含的信息，具体显示的代码如下：
Dim temp
     temp=Request("bookchange")
     if temp="" then
        temp=1
     end if
     sql="select * from book where id="
     sql=sql & temp
     rs.Open sql,conn,3,2
通过这段代码就可以，在页面上浏览到各个书籍的具体信息，其中包括书籍名称、作者、单价、类别、出版社、数量以及详细的书籍介绍。
（2）书籍的添加
书籍的添加主要是添加书籍名称、作者、单价、类别、出版社、数量以及详细的书籍介绍，首先我们申明需要添加的信息的变量如下：
Dim book,errmsg,founderr,author,price,publish,photo,memo,num
 再将所有的变量进行赋值：
Dim class1
   founderr=false
   book=Request("book")
   author=request("author")
   if author="" then author="无"
      price=request("price")
      publish=request("publish")
   if publish="" then publish="无"
      photo=request("photo")
   if photo="" then photo=""
      num=request("num")
      class1=request("class")
   if class1="" then class1="其他"
      memo=request("memo")