<!--#include file="inc/enpasswd.inc"-->
<% 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"java script: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")
sql="select * from company 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 "company/main.asp"
end if
end if
end if
end if %>
程序首先通过request对象获得表单传送来的数值，然后使用几个流程判断语句if…else…endif来对不同情况的变量usertype值的登陆进行选择。这里以usertype的值为“person”的情况为示例解释，首先程序创建一个记录集，并根据所得参数查询person表中符合条件的数据，如果记录集为空，则说明没有符合条件的数据，从而进一步说明用户所填写的信息不正确，无法正确登陆，此时给出提示，并终止页面运行，否则设定session的值并跳转
首页 上一页 7 8 9 10 11 12 13 下一页 尾页 10/15/15
ASP人才招聘系统(十)由毕业论文网（www.huoyuandh.com）会员上传。
