<!--#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


  	dim cmdTemp
  	Set cmdTemp = Server.CreateObject("ADODB.Command")
  	set rs = server.CreateObject ("adodb.recordset")
    SQL = "Select * From [pH_Video_Type] Where Cityid="&c_City&" Order By Ncid Desc"
  	cmdTemp.CommandText = sql
  	cmdTemp.CommandType = 1
  	Set cmdTemp.ActiveConnection = conn   
  	rs.Open cmdTemp, , 1, 1
  	set cmdTemp=nothing
  rs.Pagesize=20
  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><%= 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>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
<table width="950" border="0" align="center" cellpadding="4" cellspacing="1">
        <tr align="center" bgcolor="#B15696"> 
          <td width="47%" height="25"><font color="#FFFFFF"><strong>视频招聘会</strong></font></td>
          <td width="11%" height="25"><font color="#FFFFFF"><strong>企业数目</strong></font></td>
          <td width="22%" height="25"><font color="#FFFFFF"><strong>开始时间</strong></font></td>
          <td width="20%"><font color="#FFFFFF"><strong>结束时间</strong></font></td>
        </tr>
        <% 


For i=1 to PageSize
 If Rs.Eof Then Exit For
 Title = Rs("Title")
 Coms = Rs("Coms") 
 BeginTime = Rs("BeginTime") 
 EndTime = Rs("EndTime")
 %>
        <tr <% if i mod 2 = 0 Then %>bgcolor="#f1f1f1"<% End if %>> 
          <td height="25" align="left"><a href="Video_Meet_List.asp?Param=<%= Rs("Ncid") %>" target="_blank"><%= Title %></a></td>
          <td height="23" align="center"><%= Coms %></td>
          <td height="23"><%= BeginTime %></td>
          <td height="23"><%= EndTime %></td>
        </tr>
        <% 
 Rs.Movenext
Next

 %>
      </table>
<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" class="a4">首页</a> 
      <% else %>
      <font color=#666666>首页</font> 
      <% end if
				if page>1 then
				 %>
      <a href="?page=<%= page-1 %>" class="a4">前页</a> 
      <% else %>
      <font color=#666666>前页</font> 
      <% end if
				 %>
      <%
				if page<rs.pagecount then
				 %>
      <a href="?page=<%= page+1 %>" class="a4">后页</a> 
      <% else %>
      <font color=#666666>后页</font> 
      <% end if 
				if page<rs.pagecount then
				%>
      <a href="?page=<%= rs.pagecount %>" class="a4">尾页</a> 
      <% else %>
      <font color=#666666>尾页</font> 
      <% end if %>
      &nbsp;</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
%>
