chklogin.asp

在线点播系统

<!--#include file="inc/function.asp"-->
<!--#include file="inc/conn.asp"-->
<%
'######检测客户端浏览器########
Dim testBrowser
Set testBrowser = Server.CreateObject("MSWC.BrowserType")
if testBrowser.tables=false or testBrowser.Cookies=false or testBrowser.Javascript=false then
set testBrowser=nothing
Response.Redirect ("Browser_err.html")
end if
set testBrowser=nothing
%>
<%
set rs=server.createobject("adodb.recordset") '检测IP绑定并写入登陆信息
rs.open "select * from member where u_type=3 and bd_ip='"&myobj.getIP()&"'",conn,1,1
if not rs.eof then
	response.cookies("userid")=rs("userid")
	response.cookies("u_pwd")=rs("u_pwd")
	response.cookies("u_type")=3
end if
rs.close

set rs=server.createobject("adodb.recordset") '查询条件并自动删除站内短信
rs.open "select * from setup where id=1",conn,1,1
del_readtrue=cint("-"&rs("del_readtrue"))
del_readfalse=cint("-"&rs("del_readfalse"))
user_timeout=cint("-"&rs("timeout"))
play_timeout=cint("-"&rs("play_timeout"))
rs.close
'删除N天前的已读短信
conn.execute"delete From webmessage Where msg_time<DATEADD(d,"&del_readtrue&", getdate()) and is_read=1 and to_usersid<>'@admin@'"
'删除N天前的未读短信
conn.execute"delete From webmessage Where msg_time<DATEADD(d,"&del_readfalse&", getdate()) and is_read=0 and to_userid<>'@admin@'"
'删除online表中登陆时间已超过N分钟的用户
conn.execute"delete From online Where action_time<DATEADD(n,"&user_timeout&", getdate())"
'删除users表中登陆时间已超过N分钟的用户
conn.execute"delete From users Where add_time<DATEADD(n,"&play_timeout&", getdate()) and link_type=1"
'删除users表中登陆时间已超过N分钟的用户
conn.execute"delete From permissions Where add_time<DATEADD(n,"&play_timeout&", getdate()) and link_type=1"

'#######################用户身份判断及网吧用户自动登陆###########################
if request.cookies("userid")<>"" then '如果账号不为空
	if myobj.ChkID(request.Cookies("userid"))=false or len(request.Cookies("userid"))<3 or len(request.Cookies("userid"))>12 then '如果账号格式错误
		response.cookies("userid")=""
		response.cookies("u_pwd")=""
		response.cookies("center")=""
		response.cookies("u_type")=""
	end if
	if request.cookies("u_pwd")="" or request.cookies("u_type")="" then '如果密码和类型为空
		response.cookies("userid")=""
		response.cookies("u_pwd")=""
		response.cookies("center")=""
		response.cookies("u_type")=""
	end if

      '如果用户类型值不等于1,2,3
	if request.cookies("u_type")<>1 and request.cookies("u_type")<>2 and request.cookies("u_type")<>3 then
		response.cookies("userid")=""
		response.cookies("u_pwd")=""
		response.cookies("center")=""
		response.cookies("u_type")=""
	end if

	if request.cookies("u_type")=3 then
		set rs=server.createobject("adodb.recordset") '检测IP绑定并写入登陆信息
		rs.open "select * from member where u_type=3 and userid='"&request.cookies("userid")&"' and bd_ip='"&myobj.getIP()&"'",conn,1,1
		if rs.eof then '账号不为空，并且登陆方法是网吧登陆，但是IP地址不在数据库内
			response.cookies("userid")=""
			response.cookies("u_pwd")=""
			response.cookies("center")=""
			response.cookies("u_type")=""
		end if
		call cr()
	end if

	set rs=server.createobject("adodb.recordset")
	rs.open "select * from member where u_type="&request.cookies("u_type")&" and userid='"&request.cookies("userid")&"'",conn,1,1
	if rs.eof then  '如果账号不存在
		response.cookies("userid")=""
		response.cookies("u_pwd")=""
		response.cookies("center")=""
		response.cookies("u_type")=""
	else
		if request.cookies("u_pwd")<>rs("u_pwd") then '如果密码不同
			response.cookies("userid")=""
			response.cookies("u_pwd")=""
			response.cookies("center")=""
			response.cookies("u_type")=""
		end if
	end if
	rs.close
	if request.cookies("u_type")<>3 then
		set rs=server.createobject("adodb.recordset") '如果cookies不为空，而在online表中找不到该账号
		rs.open "select * from online where userid='"&request.cookies("userid")&"'",conn,1,1
		if rs.eof then
			response.cookies("userid")=""
			response.cookies("u_pwd")=""
			response.cookies("center")=""
			response.cookies("u_type")=""
		end if
		rs.close
	end if
end if
'#######################用户身份判断及网吧用户自动登陆结果###########################
if request.cookies("userid")<>"" then
	if request.cookies("u_type")<>3 then '如果用户已登陆，并且不是网吧用户
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from online where userid='"&request.cookies("userid")&"'",conn,1,3
		rs("action_time")=now()
		rs.update
		rs.close
	end if
end if

if request.cookies("center")<>"" then '如果管理权限信息值不为空
	if request.Cookies("center")<>1 then '如果管理权限信息值不等于1
		response.cookies("userid")=""
		response.cookies("u_pwd")=""
		response.cookies("center")=""
		response.cookies("u_type")=""
	end if
end if
%>