<%
dim username,password,strselect,sql ,sql2
username=request("username")
password=request("password")
strselect=request("select1")
if request("go")="go" then
Set rs=server.createObject("ADODB.Recordset")
Sql="Select * From users Where username='"&username&"'"
rs.Open Sql,conn,1,1
if rs.RecordCount=0 then
session("usrid")=""
else
if rs("password")<>password then
session("usrid")=""
else
session("usrid")=rs("dj")
end if
end if
if strselect = "高级专业技术人才" then
response.Redirect("../search/rc1.asp")
else
if strselect = "高级技能人才" then
response.Redirect("../search/rc2.asp")
else
if strselect = "青年科技拔尖人才" then
response.Redirect("../search/rc3.asp")
else
if strselect = "专业技术带头人" then
response.Redirect("../search/rc4.asp")
else
if strselect = "硕士博士学位人才" then
response.Redirect("../search/rc5.asp")
else
if strselect = "享受政府津贴专家" then
response.Redirect("../search/rc6.asp")
else
if strselect = "科技创新获奖者" then
response.Redirect("../search/rc7.asp")
else
if strselect = "优秀管理成果获奖者" then
response.Redirect("../search/rc8.asp")
else
if strselect = "经营管理人才" then
response.Redirect("../search/rc9.asp")
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
%>
北京铁路局人事人才网
