• 学业杂志社官网
当前位置: 主页 > 收录文章 > >详细介绍
资讯信息

如何在电大在线平台上添加购买书籍资料功能

时间:2019-03-29 来源:《学业》杂志 作者:admin 点击:

  如何在电大在线平台上添加购买书籍资料功能

【摘  要】:Web网络应用开发中,安全性是要考虑的关键问题,本文通过开发系统实践,从系统规划阶段、设计开发阶段、发布运行阶段三个方面详细阐述安全策略的实现

【关键词】:ASP; sql server2000;HTML
七台河电大从2002年开始使用“电大在线”作为一名网管从使用这个平台,在后台给上百名教师、三千多学员按专业分班,给每届不同专业的专本科教师和学员选课,这个平台承载着巨大的工作量,对于教学要求来讲几乎包罗万象无所不能,唯一没有在线订阅图书资料的功能,下面我就如何利用现有平台和数据库添加一个在线购买书籍资料功能与大家一起研究一下。
1、在线购书操控文件
在线购书操作控制文件sale.ASP主要用于控制购书过程中的相关操作,如用户登陆与退出、用户资料编辑、查看购书记录、购书结算等。该文件在工作中通过分析传递参数来判断是否需要登陆操作。如果在线学员登陆成功,则使用Session对象变量“userid”和“rank”来保存“学员”和“等级”信息。
(1)   编写sale.ASP文件具体代码如下:
<%@ LANGUAGE="VBScript" %>
<!--#include file="mdb.asp"-->
<script language="vbscript" src="sale1c.vbs"></script>
<html>
<head>
      If objRS.RecordCount > 0 Then ' 登录成功
         Session("userid") = objRS("id")
         Session("rank") = objRS("rank")
         ermsg = ""
      Else ' 登录失败
         Session("userid") = ""
         Session("rank") = ""
         ermsg = "<font color=red>[会员名]或者[密码]不正确!登录失败...</font>"
      End If
   ' 注释:关闭记录集对象
      objRS.Close
      Set objRS = Nothing
   Else
      Session("userid") = ""
      Session("rank") = ""
   End If
' 注释:获取当前用户的身份信息
   If Session("userid") <> "" Then
      If Session("rank") = 1 Then
         msg = "普通会员"
      Else
         msg = "VIP会员"
      End If
   Else
      msg = ""
   End If
' 注释:显示当前用户信息
   If msg = "" Then ' 没有登录的用户
%>
      <td>会员名</td>
      <td><input name="userid" type="text" maxlength="15" size="10">&nbsp;</td>
      <td>密码</td>
      <td><input name="pass" type="password" maxlength="15" size="10">&nbsp;</td>
      <td><input name="login" type="button" value="登录"></td>
      <td><input name="register" type="button" value="注册"></td>
<% Else ' 成功登录的用户
      Response.Write("<th>" & msg & "[" & Session("userid") & "]&nbsp;</th>") %>
      <td><input name="logout" type="submit" value="登出"></td>
      <td><input name="reginfo" type="button" value="个人资料"></td>
<% End If %>
   <td><input name="history" type="button" value="购书记录"></td>
   <td><input name="pay" type="button" value="结算"></td>
   <td><input name="clear" type="button" value="清空购物袋"></td>
   <td><% =ermsg %></td>
</tr>
</table>
</form>
</body>
</html>
2、编写资源文件
资源文件sale.vbs中主要包含文件sale.APS的客户端操作代码。其具体代码如下:
' 注释: 定义登录按钮的单击事件
Sub login_OnClick
' 注释: 验证用户的登录信息
   If flog.userid.value = "" Then
      ermsg = "会员名信息不能为空!请先输入..."
      flog.userid.focus
   ElseIf flog.pass.value = "" Then
      ermsg = "密码信息不能为空!请先输入..."
      flog.pass.focus
   End If
' 注释: 根据验证结果判断是否提交数据
   If ermsg = "" Then
      flog.submit
   Else
      Alert(ermsg)
   End If
End Sub
' 注释: 定义注册按钮的单击事件
Sub register_OnClick
   window.open "member.asp", "_blank"
End Sub
' 注释: 定义个人资料按钮的单击事件
Sub reginfo_OnClick
   window.open "member.asp", "_blank"
End Sub
' 注释: 定义购书记录按钮的单击事件
Sub history_OnClick
   window.open "orderlist.asp", "_blank"
End Sub
 [参考文献]
[1]李劲.  精通ASP数据库程序设计[M] . 北京:科学出版社,2013;
[2]廖信彦.ASP应用经典:Web高级技巧[M].北京:中国铁道出版社,2012:112-234
《学业》杂志是由学业出版社主办、神州杂志社协办、学业杂志社编辑出版 ISSN刊号:2305-7599   国内刊号:CN 11-4461/I   邮发代号:2-871
学业杂志社版权所有@未经本刊授权,不得转载本站资料