<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="../c_Public/Intro_Cookies.asp" -->
<% 
'地区分站参数
Dim c_City,c_Name
If Session("c_City") = "" Then 
 Response.Redirect "../Index.asp"
 Response.End()
End if
c_City = Session("c_City")
c_Name = Session("c_Name")

Dim Corid,Username,Tmp
Dim Cmd,Rs,Action

'//获取会员登陆的标记
Username  = Session("Intro")(0)
Corid     = Session("Intro")(2)
'//调用存储过程
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandText = "Inr_UserCenter"
Cmd.CommandType = 4
Cmd.Parameters.Append Cmd.CreateParameter("@Corid",200,1,30)
Cmd.Parameters("@Corid") = Corid
Set Rs = Cmd.Execute
If Rs.Eof Then
 CloseRs
 Set Cmd = Nothing
 CloseDB
 Response.write "没有找到会员资料！"
 Response.End()
End if

Tmp = Rs.GetRows() '//将数据填充到数组
'CorpName,RegDate,Lastip,LastDate,LoginCount,Flag,ViewClicks

CloseRs
Set Cmd = Nothing

'//功能代码
CorpName                = Tmp(0,0)
RegDate                 = Tmp(1,0)
Lastip					= Tmp(2,0)
LastDate				= Tmp(3,0)
LoginCount				= Tmp(4,0)
Flag					= Tmp(5,0)
ViewClicks				= Tmp(6,0)
RegDate					= Tmp(7,0)
Vip_Flag				= Tmp(8,0)
Vip_Date				= Tmp(9,0)
Vip_EndDate				= Tmp(10,0)

'获取会员的类别
Level_Str = ""
If Flag = True Then '已经通过审核
 If Vip_Flag = True Then '是高级会员
  If DateDiff("d",Vip_Date,Date()) >= 0 And DateDiff("d",Vip_EndDate,Date()) <= 0 Then
   Level_Str = "您是<font color=#ff0000>高级收费会员</font>["&FormatDateTime(Vip_Date,2)&" 至 "&FormatDateTime(Vip_EndDate,2)&"]"
  Else
   Level_Str = "您是<font color=#ff0000>过期收费会员</font>[过期时间："&FormatDateTime(Vip_EndDate,2)&"]"
  End if
 Else '免费会员
   Level_Str = "您是<font color=#ff0000>免费会员</font>,部分功能受到限制"
 End if
Else
   Level_Str = "您是<font color=#ff0000>未审核会员</font>,请提交真实资料以便及时通过网站审核"
End if

'职位数
Job1 = 0
Comment1 = 0
'职位数
Set Rs = Conn.Execute("Select Count(*) From [pH_Intro_Job] Where Corid='"&Corid&"'")
If Not Rs.Eof Then Job1 = Rs(0)
Rs.Close
'留言数
Set Rs = Conn.Execute("Select Count(*) From [pH_Intro_GuestBook] Where Corid='"&Corid&"'")
If Not Rs.Eof Then Comment1 = Rs(0)
Rs.Close

 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Css/Style.css" type=text/css rel=stylesheet>
<title><%= Cls_WebName&" | "&c_Name&"站" %> -- 中介用户管理中心</title>
</head>
<body>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" bgcolor="#FFFFFF">
      <!--#include file="../c_Header/Intro_User.asp" -->
      <table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td height="4"></td>
        </tr>
        <tr> 
          <td height="1" bgcolor="#eeeeee"></td>
        </tr>
      </table>
      <table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td width="175" valign="top"><!--#include file="../Lefter/Intro_All.asp" --></td>
          <td width="5">&nbsp;</td>
          <td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
              <tr> 
                <td height="25" bgcolor="f5f5f5"><b><font color="#000000">&nbsp;帐号信息</font></b></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  尊敬的<%= Cls_WebName %>用户：<font color=#ff0000><%= CorpName %></font>，欢迎您进入中介管理中心</td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  帐号类别：<%= Level_Str %> ;</td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  注册时间：<u><%= RegDate %></u> , 登录次数： <u><%= LoginCount %></u> 次 ;</td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  如果您对<%= Cls_WebName %>有任何问题或者建议,请<a href="mailto:<%= Cls_Email %>" target="_blank">点击这里</a>发表您的看法 
                  .</td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
              <tr> 
                <td height="25" bgcolor="f5f5f5"><b><font color="#000000">&nbsp;职位信息</font></b></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  您的公司发布 <u><%= Job1 %></u> 条招聘职位, <a href="Cor_Job_Manage.asp"><u>点此查看</u></a> ;</td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  您的公司收到 <u><%= Comment1 %></u> 条客户留言, <a href="Cor_Comment_Manage.asp"><u>点此查看</u></a> ;</td>
              </tr>
            </table></td>
        </tr>
      </table> 
      <table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="1" bgcolor="#eeeeee"></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" bgcolor="#FFFFFF">
      <!--#include file="../c_Include/Footer.asp" -->
    </td>
  </tr>
</table>
</body>
</html>
<% 
'//关闭数据库连接
CloseDB
 %>
