<!--#include file="../../Include/Class_Conn.asp" -->
<!--#include file="../../Include/Class_Main.asp" -->
<% 
Dim Param
Dim Schid,Username,Cmd,Rs,SQL
Param     = Replace_Text(Request.QueryString("Param"))
'//获取会员登陆的标记
Schid     = Param
Set Rs = Conn.Execute("Select SchoolName From [pH_Educate_Base] Where Schid='"&Schid&"'")
If Rs.eof Then
 Response.write "没有找到会员资料！"
 Response.End()
Else
 SchoolName = Rs("SchoolName")
End if
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><%= SchoolName&" -- 培训课程"%></title>
</head>
<body>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
      <!--#include file="../../Header/Info/Educate.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">
        <tr valign="top"> 
          <td width="195"> <table width="185" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="31" height="33"><img src="../../Images/mid_left_educate.gif" width="31" height="33"></td>
                            <td valign="top" background="../../Images/mid_bg.gif" style="padding-top:5px;"><strong><font color="#333333">培训机构</font></strong></td>
                            <td width="30"><img src="../../Images/mid_right.gif" width="30" height="33"></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td height="45" align="center"><a href="Index.asp?Param=<%= Schid %>"><img src="../../Images/Educate/left_1.gif" width="149" height="44" border="0"></a></td>
                    </tr>
                    <tr> 
                      <td height="45" align="center"><a href="Lessons.asp?Param=<%= Schid %>"><img src="../../Images/Educate/left_2.gif" width="149" height="44" border="0"></a></td>
                    </tr>
                    <tr> 
                      <td height="45" align="center"><a href="Teachers.asp?Param=<%= Schid %>"><img src="../../Images/Educate/left_3.gif" width="149" height="44" border="0"></a></td>
                    </tr>
                    <tr>
                      <td height="45" align="center"><a href="GuestBook.asp?Param=<%= Schid %>"><img src="../../Images/Educate/left_4.gif" width="149" height="44" border="0"></a></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            
          </td>
          <td width="1" bgcolor="#cfd0cf"></td>
          <td width="10"></td>
          <td width="554" align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="25" align="center"><img src="../../Images/educate/arrow1.gif" width="13" height="9"></td>
                      <td height="25" class="font-14"><b><%= SchoolName %></b></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td height="10" background="../../Images/Company/bg.gif"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#006C72" height="2"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="f5f5f5">
              <% 
SQL = "Select Ncid,Schid,PhotoUrl,Name,Properity,Content,ClientMemo From [pH_Educate_Teacher] Where Schid='"&Schid&"' And Flag=1 Order By Ncid Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open SQL,Conn,1,1
Rs.Pagesize = 8
Psize       = Rs.PageSize
PCount      = Rs.PageCount
RCount      = Rs.RecordCount

PageNo = Cint(Request.QueryString("PageNo"))
If PageNo < 1 Then
 PageNo = 1
Elseif PageNo > PCount Then
 PageNo = PCount
End if
If Not Rs.Eof Then Rs.AbsolutePage = PageNo

For i = 1 to Psize
 If Rs.Eof Then Exit For
 Ncid = Rs("Ncid")
 PhotoUrl = Rs("PhotoUrl")
 Name = Rs("Name")
 Properity = Rs("Properity")
 Content = Left(Rs("Content"),200)&"..."
 ClientMemo = Rs("ClientMemo")
 BookImage = "DefaultFile/book.gif"
 If PhotoUrl <> "" Then BookImage = "TeacherFile/"&PhotoUrl
  
 %>
		
              <tr bgcolor="#FFFFFF"> 
                <td width="100%"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="100"><a href="Teacher.asp?Param=<%= Ncid %>" target="_blank"><img src="../../UpLoadFiles/<%= BookImage %>" width="75" height="100" border="0"></a></td>
                      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td height="25">姓名：<a href="Teacher.asp?Param=<%= Ncid %>" target="_blank"><%= Name %></a></td>
                          </tr>
                          <tr> 
                            <td height="25">培训领域：<%= Properity %></td>
                          </tr>
                          <tr> 
                            <td height="25">讲师介绍：<%= Content %></td>
                          </tr>
                          <tr> 
                            <td height="25">典型客户：<%= ClientMemo %></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            <% 
  Rs.Movenext
 Next

 %>
            </table>


            <table width="100%" border="0" cellspacing="0" cellpadding="4">
              <tr> 
                <td width="50%" height="25">共<Font color="#FF0000"><%= RCount %></Font>条 
                  分<Font color="#FF0000"><%= PCount %></Font>页 | 当前第<Font color="#FF0000"><%= PageNo %></Font>页</td>
                <td width="50%" align="right"> 
                  <% 
		  If PageNo > 1 Then
		   Response.write "<a href=""?PageNo=1&Param="&Schid&""">首页</a>&nbsp;"
		   Response.write "<a href=""?PageNo="&PageNo-1&"&Param="&Schid&""">上页</a>&nbsp;"    
		  Else
		   Response.write "首页&nbsp;"
		   Response.write "上页&nbsp;" 
		  End if
		 
		  If PageNo < PCount Then
		   Response.write "<a href=""?PageNo="&PageNo+1&"&Param="&Schid&""">下页</a>&nbsp;"
		   Response.write "<a href=""?PageNo="&PCount&"&Param="&Schid&""">尾页</a>"   
		  Else
		   Response.write "下页&nbsp;"
		   Response.write "尾页" 
		  End if
		   %>
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      </td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td>
      <!--#include file="../../Include/Info/Footer.asp" -->
    </td>
  </tr>
</table>
</body>
</html>
<% 

'//关闭数据库连接
Set Rs = Nothing
CloseDB
 %>
