login.asp

小游戏网站演示www.4399.io 拥有4万条游戏数据

<!--#include file="config.asp"-->
<!--#include file="../inc/classmenu.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../api/cls_api.asp"-->
<%
dim htmlcontent,channelrootdir
channelrootdir = newasp.installdir & "user/"
newasp.loadtemplates 9999, 5, 0

htmlcontent = newasp.htmlcontent
htmlcontent = replace(htmlcontent,"{$installdir}", newasp.installdir)
htmlcontent = replace(htmlcontent, "{$channelid}", 0)
'--频道目录
htmlcontent = replace(htmlcontent,"{$channelrootdir}", channelrootdir)
htmlcontent = replace(htmlcontent,"{$pagetitle}","用户登录")
htmlcontent = readclassmenu(htmlcontent)
htmlcontent = readclassmenubar(htmlcontent)

if checklogin then
	response.redirect ("./index.asp")
end if
if lcase(request("action")) = "login" then
	call memberlogin
else
	htmlcontent = replace(htmlcontent,"{$usermanagecontent}", newasp.htmlsetting(7))
	htmlcontent = replace(htmlcontent,"{$sitename}", newasp.sitename)
	response.write htmlcontent
end if
if founderr = true then
	call returnerr(errmsg)
end if
closeconn
sub memberlogin()
	on error resume next
	dim rs,sql,username, password,usercookies,group_setting
	if trim(request("username")) <> "" and trim(request("password")) <> "" then
		username = newasp.checkbadstr(request("username"))
		password = md5(request("password"))
	else
		errmsg = errmsg + "<li>用户名和密码不能为空！</li>"
		founderr = true
		exit sub
	end if
	if newasp.isvalidstr(request("username")) = false then
		errmsg = errmsg + "<li>用户名中含有非法字符！</li>"
		founderr = true
	end if
	if newasp.isvalidpassword(request("password")) = false then
		errmsg = errmsg + "<li>密码中含有非法字符！</li>"
		founderr = true
	end if
	usercookies = newasp.chknumeric(request("cookiedate"))
	'-----------------------------------------------------------------
	'系统整合
	'-----------------------------------------------------------------
	dim api_newasp,api_savecookie,syskey
	if api_enable then
		set api_newasp = new api_conformity
		api_newasp.nodevalue "action","login",0,false
		api_newasp.nodevalue "username",username,1,false
		md5old = 1
		syskey = md5(api_newasp.xmlnode("username") & api_conformkey)
		md5old = 0
		api_newasp.nodevalue "syskey",syskey,0,false
		api_newasp.nodevalue "password",request("password"),0,false
		api_newasp.sendhttpdata
		if api_newasp.status = "1" then
			founderr = true
			errmsg =  api_newasp.message
			exit sub
		else
			api_savecookie = api_newasp.setcookie(syskey,username,password,usercookies)
		end if
		set api_newasp = nothing
	end if
	'-----------------------------------------------------------------
	if founderr = true then exit sub
	set rs = server.createobject("adodb.recordset")
	sql = "select * from [nc_user] where username='" & username & "'"
	rs.open sql, conn, 1, 3
	if rs.bof and rs.eof then
		founderr = true
		errmsg = errmsg + "<li>您输入的用户名和密码不正确，请联系管理员！</li>"
		exit sub
	else
		if password <> rs("password") then
			founderr = true
			errmsg = errmsg + "<br><li>用户名或密码错误！！！</li>"
			exit sub
		end if
		if rs("userlock") <> 0 then
			founderr = true
			errmsg = newasp.htmlsetting(8)
			exit sub
		end if
		response.cookies(newasp.cookies_name)("lasttimedate") = rs("lasttime")
		response.cookies(newasp.cookies_name)("lasttimeip") = rs("userlastip")
		response.cookies(newasp.cookies_name)("lasttime") = rs("lasttime")
		group_setting=split(newasp.usergroupsetting(rs("usergrade")), "|||")
		if datediff("d",now(),rs("lasttime")) <> 0 then 
			if rs("userpoint") < 0 then
				rs("userpoint") = clng(group_setting(25))
			else
				rs("userpoint") = rs("userpoint") + clng(group_setting(25))
			end if
			if rs("experience") < 0 then
				rs("experience") = clng(group_setting(32))
			else
				rs("experience") = rs("experience") + clng(group_setting(32))
			end if
			if rs("charm") < 0 then
				rs("charm") = clng(group_setting(33))
			else
				rs("charm") = rs("charm") + clng(group_setting(33))
			end if
		end if
		rs("lasttime") = now()
		rs("userlastip") = newasp.getuserip
		rs("userlogin") = rs("userlogin") + 1
		rs.update
		'if isnull(usercookies) or usercookies="" then usercookies=0
		select case usercookies
		case 0
			response.cookies(newasp.cookies_name)("usercookies") = usercookies
		case 1
			response.cookies(newasp.cookies_name).expires=date+1
			response.cookies(newasp.cookies_name)("usercookies") = usercookies
		case 2
			response.cookies(newasp.cookies_name).expires=date+31
			response.cookies(newasp.cookies_name)("usercookies") = usercookies
		case 3
			response.cookies(newasp.cookies_name).expires=date+365
			response.cookies(newasp.cookies_name)("usercookies") = usercookies
		end select
		'response.cookies(newasp.cookies_name).path = "/"
		response.cookies(newasp.cookies_name)("userid") = rs("userid")
		response.cookies(newasp.cookies_name)("username") = rs("username")
		response.cookies(newasp.cookies_name)("password") = rs("password")
		response.cookies(newasp.cookies_name)("nickname") = rs("nickname")
		response.cookies(newasp.cookies_name)("usergrade") = rs("usergrade")
		response.cookies(newasp.cookies_name)("usergroup") = rs("usergroup")
		response.cookies(newasp.cookies_name)("userclass") = rs("userclass")
		response.cookies(newasp.cookies_name)("usertoday") = rs("usertoday")
	end if
	rs.close
	set rs = nothing
	'-----------------------------------------------------------------
	'系统整合
	'-----------------------------------------------------------------
	if api_enable then
		response.write api_savecookie
		response.flush
		if api_loginurl <> "0" then
			response.write "<script language=javascript>"
			response.write "settimeout(""window.location='"& api_loginurl &"'"",1000);"
			response.write "</script>"
			response.end
		end if
	end if
	'-----------------------------------------------------------------
	'response.redirect("index.asp")
	dim comeurlname,comeurl,returnstr
	comeurl = trim(request("comeurl"))
	if len(comeurl) = 0 then
		comeurl = request.servervariables("http_referer")
	end if
	if instr(lcase(comeurl),"reg.asp")>0 or instr(lcase(comeurl),"user/login.asp")>0 or trim(comeurl)="" or (not newasp.checkpost) then
		comeurlname=""
		comeurl="index.asp"
		returnstr = "<span id=jump>3</span> 秒钟后系统将自动返回控制中心"
	else
		comeurl=comeurl
		comeurlname="<li><a href="&comeurl&">"&comeurl&"</a></li>"
		returnstr = "<span id=jump>3</span> 秒钟后系统将自动返回"
	end if
	htmlcontent = replace(htmlcontent,"{$usermanagecontent}", newasp.htmlsetting(9))
	htmlcontent = replace(htmlcontent,"{$sitename}", newasp.sitename)
	htmlcontent = replace(htmlcontent,"{$username}", request("username"))
	htmlcontent = replace(htmlcontent,"{$comeurl}", comeurl)
	htmlcontent = replace(htmlcontent,"{$comeurlname}", comeurlname)
	htmlcontent = replace(htmlcontent,"{$returnstr}", returnstr)
	response.write htmlcontent
end sub
%>