<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="../Public/Intro_Cookies.asp" -->
<% 
Dim Corid,Username,Tmp,Temp(3)
Dim Cmd,Rs,Action

Action = Request.QueryString("action")
If Action = "del" Then Call Del_Submit()

'//获取会员登陆的标记
If Not IsArray(Session("Intro")) Then 
 Response.write "<script>alert('-登录后才能进行该操作！-');location.href='../Public/MemberLogin.asp';</script>"
Else
 Username  = Session("Intro")(0)
 Corid     = Session("Intro")(2)
End if

'//调用存储过程
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandText = "Inr_Account"
Cmd.CommandType = 4
Cmd.Parameters.Append Cmd.CreateParameter("@Corid",200,1,30)
Cmd.Parameters("@Corid") = Corid
Set Rs = Cmd.Execute
If Rs.Eof Then
 CloseRs
 Set Cmd = Nothing
 CloseDB
 Response.write "没有找到会员资料！"
 Response.End()
End if
Tmp = Rs.GetRows() '//将数据填充到数组
CloseRs
Set Cmd = Nothing
'//功能代码
CorpName              = Tmp(0,0)


'//企业列表

Set Rs = Server.Createobject("ADODB.Recordset")
SQL = "Select DistInct PublishName From [pH_Job_Base] Where UserType='Inr' And Comid='"&Corid&"'"
Rs.open SQL,Conn,1,1

Set Comm    = Nothing '//关闭Command对象

Rs.Pagesize = 10
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><%= 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/Intro_User.asp" -->
      <table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr> 
          <td height="4"></td>
        </tr>
        <tr> 
          <td height="1" bgcolor="#eeeeee"></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/Intro_All.asp" --></td>
          <td width="5">&nbsp;</td>
          <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="25"><img src="../Images/icon.gif" width="11" height="11" align="absmiddle"> 
                  尊敬的<%= Cls_WebName %>用户：<font color=#ff0000><%= CorpName %></font>，欢迎您进入中介管理中心</td>
              </tr>
            </table>
            
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <form name="form" method="post">
                <tr> 
                  <td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
                      <tr> 
                        <td bgcolor="#FFFFFF"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td height="2"></td>
                            </tr>
                          </table>
                          <table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
                            <tr> 
                              <td height="25" bgcolor="f5f5f5"><b><font color="#000000">&nbsp;招聘单位</font></b></td>
                            </tr>
                          </table>
                          <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td><%= Cls_Page("Cor_Company.asp",PageNo,PCount,RCount) %></td>
                            </tr>
                          </table>
                          <table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="eeeeee">
                            <tr align="center" bgcolor="f5f5f5"> 
                              <td width="8%" height="23">编号</td>
                              <td height="23" bgcolor="f5f5f5">招聘单位名称</td>
                              <td width="18%" height="23" bgcolor="f5f5f5">开始日期</td>
                              <td width="13%" height="23" bgcolor="f5f5f5">操 作</td>
                            </tr>
                            <% 
For i = 1 to Psize
 If Rs.Eof Then Exit For

 PublishName 		 = Rs("PublishName")
 Set Re = Conn.Execute("Select Top 1 LastUpdate_Time From [pH_Job_Base] Where PublishName='"&PublishName&"' Order by LastUpdate_Time Asc")
 LastUpdate_Time     = FormatDateTime(Re("LastUpdate_Time"),2)
 Re.Close				  
%>
                            <tr align="center"> 
                              <td height="23" bgcolor="#FFFFFF"><%= TheRecord+i %></td>
                              <td height="23" align="left" bgcolor="#FFFFFF"><a href="Cor_Company_Job.asp?Param=<%= PublishName %>"><u><%= PublishName %></u></a></td>
                              <td height="23" bgcolor="#FFFFFF"><%= LastUpdate_Time %></td>
                              <td height="23" bgcolor="#FFFFFF"><a href="?action=del&Param=<%= PublishName %>" onClick="return confirm('确认删除？');">删除</a></td>
                            </tr>
                            <% 
 Rs.Movenext
Next
Rs.Close
 %>
                          </table>
                          <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td height="2"></td>
                            </tr>
                          </table></td>
                      </tr>
                    </table></td>
                </tr>
              </form>
            </table>
            
          </td>
        </tr>
      </table> 
      <table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="1" bgcolor="#eeeeee"></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>
<% 
Sub Del_Submit()
 Corid             = Session("Intro")(2)
 Param			   = Replace_Text(Request.QueryString("Param"))
 Conn.Execute("Delete From [pH_Job_Base] Where Usertype='Inr' And Comid='"&Corid&"' And PublishName='"&Param&"'")
 Response.Redirect("Cor_Company.asp")
End Sub

'//关闭数据库连接
CloseDB

 %>
