<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="../Public/Educate_Cookies.asp" -->
<% 
Dim Schid,Username,Tmp
Dim Cmd,Rs,Action
Dim SchoolName,BannerFile
Action = Request.QueryString("action")
If Action <> "" Then 
 Select Case Action
   Case "dellogo"
   Call Del_Submit() '//跳转到删除的函数  
 End Select
End if

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

Tmp = Rs.GetRows() '//将数据填充到数组
'SchoolName,Properity,RegDate,Lastip,LastDate,LoginCount,VipFlag,VipDate,VipEndDate,ViewClicks,Flag,Lessons,Teachers

CloseRs
Set Cmd = Nothing

'//功能代码
SchoolName              = Tmp(0,0)
Properity               = Tmp(1,0)
RegDate                 = Tmp(2,0)
Lastip					= Tmp(3,0)
LastDate				= Tmp(4,0)
LoginCount				= Tmp(5,0)
VipFlag					= Tmp(6,0)
VipDate					= Tmp(7,0)
VipEndDate				= Tmp(8,0)
ViewClicks				= Tmp(9,0)
Flag					= Tmp(10,0)
Lessons					= Tmp(11,0)
Teachers				= Tmp(12,0)
'SchoolType = Cls_EducateType(Properity)

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

'//课程报名数
Actions = 0
Set Rs = Conn.Execute("Select Count(*) From [pH_Educate_Action] Where Schid='"&Schid&"'")
If Not Rs.Eof Then Actions = Rs(0)
Rs.Close
l_Guestbooks = 0
Set Rs = Conn.Execute("Select Count(*) From [pH_Educate_Lesson_GuestBook] Where Schid='"&Schid&"'")
If Not Rs.Eof Then l_Guestbooks = 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 %> -- 培训机构管理中心</title>
</head>
<body>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" bgcolor="#FFFFFF">
      <!--#include file="../Header/Educate_User.asp" -->
      <table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td height="4"></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/Educate_BasicInfo.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><%= SchoolName %></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><%= ViewClicks %></u> 次 ; </td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  上次登录时间：<u><%= LastDate %></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><%= Lessons %></u> 条培训课程信息 ;</td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  目前目前有 <u><%= Actions %></u> 条课程报名信息 ;有 <u><%= l_Guestbooks %></u> 条课程留言信息 ;</td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  <a href="Sch_Lesson_Manage.asp"><u>快速管理课程</u></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><%= Teachers %></u> 位培训讲师信息 ;</td>
              </tr>
              <tr> 
                <td height="25"><img src="../Images/icon2.gif" width="12" height="16"> 
                  <a href="Sch_Teacher_Manage.asp"><u>快速管理培训讲师</u></a>;</td>
              </tr>
            </table></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="../Include/Footer.asp" -->
    </td>
  </tr>
</table>
</body>
</html>
<% 
'//关闭数据库连接
CloseDB
 %>
