您现在的位置：毕业论文 >> 论文 >> 正文

ASP人才招聘管理系统(开题报告+论文+源程序) 第9页

更新时间：2010-4-19: 来源：毕业论文

ASP人才招聘管理系统(开题报告+论文+源程序) 第9页
后转入页面admin.asp。
⑥ 注销登陆模块
    企业用户和个人用户的注销登陆页面分为company和person目录下的exit.asp文件，现以企业用户的退出页面company/exit.asp为例，分析注销登陆的过程，代码如下：
企业用户退出页面exit.asp

    <% if session("cuid")<>"" then uname=session("cuid") end if
    if session("puid")<>"" then uname=session("puid") end if
Session.Abandon
response.write"<SCRIPT language=VBScript>alert('用户"&uname&"成功退出登录，正在返回首页！');"
response.write"this.location.href='../index.asp';</SCRIPT>" %>

这里可以看到，处理退出登陆的关键代码是调用session对象的Abandon方法，Abandon方法删除所有存储在session对象中的对象并释放这些对象的源。如果未明确地调用Abandon方法，一旦会话超时（默认设置为20分钟），服务器将删除这些对象。

4.6 个人用户界面设计
① 个人用户注册界面
用户在网站导航处点击“新会员注册”将打开member.asp页面，这个
页面显示用户的注册表单，如下图：

当提交表单并检测输入数据合法后，会将表单提交到这个页面本身，页面首
先判断是否已经提交，如果已经提交则进入用户信息注册处理，这个注册过程比较复杂，但是主要的过程就是将usertype的值分为几个支线流程，这几个支线流程是类似的。由于此代码繁多，不做以展示。
这块程序首先根据所取得的表单中的用户名查询数据库中是否有相同用
户名的记录，如果有则给出提示，并终止运行，否则进入下一步，打开记录集并添加一条新的记录，然后系统默认要给用户发送一条站内短消息提示注册成功，因此还要打开记录集，在短信数据库pmailbox中新增一条短信数据。最后弹出提示告诉用户注册成功，然后转到用户首页。
其他usertype的处理过程与此类似，只不过不同的处理用户信息存放在不同表中。最后的过程都是一样的，此处为了解释清晰，代码编写的较为繁琐。
② 个人用户登陆
    用户进入网站后，可以在页面上边的导航栏处填写用户名和密码，并选
择帐户类型进行登陆。
如果登陆成功，则显示用户管理的快界链接，否则显示登陆表单，在这个表单中填写用户名和密码，并提交到login.asp页面，用户可以登陆，下面展示login.asp页面代码：
Login.asp页面代码
<% Response.Buffer=True %>


<% uname=request("uname")
   pwd=mistake(request("pwd"))
   usertype=request("usertype")

   if usertype="person" then
   set rs=server.createobject("adodb.recordset")
   sql="select * from person where uname='"&uname&"' and pwd='"&pwd&"'"
   rs.open sql,conn,3,3
   if rs.bof or rs.eof then
   response.write"<SCRIPT language=VBScript>alert('错误的用户名、密码或您不是此类型用户，请重新输入！');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   else
   session("puid")=uname
   response.Redirect "person/main.asp"
   end if
   else
   if usertype="class" then
   set rs=server.createobject("adodb.recordset")
   sql="select * from class where uname='"&uname&"' and pwd='"&pwd&"'"
   rs.open sql,conn,3,3
   if rs.bof or rs.eof then
   response.write"<SCRIPT language=VBScript>alert('错误的用户名、密码或您不是此类型用户，请重新输入！');"
   response.write"VBscript:history.go(-1)</SCRIPT>"
   else
   session("puid")=uname
   response.Redirect "class/main.asp"
   end if    else
   if usertype="peixun" then
   set rs=server.createobject("adodb.recordset")
   sql="select * from peixun where uname='"&uname&"' and pwd='"&pwd&"'"
   rs.open sql,conn,3,3
   if rs.eof then
   response.write"<SCRIPT language=VBScript>alert('错误的用户名、密码或您不是此类型用户，请重新输入！');"
   response.write"VBscript:history.go(-1)</SCRIPT>"
   else
   session("cuid")=uname
   response.Redirect "peixun/main.asp"
   end if   else
   set rs=server.createobject("adodb.recordset")