<%@ Page Language="VB" AutoEventWireup="false" ContentType="text/html" ResponseEncoding="gb2312" Inherits="b2bNet.Admin_Info_MakeHtml" Codebehind="Info_MakeHtml.aspx.vb" %>

<!--@@#include file="inc/Admin_fun.aspx"-->
<!--@@#include file="inc/Admin_conn.aspx"-->
<!-- 代码摘要：  Const PurviewLevel = "Info"  checklogin()'----... -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="inc/admin_style.css" rel="stylesheet" type="text/css" /><link href="inc/style.css" rel="stylesheet" type="text/css" />
<title><%=AppConst.SiteName%></title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<script language="javascript" type="Text/JavaScript">
function selectall(){
	for(i=0;i!=document.news.elements.length;i++){
		document.news.elements[i].checked=!document.news.elements[i].checked;
	}
}
function WorkSubmit(send){
    if (send==4){
        count = 0;
	    for(i=0;i!=document.news.elements.length;i++){
		    if (document.news.elements[i].checked) count ++;
	    }
	    if (count==0){
	        alert("您未选中任何记录！");
	        return false;
	    }
	}
	if(confirm("您确定要进行您现在的操作吗？")){
		news.action="Admin_MakeHtml.aspx?channel=info&action="+send+"";
		news.submit();
	}
}
</script><script language="javascript" src="inc/title.js" type="Text/JavaScript"></script>
</head>
<body>
<table style="width:100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td style="height:20"><table style="width:100%" border="0" cellpadding="0" cellspacing="1">
      <tr class="topbg">
        <td style="height:22" align="center" class="topbg"><strong>商 业 机 会 管 理</strong></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><table style="width:100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td style="width:25"><div align="center"><img src="<%=AppConst.SiteUrl%>/<%=AppConst.Skinpath%>/gojump01.gif" width="16" height="16" /></div></td>
        <td><a href="info_manage.aspx?I_type=1">供应</a> | <a href="info_manage.aspx?I_type=2">求购</a> | <a href="info_manage.aspx?I_type=3">合作</a> | <a href="info_manage.aspx?I_type=4">代理</a> | <a href="info_manage.aspx?I_type=5">库存</a> | <a href="info_manage.aspx?I_type=6">加工</a> </td>
        <td style="width:400"><table style="width:400"  border="0" align="right" cellpadding="2" cellspacing="0">
            <form name="form1" method="get">
              <tr>
                <td style="height:25" align="right">搜索关键字：</td>
                <td style="width:90" align="center">
                  <input name="keyword" type="text" id="keyword" size="10" style="width:80" /></td>
                <td><div align="center"> 类别：
                        <select name="I_type" id="I_type">
                          <option value="" selected="selected">请选择类别</option>
                          <option value="1">供应</option>
                          <option value="2">求购</option>
                          <option value="3">合作</option>
                          <option value="4">代理</option>
                          <option value="5">库存</option>
                          <option value="6">加工</option>
                        </select>
                </div></td>
                <td style="width:10%"><input type="submit" name="Submit" value="  搜索 " /></td>
              </tr>
            </form>
        </table></td>
      </tr>
    </table><br>
	<table style="width:100%" cellpadding="2" cellspacing="1" border="0" class="border" align="center">
  <tr align="center">
    <td style="height:22" class="Date_tdbg"><div align="center"><a href="info_manage.aspx">查看全部商机</a> | <a href="info_manage.aspx?i_unit=1">已审未过期商机</a> | <a href="info_manage.aspx?i_unit=0">待审未过期商机</a> | <a href="info_manage.aspx?i_unit=3">热点未过期商机</a> | <a href="info_manage.aspx?I_paixu=1">排序未过期商机</a> | <a href="info_manage.aspx?I_unit=2">推荐未过期商机</a><%if Not AppConst.InfoDQTime then%> |<a href="info_manage_last.aspx">已过期商机</a><%end if%></div>
    </tr>
</table><br>
      <table style="width:100%" border="0" cellspacing="0" cellpadding="0">
      <tr><form method="post" name="news">
        <td><table style="width:100%"  border="0" cellpadding="2" cellspacing="1" class="border">
          <tr class="Title">
            <td style="height:22; width:40" align="center"><strong>ID</strong></td>
            <td align="center"><strong>信息标题</strong></td>
            <td style="width:80" align="60"><div align="center"><strong>发布人</strong></div></td>
            <td style="width:60" align="100"><div align="center"><strong>价　格</strong></div></td>
            <td style="width:80" align="100"><div align="center"><strong>发布时间</strong></div></td>
            <td style="width:70" align="50"><div align="center"><strong>到期时间</strong></div></td>
            <td style="width:350" align="120"><div align="center"><strong>操 作</strong></div></td>
          </tr>
          <%  Dim pagei : For pagei = 1 To rs.pagesize : If rs.eof Then Exit For%>
          <tr class='tdbg' onmouseout="this.className='tdbg'" onmouseover="this.className='tdbgmouseover'">
            <td align="center"><%=rs("ID").Value%></td>
            <td><a href=?I_type=<%=rs("I_Type").Value%> title="查看全部<%=GetInfoTypeName(rs("I_Type").Value)%>商机"><font style="color:<%=GetInfoTypeColor(rs("I_Type").Value)%>">【<%=GetInfoTypeName(rs("I_Type").Value)%>】</font></a>
                <a href="<%=GetDetailUrl(rs("id").Value, "info")%>" title="查看前台生成商机页面" target="_blank"><%=rs("I_title").Value%></a>
                <%If NotNull(rs("I_Pic").Value) Then%><a href="../upload/info/<%=rs("I_Pic").Value%>" target="_blank">[图]</a><%end if%>
            </td>
            <td style="width:80"><div align="center">
                <a href="<%=GetCompanyUrl(rs("I_Userid").Value)%>"><%=rs("I_Userid").Value%></a>
            </div></td>
            <td style="width:60"><div align="center"><%if Not IsNull(rs("I_price").Value) then%><%=rs("I_price").Value%><%else%>无价格<%end if%></div></td>
            <td style="width:80"><div align="center"><%=formatdatetime(rs("I_FbTime").Value,2)%>
            </div></td>
            <td style="width:70" align="center"><%=formatdatetime(rs("I_JzTime").Value,2)%></td>
            <td style="width:350" align="center"><table style="width:100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr align="center">
                  <td><div align="right"><a href="Info_manage_edit.aspx?id=<%=rs("id").Value%>">修改</a>&nbsp;|
                  <%If IsNull(rs("I_unit").Value, 0) = 0 Then%>
                    <a href="Info_manage_update.aspx?id=<%=rs("id").Value%>&action=shenghe">审核</a><%else%>
                    <a href="Info_manage_update.aspx?id=<%=rs("id").Value%>&action=cshenghe"><font color="#ff3300">已审</font></a>
                  <%  End If
                      Response.Write("|&nbsp;" & CheckHtml())
                    If IsNull(rs("I_unit").Value, 0) <> 0 Then%>|&nbsp;<%if rs("I_unit").Value=2 then%><a href="Info_manage_update.aspx?id=<%=rs("id").Value%>&action=ctuijian"><font color="#ff3300">取消推荐</font></a>
                    <%else%><a href="Info_manage_update.aspx?id=<%=rs("id").Value%>&action=tuijian">设为推荐</a>
                    <%end if%>|<%if rs("I_unit").Value=3 then%>
                        <a href="Info_manage_update.aspx?id=<%=rs("id").Value%>&action=chot"><font color="#ff3300">取消热点</font></a>
                    <%else%>
                        <a href="Info_manage_update.aspx?id=<%=rs("id").Value%>&action=hot">设为热点</a>
                    <%end if%>|<%If Not IsNull(rs("i_paixu")) AndAlso rs("i_paixu").Value >= 10 AndAlso rs("i_paixu").Value <= 100 then%>
                        [第<%=Strings.Mid("十九八七六五四三二一", rs("i_paixu").Value / 10, 1)%>位]
                    <%ElseIf Not IsNull(rs("i_paixu")) AndAlso rs("i_paixu").Value = 5 Then%>
                        <a href="Info_manage_paixu_set.aspx?id=<%=rs("id").Value%>&page=<%=LngPage%>&i_unit=<%=I_unit%>">[待排位]</a>
                    <%Else%>
                        <a href="Info_manage_paixu_set.aspx?id=<%=rs("id").Value%>&page=<%=LngPage%>&i_unit=<%=I_unit%>">设为排序</a>
                    <%End If : End If%></div></td>
                  <td style="width:25"><input type="checkbox" name="id" value="<%=rs("id").Value%>" class="box1" /></td>
                </tr>
                
            </table></td>
          </tr>
          <%  rs.movenext() : Next%>
        </table>
          <table style="width:100%" border="0" cellspacing="2" cellpadding="2">
            <tr>
              <td><div align="right">
                  <input name="I_type" type="hidden" id="I_type" value="<%=I_type%>" />
                <input name="M_user" type="hidden" id="M_user" value="<%=Request.Form("M_user")%>" />
                <input name="keyword" type="hidden" id="keyword" value="<%=keyword%>" />
                <input name="page" type="hidden" id="page" value="<%=LngPage%>" />
                <input type="button" name="Submit22" value="反选" onclick="selectall()" />
                <input type="button" name="Submit3" value="生成首页" onclick="window.location='Admin_MakeHtml.aspx?url=Info/index.aspx&to=Info/index.html';" />
                <input type="button" name="Submit3" value="生成行业分类" onclick="WorkSubmit('11')" />
                <input type="button" name="Submit3" value="生成所有商机" onclick="WorkSubmit('3')" />
                <input type="button" name="Submit3" value="生成选定商机" onclick="WorkSubmit('4')" />
                <input type="button" name="Submit3" value="生成未生成商机" onclick="WorkSubmit('5')" />
              </div></td>
            </tr>
          </table></td>
      </form></tr>
    </table>
    </td>
  </tr>
</table>
<table style="width:100%"  border="0" cellspacing="0" cellpadding="4">
  <tr>
    <td style="height:22"><%=Pagination(rs)%></td>
  </tr>
</table>
<!--@@#include file="copyright.aspx"-->
</body><%Page_Loaded()%>
</html>
<!-- 代码摘要：   RS.close:set rs=nothing   '------------------... -->
