<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<!--#include file=md5.asp-->
<%
 '=========================================================
' File: login.asp
' Version:3.0
' Date: 2005-11-7
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="填写登录信息"
dim url,comeurl
call nav()
call head_var("用户登录","login.asp")
if request("action")="chk" then
	call chklogin()
	if founderr then call MsLove_error()
else
	url=Request.ServerVariables("HTTP_REFERER")
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<form action="/manage/user_chklogin.asp" method=post> 
    <tr>
    <th valign=middle colspan=2 align=center height=25>请输入您的用户名、密码登陆</td></tr>
    <tr>
    <td valign=middle class=tablebody1><strong>请输入您的用户名</strong></td>
    <td valign=middle class=tablebody1><input class=2 name=UserName type=text> &nbsp; <a href=reg.asp>没有注册？</a></td></tr>
	 <%if Cint(Codeshow(1))=1 then%>
      <TR> 
        <TD width=40% height="25" class=tablebody1><strong>请输入验证码</strong></TD>
        <TD  class=tablebody1> <input type="text" name="codestr" maxlength="4" size="4">&nbsp;<%=GetCode()%></TD>
      </TR>
      <%end if%>
    <tr>
    <td valign=middle class=tablebody1><strong>请输入您的密码</strong></td>
    <td valign=middle class=tablebody1><INPUT name=password type=UserPassword class=2> &nbsp;<a href=lostpass.asp>忘记密码？</a></td></tr>
    <tr>
    <td class=tablebody1 valign=top width=30% ><b>Cookie 选项</b><BR> 请选择你的 Cookie 保存时间，下次访问可以方便输入。</td>
    <td valign=middle class=tablebody1>                <input type=radio name=CookieDate value=0 checked>不保存，关闭浏览器就失效<br>
                <input type=radio name=CookieDate value=1>保存一天<br>
                <input type=radio name=CookieDate value=2>保存一月<br>
                <input type=radio name=CookieDate value=3>保存一年<br>                </td></tr>
    <tr>
    <td valign=top width=30% class=tablebody1><b>隐身登陆</b><BR> 您可以选择隐身登陆，论坛会员将在用户列表看不到您的信息。</td>
    <td valign=middle class=tablebody1>                <input type=radio name=userhidden value=2 checked>正常登陆<br>
                <input type=radio name=userhidden value=1>隐身登陆<br>
                </td></tr>
	<input type=hidden name=comeurl value=<%=url%>>
    <tr>
    <td class=tablebody2 valign=middle colspan=2 align=center><input class=2 type=submit name=submit value="登 陆"></td></tr>
</form>
</table>
<%
end if
call footer()

sub chklogin()
	dim UserIP,username,userclass,password,codestr,Userart
	dim usercookies,comeurl
	UserIP=replace(Request.ServerVariables("REMOTE_ADDR"),"'","")
	if request("username")="" then
		errmsg=errmsg+"<br>"+"<li>请输入您的用户名。"
		founderr=true
	else
		username=trim(checkStr(request("username")))
	end if
	if request("password")="" then
		errmsg=errmsg+"<br>"+"<li>请输入您的密码。"
		founderr=true
	else
		password=md5(trim(checkStr(request("password"))),16)
	end if
	
	if Cint(Codeshow(1))=1 then'判断验证码是否正确
	if Not CodeIsTrue() then
		errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
		founderr=true
	end if
end if

Dim cookies_path_s,cookies_path_d,cookies_path
	cookies_path_s=split(Request.ServerVariables("PATH_INFO"),"/")
	cookies_path_d=ubound(cookies_path_s)
	cookies_path="/"
	For i=1 to cookies_path_d-1
		If not (cookies_path_s(i)="upload" or cookies_path_s(i)="admin") Then cookies_path=cookies_path&cookies_path_s(i)&"/"
	Next
	If cookiepath<>cookies_path Then
		cookies_path=replace(cookies_path,"'","")
		errmsg=errmsg+"<br>"+"<li>对不起，网站的cookie设置错误，请联系管理员！"
		founderr=true
	End If
	
	if founderr then exit sub
	usercookies=request("CookieDate")
	if chkuserlogin(username,password,usercookies,1)=false then
		errmsg=errmsg+"<br>"+"<li>您的用户名并不存在，或者您的密码错误，或者您的帐号已被管理员锁定。"
		founderr=true
		exit sub
	end if
	dim comeurlname
	if instr(lcase(request("comeurl")),"reg.asp")>0 or instr(lcase(request("comeurl")),"login.asp")>0 or  trim(request("comeurl"))="" then
		comeurlname=""
		comeurl="index.asp"
	else
		comeurl=request("comeurl")
		comeurlname="<li><a href="&request("comeurl")&">"&request("comeurl")&"</a></li>"
	end if
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 >
  <tr> 
    <th height=25>登陆成功：<%=webname%>欢迎您的到来</th>
  </tr>
  <tr>
    <td class=tablebody1>
	<br />
	　　缘份是佛教概念，很深奥，是因果律的一种。现在拿来说爱情，其实借用的意思很浅薄，就是说在千人万人中怎么就遇见你一个你，相遇相知相爱，太不容易了。可惜，太多不可抗拒的因素让我们不得不分离，这是宿命的结局，这不是我们的错，这是命运的错。<br />

<br>
	<%if Loginhome="" or Loginhome="0" then
	response.Write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL="&comeurl&"'>")
	response.Write(""&comeurlname&"")
	else
	response.Write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL="&Loginhome&"'>")
	  end if%>
      <li><a href=index.asp>返回首页</a></li>
      </td>
  </tr>
</table>
<%
end sub
%>
