<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Const.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
DBC.ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自动新闻采集</title>
</head>
<link href="inc/Collect.css" rel="stylesheet">
<body topmargin="0" leftmargin="0" ondragstart="return false;" onselectstart="return false;" oncontextmenu="return false;">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
  <tr> 
    <td colspan="2"><strong>风讯内容采集系统V1.0</strong></td>
  </tr>
	<%if JudgePopedomTF(Session("Name"),"P1401") then%>
  <tr> 
    <td width="4%"><div align="right"><img src="images/SiteSet.gif" width="23" height="22"></div></td>
    <td width="96%"style="CURSOR:default;"><span onClick="ClickMenu(this);parent.frames['Main'].location='Site.asp'">站点设置</span></td>
  </tr>
	<%end if%>
	<%if JudgePopedomTF(Session("Name"),"P1402") then%>
  <tr> 
    <td><div align="right"><img src="images/Replace.gif" width="23" height="22"></div></td>
    <td style="CURSOR:default"><span onClick="ClickMenu(this);parent.frames['Main'].location='Rule.asp'">关键字过滤</span></td>
  </tr>
	<%end if%>
	<%if JudgePopedomTF(Session("Name"),"P1403") then%>
  <tr> 
    <td><div align="right"><img src="images/Check.gif" width="23" height="22"></div></td>
    <td style="CURSOR:default"><span onClick="ClickMenu(this);parent.frames['Main'].location='Check.asp'">审核数据</span></td>
  </tr>
	<%end if%>
	<%if JudgePopedomTF(Session("Name"),"P1404") then%>
  <tr> 
    <td><div align="right"><img src="images/Check.gif" width="23" height="22"></div></td>
    <td style="CURSOR:default"><span onClick="ClickMenu(this);parent.frames['Main'].location='NewsOfHistory.asp'">历史数据</span></td>
  </tr>
	<%end if%>
	<%if JudgePopedomTF(Session("Name"),"P1405") then%>
  <tr> 
    <td><div align="right"><img src="images/Check.gif" width="23" height="22"></div></td>
    <td style="CURSOR:default"><span onClick="ClickMenu(this);parent.frames['Main'].location='UpDateManage.asp'">数据规则</span></td>
  </tr>
	<%end if%>
	<%if JudgePopedomTF(Session("Name"),"P1406") then%>
  <tr> 
    <td><div align="right"><img src="images/Check.gif" width="23" height="22"></div></td>
    <td style="CURSOR:default"><span onClick="ClickMenu(this);parent.frames['Main'].location='MoveDataManage.asp'">数据转移</span></td>
  </tr>
	<%end if%>
</table>
</body>
</html>
<%
Set Conn = Nothing
%>
<script language="JavaScript">
function ClickMenu(Obj)
{
	for (var i=0;i<document.all.length;i++)
	{
		if (document.all(i).style.backgroundColor=='highlight')
		{
			document.all(i).style.backgroundColor='';
			document.all(i).style.color='black';
		}
	}
	Obj.style.backgroundColor='highlight';
	Obj.style.color='white';
}
</script>