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 %>
