📄 chklogin.asp

📁 应用于高等院校党团思想教育
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/grade.asp"-->
<%
	dim rs
	dim sql
	dim UserIP
	dim username
	dim password
	dim article
	dim founderr
	dim errmsg
	founderr=false

	UserIP=Request.ServerVariables("REMOTE_ADDR")
	if request("username")="" then
		errmsg=errmsg+"<br>"+"<li>请输入您的用户名。"
		founderr=true
	else
		username=trim(replace(request("username"),"'",""))
	end if
	if request("password")="" then
		errmsg=errmsg+"<br>"+"<li>请输入您的密码。"
		founderr=true
	else
		password=trim(replace(request("password"),"'",""))
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select username,userpassword,userclass,logins,lastlogin,article from [user] where username='"&username&"' and lockuser=0"
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		errmsg=errmsg+"<br>"+"<li>您输入的用户名并不存在，<a href='reg.asp'>请先注册</a><li>或者管理员已经将用户账号锁定，请和管理员联系。"
		founderr=true
	else
		if rs("userpassword")<>password then
			errmsg=errmsg+"<br>"+"<li>您输入的密码不正确。"
			founderr=true
		else
			rs("logins")=rs("logins")+1
			rs("lastlogin")=Now()
			rs.update
    			session.Contents("username")=UserName
			session("password")=rs("userpassword")
			article=rs("article")
			if rs("userclass")<>user_level7 and rs("userclass")<>user_level8 and rs("userclass")<>user_level9 then
				if rs("article")>=level2_point and rs("article")<level3_point then
					if rs("userclass")<>user_level2 then
						rs("userclass")=user_level2
						rs.update
					end if
				elseif rs("article")>=level3_point and rs("article")<level4_point then
					if rs("userclass")<>user_level3 then
						rs("userclass")=user_level3
						rs.update
					end if
				elseif rs("article")>=level4_point and rs("article")<level5_point then
					if rs("userclass")<>user_level4 then
						rs("userclass")=user_level4
						rs.update
					end if
				elseif rs("article")>=level5_point and rs("article")<level6_point then
					if rs("userclass")<>user_level5 then
						rs("userclass")=user_level5
						rs.update
					end if
				elseif rs("article")>=level6_point then
					if rs("userclass")<>user_level6 then
						rs("userclass")=user_level6
						rs.update
					end if
				end if
			end if
			session("userclass")=rs("userclass")
			call activeuser()
		end if
	end if

	sub activeuser()
	dim rsactiveusers,activeuser
	set rsactiveusers=server.createobject("adodb.recordset")
	if session("userid")<>"" then
	activeuser="delete from online where id="&cstr(session("userid"))
	Conn.Execute activeuser
	end if
	activeuser="select * from online where username='"&session.contents("username")&"'"
	rsactiveusers.open activeuser,conn,1,3
	if rsactiveusers.eof and rsactiveusers.bof then
		rsactiveusers.addnew
		rsactiveusers("id")=Session.SessionID
		rsactiveusers("username")=session.contents("username")
		rsactiveusers("userclass")=session("userclass")
		rsactiveusers("ip")=Request.ServerVariables("REMOTE_HOST")
		rsactiveusers("startime")=Now()
		rsactiveusers("lastimebk")=Now()
		rsactiveusers("lastime")=DateToStr(Now())
		rsactiveusers("browser")=Request.ServerVariables("HTTP_USER_AGENT")
		rsactiveusers("stats")=Request.ServerVariables("SCRIPT_NAME")
		rsactiveusers.update
	else
		rsactiveusers("lastimebk")=Now()
		rsactiveusers("lastime")=DateToStr(Now())
		rsactiveusers("stats")=Request.ServerVariables("SCRIPT_NAME")
		rsactiveusers.update
	end if
	session("userid")=""
	rsactiveusers.close
	set rsactiveusers=nothing
	end sub
%>
<%
	if founderr=true then
		call error()
	else
		response.redirect("index.asp")
	end if
%><head>
<title><%=ForumName%>--登陆</title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<!--#include file="inc/theme.asp"-->
<body bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" >
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -