<!--#include file = "inc/conn.asp"-->
<!--#include file = "inc/Class_Function.asp"-->


<% 
 if request("act")="yes" then
	cUser=GetSafeStr(request.form("yemail"))
	cPass=GetSafeStr(request.form("yemima"))
	set rs=conn.execute("select id,cMuser,cMpass,cZt,vipDate from t_Member where cMuser='"&cUser&"'")
	if rs.eof and rs.bof then
		AlertMsg "Incorrect account or password!","2"
		Response.End()
	elseif cPass<>rs("cMpass") then
		AlertMsg "Incorrect account or password!","2"
		Response.End()
	elseif rs("cZt")="0" then
		AlertMsg "The account has been locked, please contact the administrator!","2"
		Response.End()
	elseif DateDiff("d", rs("vipDate"), Now())>0 then
		AlertMsg "\u60a8\u7684\u4f1a\u5458\u5df2\u5230\u671f\uff0c\u8bf7\u8054\u7cfb\u7ba1\u7406\u5458\u83b7\u53d6\u6743\u9650\uff01","2"
		Response.End()
'	elseif request.form("rememberpass")="1" then
'		'Response.Cookies("user")="ok"
'		'Response.Cookies("user").expires=dateadd("H",24,now())'表示Cookies保存8小时
'		Response.Cookies("cmyusr")=cUser
'		Response.Cookies("cmyusr").expires=dateadd("H",24,now())'表示Cookies保存8小时
'		'Response.Cookies("adminlv")=cPass
'		'Response.Cookies("adminlv").expires=dateadd("H",24,now())'表示Cookies保存8小时
'		Response.End()
	else
		response.Cookies("cmyusr")=rs("cMuser")
		response.Cookies("cmyusr").Path="/"		
		session("cmyusr")=Request.Cookies("cmyusr")
		rs.close
		set rs=nothing
		AlertMsg "../download.asp","3"	
	end if 
end if

if request("exit")="yes" then
	response.Cookies("cmyusr")=empty
	AlertMsg "/vip/","3"
end if

%>