<!--#include file="../../Include/Class_Conn.asp" -->
<!--#include file="../../Include/Class_Main.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 Param
Dim Schid,Username,Cmd,Rs,SQL
Param     = Replace_Text(Request.QueryString("Param"))
'//获取会员登陆的标记
Schid     = Param
'//调用存储过程
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandText = "Sch_Account"
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() '//将数据填充到数组
'//0院校名,1院校性质
'//关闭数据库对象
Rs.Close
Set Cmd = Nothing


SchoolName              = Tmp(0,0)
Properity               = Tmp(1,0)
SchoolType = Cls_SchoolType(Properity)

'//查找院校毕业生表
SQL = "Select Ncid,Perid,AddDate From [pH_School_Student] Where Schid='"&Schid&"' Order By AddDate Desc"
Rs.open SQL,Conn,1,1
Rs.Pagesize = 15
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
TheRecord = (PageNo-1)*Psize '//计算记录编号的基数
If Not Rs.Eof Then Rs.AbsolutePage = PageNo

%>

<!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="../../c_Header/Info/School.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="100%" border="0" cellspacing="0" cellpadding="4">
              <tr> 
                <td align="center"><img src="../../Images/Company/welcome.gif" width="149" height="43"></td>
              </tr>
            </table>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="185" 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.gif" width="31" height="33"></td>
                      <td background="../../Images/mid_bg.gif"><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 align="center"> <table width="90%" border="0" cellspacing="0" cellpadding="0">
                    <% 
SQL = "Select Top 6 S.Perid,I.RealName,I.Speciality From pH_School_Student As S,pH_Person_Info As I Where S.Schid='"&Schid&"' And  S.Perid=I.Perid Order By AddDate Desc"
Set Rs1 = Conn.Execute(SQL)
If Not Rs1.Eof Then
 While Not Rs1.Eof
  Perid       = Rs1(0)
  RealName    = Rs1(1)
  Speciality     = Rs1(2)
  Response.write "<tr><td height=25><li><a href=""../../c_Person/Resume/Resume_2.asp?Param="&Perid&""" target=_blank>"&RealName&"</a> "&Speciality&"</td></tr>"
  Rs1.Movenext
 Wend 
End if
Rs1.Close
 %>
                    <tr> 
                      <td height="10"></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/ar.gif" width="7" height="7"></td>
                      <td height="30" class="font-14"><b><%= Tmp(0,0) %></b></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td height="21">&nbsp;</td>
                      <td width="21" rowspan="2"><img src="../../Images/Company/yleft.gif" width="21" height="22"></td>
                      <td width="78" rowspan="2" align="center" valign="bottom" background="../../Images/Company/company_ybg.gif"><a href="Index.asp?Param=<%= Schid %>">院校简介</a></td>
                      <td width="28" rowspan="2"><img src="../../Images/Company/middle.gif" width="28" height="22"></td>
                      <td width="80" rowspan="2" align="center" valign="bottom" background="../../Images/Company/company_wbg.gif"><strong>推荐毕业生</strong></td>
                      <td width="24" rowspan="2"><img src="../../Images/Company/person_wright.gif" width="24" height="22"></td>
                      <td width="30">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td height=1 bgcolor=#ddddda></td>
                      <td height=1 bgcolor=#ddddda></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td height="10"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center" bgcolor="#FFFFFF"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="6"></td>
                    </tr>
                  </table>
                  <table width="99%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
                    <tr> 
                      <td bgcolor="#FFFFFF"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="2"></td>
                          </tr>
                        </table>
                        <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#dddddd">
                          <tr align="center" bgcolor="f5f5f5"> 
                            <td width="15%" height="25">姓 名</td>
                            <td width="24%" bgcolor="f5f5f5">性别-年龄-学历</td>
                            <td width="31%" height="25" bgcolor="f5f5f5">所学专业</td>
                            <td width="30%" height="25">求职意向</td>
                          </tr>
                          <% 
For i = 1 to Psize
 If Rs.Eof Then Exit For
 Ncid        = Rs("Ncid")
 Perid       = Rs("Perid")
 AddDate     = FormatDateTime(Rs("AddDate"),2)
 RealName    = ""
 Sex         = ""
 Age         = ""
 Edus        = ""
 LastSchool  = ""
 WorkWill1   = ""
 SQL = "Select RealName,Sex,Age,Edus,Speciality,WorkWill1 From [pH_Person_Info] Where Perid='"&Perid&"'"
 Set Re = Conn.Execute(SQL)
 If Not Re.Eof Then
  RealName    = Re("RealName")
  Sex         = Re("Sex")
  Age         = Re("Age")
  Edus        = Re("Edus")
  Speciality  = Re("Speciality")
  WorkWill1   = Re("WorkWill1")
 End if
 Re.Close
 '获取性别
 Sex_Str = Cls_Sex(Sex)
 '获取学历
 Edus_Str = Cls_Edus(Edus)
%>
                          <tr align="center"> 
                            <td height="25" bgcolor="#FFFFFF"> <a href="../../c_Person/Per_Resume.asp?Param=<%= Perid %>" target="_blank"><%= RealName %></a> 
                            </td>
                            <td height="25" align="center" valign="baseline" bgcolor="#FFFFFF"> 
                              <%= Sex_Str&"-"&Age&"-"&Edus_Str %> </td>
                            <td height="25" align="left" bgcolor="#FFFFFF"><%= Speciality %></td>
                            <td height="25" align="left" bgcolor="#FFFFFF"><%= WorkWill1 %></td>
                          </tr>
                          <% 
 Rs.Movenext
Next
Rs.Close
 %>
                        </table>
                        <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td align="right"><%= Cls_Page2("Student.asp?param="&Schid,PageNo,PCount,RCount) %></td>
                          </tr>
                        </table>
                        <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="2"></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table> </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="../../c_Include/Info/Footer.asp" -->
    </td>
  </tr>
</table>
</body>
</html>
<% 

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