📄 home.asp

📁 适用于网络/信息企业
💻 ASP
字号:
<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿博尔</title>
</head>
<link href="Images/Admin.css" rel="stylesheet" type="text/css">
<body>
<table width="100%" height="100%" border="0" align="center" cellpadding="10" cellspacing="0">
  <tr>
    <td valign="top">
<table width="100%" border="0" cellpadding="5" cellspacing="2" bgcolor="#F6F6F6">
        <tr> 
          <td width="50%" height="25" bgcolor="#DBDBDB"><font size="3"><img src="Images/1.gif" width="13" height="12"> 
            内部通知</font></td>
          <td width="50%" height="25" bgcolor="#DBDBDB"><font size="3"><img src="Images/1.gif" width="13" height="12"> 
            规章制度</font></td>
        </tr>
        <tr valign="top"> 
          <td height="200"> <font size="2"> 
            <%
Set Rs = Conn.Execute("SELECT top 10 * from News where Class = '001001' order by ID desc")
While Not Rs.eof

Response.Write("·<a href=javascript:News_Content('"&Rs("ID")&"') class=home>"&rs("Title")&"</a><br>")

Rs.MoveNext

Wend

Rs.Close
Set Rs =nothing
%>
            </font></td>
          <td height="200"> <font size="2"> 
            <%
Set Rs = Conn.Execute("SELECT top 10 * from News where Class = '001002' order by DateTime desc")
While Not Rs.eof

Response.Write("·<a href=javascript:News_Content('"&Rs("ID")&"') class=home>"&rs("Title")&"</a><br>")

Rs.MoveNext
Wend

Rs.Close
Set Rs =nothing
%>
            </font></td>
        </tr>
        <tr align="right" valign="top"> 
          <td><a href="Info_Inform.asp" class="home">更多&gt;&gt;&gt;</a></td>
          <td><a href="Info_Bylaw.asp" class="home">更多&gt;&gt;&gt;</a></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="5" cellspacing="2" bgcolor="#F6F6F6">
        <tr> 
          <td width="50%" height="25" bgcolor="#DBDBDB"><font size="3"><img src="Images/1.gif" width="13" height="12"> 
            今天的联系任务</font></td>
          <td width="50%" height="25" bgcolor="#DBDBDB"><font size="3"><img src="Images/1.gif" width="13" height="12"> 
            30天内到期的业务</font></td>
        </tr>
        <tr valign="top"> 
          <td height="200"> <font size="2"> 
            <%
Set Rs = Conn.Execute("select top 10 Link_Task.*,Link_Task.Buyer_ID,Link_Task.ID As Task_ID,Buyer_Info.*,Buyer_Info.Buyer_ID from Link_Task,Buyer_Info where (Link_Task.Buyer_ID = Buyer_Info.Buyer_ID) and Link_Task_Time = '"& cdate(Year(Now()) &"-"& Month(Now())&"-"&Day(Now())) &"' AND Employee_ID = '"& Session("Eboer_CRM_Employee_ID") &"' Order By Link_Task_Name")

While Not Rs.eof

Response.Write("·<a href=javascript:Link_Task_See('"&Rs("Link_Task_ID")&"') class=home>"&rs("Link_Task_Name")&"</a><br>")

Rs.MoveNext

Wend

Rs.Close
Set Rs =nothing
%>
            </font></td>
          <td height="200"> <font size="2"> 
            <%
Set Rs = Conn.Execute("select top 10 Operation.*,Operation.Buyer_ID,Buyer_Info.*,Buyer_Info.Buyer_ID from Operation,Buyer_Info where (Operation.Buyer_ID = Buyer_Info.Buyer_ID) and End_Time < '"& DateAdd("m",1,date) &"' and Employee_ID = '"& Session("Eboer_CRM_Employee_ID") &"' Order By End_Time")
While Not Rs.eof

Response.Write("·<a href=javascript:Operation_See('"&Rs("Pact_ID")&"') class=home>"&rs("Pact_Name")&"</a>("& Rs("End_Time") &")<br>")

Rs.MoveNext
Wend

Rs.Close
Set Rs =nothing
%>
            </font></td>
        </tr>
        <tr align="right" valign="top"> 
          <td><a href="My_Link_Task.asp?Link_Task_Time=ToDay" class="home">更多&gt;&gt;&gt;</a></td>
          <td><a href="Info_Bylaw.asp" class="home">更多&gt;&gt;&gt;</a></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<script language="javascript">
<!--
    function News_Content(id){
        window.open("News_Content.asp?id="+id+"","","width=550,height=500,scrollbars=yes");
    }
    function Link_Task_See(id){
        window.open("Link_Task_See.asp?id="+id+"","","width=500,height=310,scrollbars=yes");
    }
    function Operation_See(id){
        window.open("Operation_See.asp?id="+id+"","","width=500,height=420,scrollbars=yes");
    }
	
//-->
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -