<!-- #include file="inc/config.asp" -->
<%
call doWebHead()
call doSkinParse("login","")
call doWebEnd()


sub doPageParse()
	call doLogin()
end sub

sub doLogin()
	'Response.AddHeader "WARNING", "Error Message Text"
	'Response.Flush
	'Response.Status="401 Unauthorized"
	'Response.Addheader "WWW-Authenticate","BASIC"
	dim tmpSQL
	treeData.addItem "username",user.getMemory("username")
	if not ops.request.isFormPost() then exit sub
	treeData.addItem "username",ops.request.getForm("username")
	treeData.addItem "password",ops.request.getForm("password")
	
	if not opsCheck.isName(treeData.getItem("username")) then opsError.addItem("用户名称 为空或不符合规则")
	if not opsCheck.isPassword(treeData.getItem("password")) then opsError.addItem("登陆密码 为空或不符合规则")
	'debug opsTest.toTreeString(treeData,"treeData")
	
	if not opsError.isCheck() then			'禁用信息屏蔽
		if web.isShieldIP("passport") then opsError.addItem(cfg.getLang("message.shield.ip.passport"))
	end if
	
	'if not opsError.isCheck() then
	'	vcp.setChannel("login")
	'	if not vcp.isCheck() then opsError.addItem(vcp.getMessage)
	'end if
	
	dim tmpUserid,tmpUsername,tmpPassword
	tmpUsername=treeData.getItem("username")
	tmpPassword=treeData.getItem("password")
	if not opsError.isCheck() then
		treeData.addItem "password",opsCoder.toMD5(tmpPassword)
		treeData.addItem "cookies.age",ops.request.getForm("remember_info")
		call treeData.doAppendTree(cp.toUserLoginCheckTree(treeData),"")
		'debug opsTest.toTreeString(treeData,"treeData")
		
		select case treeData.getItem("_status")
		case "error.no"
			opsError.addItem("您输入的 用户名称 和 登陆密码 有错误.")
			opsError.addItem("请重新输入以并继续登陆本站！")
		case "error.password"
			opsError.addItem("您输入的 用户名称 和 登陆密码 有错误！")
			opsError.addItem("请重新输入以并继续登陆本站！")
		case "error.hidden","succeed"
			'
		case else
			opsError.addItem("未知的错误信息"&treeData.getItem("_status")&"，请与网站管理员联系！")
		end select
	end if
	
	if treeData.getItem("_status")<>"succeed" then
		treeData.addItem "username",tmpUsername
		treeData.addItem "password",tmpPassword
	end if
	if opsError.isCheck() then
		'treeData.addItem "_status","error.message"
		treeData.addItem "_message",opsScript.JSMake(opsError.toJS(),"")
		exit sub
	end if
	if treeData.getItem("_status")<>"succeed" then exit sub
	
	tmpUserid=treeData.getItemInt("userid")
	'####################
	
	dim tmpURL
	tmpURL=cp.getUserRedirectURL()
	if len(tmpURL)>0 then go tmpURL
	
	treeData.addItem "_url",tmpURL
	treeData.addItem "_status","succeed"
end sub
%>