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

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

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

ASP人才招聘管理系统(开题报告+论文+源程序) 第8页
link44=rs("link44")
link5=rs("link5")
link55=rs("link55")
link6=rs("link6")
link66=rs("link66")
ymail=rs("ymail")
smail=rs("smail")
address=rs("address")
copycn=rs("copycn")
pics1=rs("pics1")
piclinks1=rs("piclinks1")
pics2=rs("pics2")
piclinks2=rs("piclinks2")
pics3=rs("pics3")
piclinks3=rs("piclinks3")
pics4=rs("pics4")
piclinks4=rs("piclinks4")
end if
rs.close
%>
<%
set rs=createobject("adodb.recordset")
sql="select * from link"
rs.open sql,Conn
if not rs.eof then
piclink0=rs("piclink0")
piclink00=rs("piclink00")
piclink1=rs("piclink1")
piclink11=rs("piclink11")
piclink2=rs("piclink2")
piclink22=rs("piclink22")
piclink3=rs("piclink3")
piclink33=rs("piclink33")
piclink4=rs("piclink4")
piclink44=rs("piclink44")
piclink5=rs("piclink5")
piclink55=rs("piclink55")
piclink6=rs("piclink6")
piclink66=rs("piclink66")
piclink7=rs("piclink7")
piclink77=rs("piclink77")
piclink8=rs("piclink8")
piclink88=rs("piclink88")
piclink9=rs("piclink9")
piclink99=rs("piclink99")
piclinka=rs("piclinka")
piclinkaa=rs("piclinkaa")
piclinkb=rs("piclinkb")
piclinkbb=rs("piclinkbb")
piclinkc=rs("piclinkc")
piclinkcc=rs("piclinkcc")
p0n=rs("p0n")
p1n=rs("p1n")
p2n=rs("p2n")
p3n=rs("p3n")
p4n=rs("p4n")
p5n=rs("p5n")
p6n=rs("p6n")
p7n=rs("p7n")
p8n=rs("p8n")
p9n=rs("p9n")
pan=rs("pan")
pbn=rs("pbn")
banner=rs("banner")
banners=rs("banners")
scjj=rs("scjj")
end if
rs.close
%>
     程序首先获得session中保存用户编号的值，如果这个值为空则会提示用户登陆非法，并同时跳转回主页，达到屏蔽用户访问的目的，如果不为空，则说明用户已经登陆，此时程序打开一个记录集，并取出系统社顶信息及友情连接信息，存放在临时变量中。
对企业用户是否登陆的判断与对个人用户是否登陆的判断过程是基本相同的，只不过在打开数据表时打开的是企业数据表company。
⑤ 管理员登陆模块
    在本系统中，设计了管理员登陆的后台管理页面，此页面首先检测session的值来判断管理员是否登陆，如果没有登陆，则显示登陆的表单，如下图：

        这部分的处理代码和用户登陆的表单原理类似，这里就不在详述了，下面展示一下接受并处理管理员登陆的代码，如下：
管理员登陆处理页面chkindex.asp
     
<%
dim rs
admin1=request.form("admin")
pwd1=request.form("pwd")

set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where admin='" & admin1 & "'",conn,1
if pwd1<>rs("pwd") then
response.write "<link rel='stylesheet' type='text/css' href='style.css'>"
response.write "<body bgcolor='#ffffff'>"
response.write "对不起，您的输入不正确,请您正确输入管理员的用户名和密码！请点击<a href='VBscript:history.go(-1)'><font size=4 color=#ff0000>这里</font></a>返回！"
else
session("admin")=RS("admin")
session("KEYS")=rs("OSKEY")
response.redirect "admin.asp"
end if
rs.close
%>

与处理用户登陆相似，程序首先获得传递来的表单值，然后创建记录集对象，并根据传递的表单参数值admin从数据库中取出符合要求的数据，此时将记录集中保存的pwd值，即数据库中保存的所填写的管理员的密码与所输入的值进行比对，如果不同则给出提示，否则首先设定session的值，然

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>