login.asp

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

<!--#include file="../Include/AdoConn.asp"-->
<%
dim UserCode,Password,SubmitType
	UserCode=trim(Request("Usercode"))
	Password=trim(Request("Password"))
	SubmitType=trim(Request("SubmitType"))
dim objres,strsql
if submitType="expert" then response.end 
set objres=server.CreateObject ("ADODB.recordset")
strsql="select 用户编码,密码,有效标志,用户姓名,部门编码 from XT_VC_User where 用户编码='"+Usercode+"'"
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
			if not trim(objres("有效标志"))="1" then
			Response.Redirect "../index.asp?info=请等待主管部门批准!"
			else
			session("usercode")=objres("用户编码")
			session("username")=objres("用户姓名")
			session("departcode")=objres("部门编码")

			
			''''''''''''''''''''''''''''''读取用户角色，并赋给全局变量
			set objres2=server.CreateObject ("adodb.recordset")
			objres2.CursorType =3
			objres2.CursorLocation =3
			objres2.LockType =2
			strsql="select * from xt_vp_UserRole where 用户编码='"+usercode+"'"
			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
			
			'''''''''''''''''''''''''''''''判断用户IP是否有权限
'			IP=Request.ServerVariables("remote_addr")
'			session("IPno")=""
'			dim objres1,strsql1,begin1,end1'判断IP是否有效
'				set objres1=server.CreateObject("ADODB.recordset")
'				strsql1="select * from XT_TC_UserIP"
'				objres1.Open strsql1,conn
'				begin1=objres1("IP首地址")
'				end1=objres1("IP末地址")
'
'				UIP=split(IP,".")
'				BIP=split(begin1,".")
'				EIP=split(end1,".")
'
'					'判断第四位是否相同
'					if not (cint(UIP(3))>cint(BIP(3))and cint(UIP(3))<(EIP(3))) then'判断第四位是否在首地址及末地址中
'						session("IPno")="no"
'					else
'						for i=0 to 2'判断用户IP前三位与数据库首IP前三位是否相同,如果不相同,显示无权限
'							if UIP(i)<>BIP(i) then 
'							session("IPno")="no"
'							end if
'						next
'					end if 
'				if session("UserCode")="002001" then session("IPno")=""

'			'''''''''''''''''''''''''''''''''''''''''''''''IP判断结束

'''''''''''''将用户写入“在线用户”数据表
			Response.Redirect "../system.asp"
			end if
		end if 
end if

%>