expert_login.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/AdoConn.asp"-->
<%
dim ExpertCode,Password
	ExpertCode=trim(Request.QueryString ("code"))
	Password=trim(Request.QueryString ("Password"))
dim objres,strsql
set objres=server.CreateObject ("ADODB.recordset")
strsql="select * from XT_VC_Expert where 专家编码='"+ExpertCode+"'"
objres.Open strsql,strconn

if objres.EOF then
	Response.Redirect "../index.asp?info=无此专家,请确认是否注册!"
	else
		if not trim(objres("密码"))=trim(password) then
			Response.Redirect "../index.asp?info=您的密码错误,请重新登录!"
		else
			session("usercode")=objres("专家编码")
			session("username")=objres("专家姓名")
			
			''''''''''''''''''''''''''''''读取用户角色，并赋给全局变量
			set objres2=server.CreateObject ("adodb.recordset")
			objres2.CursorType =3
			objres2.CursorLocation =3
			objres2.LockType =2
			strsql="select * from xt_vp_UserRole where 用户编码='"+expertCode+"'"
			objres2.Open strsql,strconn
			if objres2.RecordCount>0 then 
				redim SessionRole(objres2.RecordCount)
				for i=0 to objres2.RecordCount-1
					SessionRole(i)=objres2("角色名称")
					objres2.MoveNext
				next
				objres.Close
				set objres=nothing
			session("rolebiaoshi")="Y"
			session("role")=SessionRole
			objres2.Close 
			set objres2=nothing
			end if
			
			Response.Redirect "../system.asp"
		end if 
end if


	

%>