<!--#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 rs,sql,Pagesize,Allrecord,Allpage,Page,id,rs1,sql1,zt,degree,dysp,thepage

Ncid  = SafeRequest("Param")
SQL = "Select * From [pH_Video_Type] Where Ncid="&Ncid
Set Re = Conn.Execute(SQL)
Title = Re("Title")
BeginTime = Re("BeginTime") 
EndTime = Re("EndTime")
Re.Close

  	dim cmdTemp
  	Set cmdTemp = Server.CreateObject("ADODB.Command")
  	set rs = server.CreateObject ("adodb.recordset")
    SQL = "Select R.RoomID,R.RoomName,R.RoomRenName,R.BeginTime,R.MemberNum,R.MaxMemberNum,C.CompanyName,C.Comid From RoomTable as R,pH_Company_Base As C Where R.Type=1 And R.Typeid="&Ncid&" And R.RoomRenName=C.Username Order By R.RoomId Desc"
  	cmdTemp.CommandText = sql
  	cmdTemp.CommandType = 1
  	Set cmdTemp.ActiveConnection = conn   
  	rs.Open cmdTemp, , 1, 1
  	set cmdTemp=nothing
  rs.Pagesize=30
  Pagesize=rs.Pagesize
  Allrecord=rs.Recordcount
  Allpage=rs.Pagecount
  
  page=cint(request.QueryString("page"))
  if page<1 then
   page=1
  elseif page>allpage then
   page=allpage
  end if
  thepage=(page-1)*pagesize
  if not rs.eof then rs.absolutepage=page


 %>
<!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><%= Title %> -- <%= Cls_WebName&" | "&c_Name&"站" %></title>
</head>

<body>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td><!--#include file="../c_Header/Video_Meet.asp" --></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td height="10"></td>
  </tr>
  <tr> 
    <td height="40" align="center" class="font-14"><b><%= Title %></b></td>
  </tr>
  <tr>
    <td height="25" align="center">时间：<u><%= BeginTime&" - "&EndTime %></u> 地点：<%= Cls_WebName %></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td> 
      <table width="950" height="46" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class="text01" >
        <tr align="center"> 
          <td width="39" height="30" bgcolor="eeeeee" > <p style="LETTER-SPACING: 2px; LINE-HEIGHT: 17px"> 
              <font style="FONT-SIZE: 9pt; ">编号</font></td>
          <td width="150" height="30" bgcolor="eeeeee" > <p style="LINE-HEIGHT: 17px">招聘单位名称</td>
          <td width="152" height="30" bgcolor="eeeeee" > <p style="LINE-HEIGHT: 17px">视频房间名称</td>
          <td width="159" height="30" bgcolor="eeeeee" > <p align="center">招聘职位列表<font style="FONT-SIZE: 12px"> 
              <span style="font-family: 宋体; "> </span></font></td>
          <td width="117" height="30" bgcolor="eeeeee" > <p style="LINE-HEIGHT: 17px" align="center">面试开始时间<font style="FONT-SIZE: 12px">&nbsp;</font></td>
          <td width="70" height="30" bgcolor="eeeeee" > <p align="center">房间人数 
            </td>
          <td width="57" height="30" bgcolor="eeeeee" >面 试 </td>
        </tr>
        <% 
For i=1 to PageSize
 If Rs.Eof Then Exit For
 Id = Rs("RoomId")
 RoomName = Rs("RoomName")
 RoomRenName = Rs("RoomRenName")
 BeginTime = Rs("BeginTime")
 MemberNum = Rs("MemberNum")
 MaxMemberNum = Rs("MaxMemberNum")
 CompanyName = Rs("CompanyName")
 Comid = Rs("Comid")
 If MemberNum <= MaxMemberNum Then
   Str = "<a href=LoginVideo.asp?RoomId="&Id&" target=_blank>进入</a>"
 Else
   Str = "满员"
 End if
 %>
        
        <Form action="" method="post">
          <tr bgcolor="#FFFFFF" > 
            <td width="39" height="25" align="center" bordercolor="#E0E0E0"><font color="#384249"><%= thepage+i%></font></td>
                  <td width="150" height="25" align="left" bordercolor="#E0E0E0"><a href="../Company/Info/Com_View.asp?Param=<%= Comid %>" target="_blank"><%= CompanyName %></a></td>
            <td width="152" height="25" align="left" bordercolor="#E0E0E0" ><%= RoomName %></td>
            <td width="159" height="25" align="center" bordercolor="#E0E0E0" > 
              <select name="<%= "job"&Id %>" style="Width=140px;">
                <% 
	    Set Re = Conn.Execute("Select JobName From [pH_Job_Base] Where Comid='"&Comid&"'")
		While Not Re.Eof
		 Response.write "<option>"&Re(0)&"</option>"
		 Re.Movenext
	    Wend
		Re.Close
	    %>
                
              </select> </td>
            <td height="25" align="left" bordercolor="#E0E0E0" ><%= BeginTime %></td>
            <td width="70" height="25" align="center" bordercolor="#E0E0E0" ><%= MemberNum&"/"&MaxMemberNum %></td>
            <td width="57" height="25" align="center" bordercolor="#E0E0E0"><%= Str %></td>
          </tr>
        </Form>
        <% 
  Rs.Movenext
 Next 

 %>
        <tr bgcolor="#FFFFFF"> 
          <td height="10" colspan="7" align="center" valign="bottom"><table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" class="text01">
              <tr> 
                <td width="30%" height="25">&nbsp;总数：<%=AllRecord%>条,共 <%=Allpage%> 
                  页</td>
                <td align="right" > 
                  <% if page>1 then %>
                  <a href="?page=1&Param=<%= Ncid %>" class="a4">首页</a> 
                  <% else %>
                  <font color=#666666>首页</font> 
                  <% end if
				if page>1 then
				 %>
                  <a href="?page=<%= page-1 %>&Param=<%= Ncid %>" class="a4">前页</a> 
                  <% else %>
                  <font color=#666666>前页</font> 
                  <% end if
				 %>
                  <%
				if page<rs.pagecount then
				 %>
                  <a href="?page=<%= page+1 %>&Param=<%= Ncid %>" class="a4">后页</a> 
                  <% else %>
                  <font color=#666666>后页</font> 
                  <% end if 
				if page<rs.pagecount then
				%>
                  <a href="?page=<%= rs.pagecount %>&Param=<%= Ncid %>" class="a4">尾页</a> 
                  <% else %>
                  <font color=#666666>尾页</font> 
                  <% end if %>
                  &nbsp;</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/Footer.asp" --></td>
  </tr>
</table>
</body>
</html>
<%
 Rs.close
 Set rs=nothing
set cmdTemp=nothing
call closedb
%>
