<% Option Explicit %>
<!--#include file="../Inc/Cls_DB.asp" -->
<!--#include file="../Inc/Const.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../Inc/MemberCheck.asp" -->
<%
dim Password,RsmessageObj,Messages
MemName = Session("MemName")
PassWord = Session("MemPassWord")
MemID = Session("MemID")
if Session("MemName")="" or Session("MemPassWord")="" then 
	response.Redirect("UserLogin.asp")
	response.end
end if
set RsMemObj = Server.CreateObject ("ADODB.RecordSet")
RsMemObj.Source="select * from Members where MemName='"& MemName &"' and password='"&PassWord&"'"
RsMemObj.Open RsMemObj.Source,Conn,1,1

set RsMessageObj = Server.CreateObject ("ADODB.RecordSet")
RsMessageObj.Source="select * from Message where MeRead='"& MemName &"' and ReadTF=false"
RsMessageObj.Open RsMessageObj.Source,Conn,1,1
if RsMessageObj.RecordCount=0 then
	Messages="<a href=Message.asp?MemName="&MemName&">您没有新短信</a>"
else
	Messages="<a href=Message.asp?MemName="&MemName&">您有新短信</a>(<font color=red>"&RsMessageObj.RecordCount&"</font>)"
end if
%>
<html>
<head>
<link href="../CSS/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登陆成功_会员中心</title>
</head>

<body>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
  <tr>
    <td><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr bgcolor="#EFEFEF"> 
          <td width="26" height="32">&nbsp;</td>
          <td width="445"><b><font color="#000000"><b>登陆成功！</b></font></b></td>
          <td width="96"><div align="center"><a href="Usermain.asp">会员中心首页 </a></div></td>
          <td width="52"><div align="center"><font color="#FF0000"><a href="../Help/">帮助</a></font></div></td>
          <td width="72"><div align="center"><a href="Logout.asp"><font color="#FF0000">安全退出</font></a></div></td>
          <td width="9"></td>
        </tr>
      </table></td>
  </tr>
</table>
<br>
<table width="700" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#CACACA">
  <tr> 
    <td height="315" bgcolor="#FFFFFF" ><br> <br> 
      <table width="73%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#E6E6E6">
        <tr bgcolor="#FFFFFF"> 
          <td colspan="2" > <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><font color="#FF0000"><%=session("memname")%>：</font>欢迎您！　　<%=Messages%> &nbsp;&nbsp;&nbsp;</td>
                <td>&nbsp;</td>
                <td><div align="center"></div></td>
              </tr>
            </table></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="2" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr bgcolor="#F3F3F3"> 
                <td height="24">你共投稿：<font color="#FF0000"><%=RsMemObj("ConNum")%></font>, 
                  被审核通过：<font color="#FF0000"><%=RsMemObj("ConNumNews")%> 　<a href="Mycon.asp"></a></font></td>
                <td><font color="#FF0000"><a href="Mycon.asp">我的投稿列表</a></font></td>
                <td><a href="News_UserAdd.asp">投稿</a></td>
              </tr>
            </table></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td width="21%" > <div align="right">积　　分：</div></td>
          <td width="79%" ><%=RsMemObj("Point")%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td > <div align="right">登陆次数：</div></td>
          <td ><%=RsMemObj("LoginNum")%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td > <div align="right">注册时间：</div></td>
          <td ><%=RsMemObj("RegTime")%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td > <div align="right">最后登陆时间：</div></td>
          <td ><%=RsMemObj("LastLoginTime")%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td > <div align="right">最后登陆ＩＰ：</div></td>
          <td ><%=RsMemObj("LastLoginIP")%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="2"><font color="#FF0000">资料修改</font></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="2"><a href="UserModify.asp?action=ChangePwd&MemID=<%=RsmemObj("ID")%>">修改密码</a>　　<a href="UserModify.asp?action=Modify&MemID=<%=RsmemObj("ID")%>">修改资料</a>　　<a href="UserModify.asp?action=Other&MemID=<%=RsmemObj("ID")%>">修改密码问题</a> 
          </td>
        </tr>
      </table>
      
    </td>
  </tr>
  <tr>
    <td bgcolor="#DFDFDF">
<div align="center">
        <p >
		<%
		Dim Rsconfig
		set Rsconfig=conn.execute("select * from config")
		Response.Write(""&Rsconfig("Copyright")&"")
		Rsconfig.close
		set Rsconfig=nothing
		%></p>
      </div></td>
  </tr>
</table>
</body>
</html>
<%
RsmemObj.close
set RsmemObj=nothing 
%>
