<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Const.asp" -->
<%
'==============================================================================
'软件名称：风讯新闻采集系统V1.0
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn,CollectConn
Set DBC = New DataBaseClass
Set CollectConn = DBC.OpenConnection()
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" -->
<%
if Not JudgePopedomTF(Session("Name"),"P1401") then Call ReturnError1()
'判断权限结束
Dim Rs
if Request("Action") = "Del" then
	CollectConn.Execute("delete from Site where ID=" & Request("id"))
	Response.Redirect("site.asp")
	Response.End
end if
if Request.Form("vs")="add" then
    if Request.Form("SiteName")="" Or Request.Form("SysTemplet")="" or Request.Form("SiteUrl")=""  or Request.Form("objURL")=""  or Request.Form("SiteClass")=""  or Request.Form("SysClass")=""  then
		Response.write"<script>alert(""请填写完整！"");location.href=""javascript:history.back()"";</script>"
		Response.end
	end if
    Dim Sql
	Set Rs = Server.CreateObject ("ADODB.RecordSet")
	Sql = "Select * from Site where 1=0"
	Rs.Open Sql,CollectConn,1,3
	Rs.AddNew
	Rs("SiteName") = Request.Form("SiteName")
	Rs("SysTemplet") = Request.Form("SysTemplet")
	Rs("SiteUrl") = Request.Form("SiteUrl")
	Rs("objURL") = Request.Form("objURL")
	Rs("SiteClass") = Request.Form("SiteClass")
	Rs("SysClass") = Request.Form("SysClass")
	if Request.Form("IsAuto")<>"" then
		Rs("IsAuto") = true
	else
		Rs("IsAuto") = false
	end if
	Rs.UpDate
	Rs.Close
	Set Rs = Nothing
	Set Conn = Nothing
	Set CollectConn = Nothing
	Response.Redirect("Site.asp")
	Response.end
elseif Request("vs")="Copy" then
	Dim SiteID,RsCopySourceObj,RsCopyObjectObj,FiledObj
	SiteID = Request("SiteID")
	if SiteID <> "" then
		Set RsCopySourceObj = CollectConn.Execute("Select * from Site where ID=" & SiteID)
		if Not RsCopySourceObj.Eof then
			Set RsCopyObjectObj = Server.CreateObject("ADODB.RecordSet")
			RsCopyObjectObj.Open "Select * from Site where 1=0",CollectConn,3,3
			RsCopyObjectObj.AddNew
			For Each FiledObj In RsCopyObjectObj.Fields
				if LCase(FiledObj.name) <> "id" then
					RsCopyObjectObj(FiledObj.name) = RsCopySourceObj(FiledObj.name)
				end if
			Next
		end if
		RsCopyObjectObj.Update
		Set RsCopySourceObj = Nothing
		Set RsCopyObjectObj = Nothing
	end if
	Set Conn = Nothing
	Set CollectConn = Nothing
	Response.Redirect("Site.asp")
	Response.end
end if

if Request("Action") = "Addsite" then
	Call Add()
else
	Call Main()
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自动新闻采集—站点设置</title>
</head>
<link href="Inc/Collect.css" rel="stylesheet">
<body leftmargin="0" topmargin="0">
<%
Sub Main()
	Dim RsSite,SiteSql,CheckInfo,StrPage,Select_Count,Select_PageCount,i
	StrPage = request.querystring("Page")
	if StrPage <= 1 or StrPage = "" then StrPage = 1
	Set RsSite = Server.CreateObject ("ADODB.RecordSet")
	SiteSql="Select * from Site order by id desc"
	RsSite.Open SiteSql,CollectConn,1,1
	if RsSite.eof then
		RsSite.close
		Set RsSite = Nothing
		CollectConn.Close
		Set CollectConn = Nothing
		Response.Write"没有新闻采集站点,请<a href=?Action=Addsite>添加</a>。"
		Response.End
	end if
	RsSite.PageSize = 12
	RsSite.AbsolutePage = Cint(StrPage)
	Select_Count = RsSite.recordcount
	Select_PageCount = RsSite.PageCount
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td width="9%" height="30" nowrap bgcolor="#FFFFFF" class="ButtonList"> 
      <div align="center">状态</div></td>
    <td width="19%" height="30" nowrap bgcolor="#FFFFFF" class="ButtonList"> 
      <div align="center">站点名称</div></td>
    <td width="20%" height="30" nowrap bgcolor="#FFFFFF" class="ButtonList"> 
      <div align="center">站点类别</div></td>
    <td width="9%" height="30" bgcolor="#FFFFFF" class="ButtonList" nowrap> 
      <div align="center">采集对象页</div></td>
    <td width="20%" height="30" nowrap bgcolor="#FFFFFF" class="ButtonList"> 
      <div align="center">采集到栏目</div></td>
    <td width="11%" height="30" nowrap class="ButtonList"> 
      <div align="center">操作</div></td>
    <td width="12%" height="30" nowrap class="ButtonList"> 
      <div align="center">开始手工采集</div></td>
  </tr>
  <%
	for i=1 to RsSite.pagesize
		if RsSite.Eof then Exit For
		Dim IsCollect,SysClassCName,RsTempObj,CollectPromptInfo
		if RsSite("ListHeadSetting") <> "" And  RsSite("ListFootSetting") <> "" And  RsSite("LinkHeadSetting") <> "" And  RsSite("LinkFootSetting") <> "" And RsSite("PagebodyHeadSetting") <> "" And  RsSite("PagebodyFootSetting") <> "" And  RsSite("PageTitleHeadSetting") <> "" And  RsSite("PageTitleFootSetting") <> "" then
			if RsSite("IsLock") = True then
				IsCollect = False
				CollectPromptInfo = "站点已经被锁定,不能采集"
			else
				IsCollect = True
				CollectPromptInfo = "可以采集,请检查是否设置正确，否则不能进行采集"
			end if
		else
			IsCollect = False
			CollectPromptInfo = "不能采集,请把匹配规则设置完整"
		end if
		
		Set RsTempObj = Conn.Execute("Select ClassCName from NewsClass where ClassID='" & RsSite("SysClass") & "'")
		if Not RsTempObj.Eof then
			SysClassCName = RsTempObj("ClassCName")
		else
			SysClassCName = "栏目不存在"
			IsCollect = False
			CollectPromptInfo = "目标栏目不存在,不能采集"
		end if
		Set RsTempObj = Nothing
%>
  <tr bgcolor="#FFFFFF" title="<% = CollectPromptInfo %>" onMouseOver="this.style.backgroundColor='#EFEFEF'" onMouseOut="this.style.backgroundColor=''"> 
    <td height="26" nowrap> 
      <div align="center">
		<%
		if RsSite("IsLock") = True then
			Response.Write("锁定")
		else
			Response.Write("有效")
		end if
		%>
      </div></td>
    <td nowrap> 
      <div align="center"><% = RsSite("SiteName") %>
      </div></td>
    <td nowrap> 
      <div align="center"><% = RsSite("SiteClass") %>
      </div></td>
    <td nowrap> 
      <div align="center"><a href="<% = RsSite("objURL") %>" target="_blank"><img src="Images/objpage.gif" alt="点击访问" width="20" height="20" border="0"></a></div></td>
    <td nowrap> 
      <div align="center"> <% = SysClassCName %>
      </div></td>
    <td nowrap> 
      <div align="center"><span class="SpanStyle" title="修改属性" onClick="window.location='SitemodifyOne.asp?SiteID=<% = RsSite("Id") %>';">属性</span>
	    | <span class="SpanStyle" title="修改属性向导" onClick="window.location='Sitemodify.asp?SiteID=<% = RsSite("Id") %>';">向导</span> 
        | <span class="SpanStyle" title="删除" onClick="if (confirm('确定要删除吗？')==true) window.location='?action=Del&Id=<% = RsSite("Id") %>';"> 
        删除</span> | <span class="SpanStyle" title="复制站点" onClick="window.location='Site.asp?vs=Copy&SiteID=<% = RsSite("Id") %>';">复制</span></div></td>
    <td nowrap> 
      <div align="center">
        <% if IsCollect = true then %>
        <div align="center"><a href="Collect.asp?SiteID=<% = RsSite("Id") %>"><img src="Images/collect.gif" width="20" height="20" border="0"></a></div>
        <% else %>
        <div align="center"><img src="Images/uncollect.gif" width="20" height="20" border="0"></div>
        <% end if %>
      </div></td>
  </tr>
  <%
		RsSite.MoveNext
	next
%>
  <tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#EFEFEF'" onMouseOut="this.style.backgroundColor=''"> 
    <td height="26" colspan="7"><table width="100%" border="0" cellpadding="5" cellspacing="0" background="images/Collect_bg.gif">
        <tr> 
          <td width="17%" height="30"> 
            <div align="left"><a href="?Action=Addsite"><strong><font color="#FF0000">增加采集站点</font></strong></a></div></td>
          <td width="83%" height="30"> 
            <div align="right"> 
			<%
			Response.Write"&nbsp;共<b>"& Select_PageCount & "</b>页<b>" & Select_Count & "</b>条记录，每页<b>" & RsSite.pagesize & "</b>条，本页是第<b>"& StrPage &"</b>页"
			if Int(StrPage) > 1 then
				Response.Write"&nbsp;<a href=?Page=1>首页</a>&nbsp;"
				Response.Write"&nbsp;<a href=?Page=" & Cstr(cint(StrPage)-1) & ">上页</a>&nbsp;"
			end if
			if Int(StrPage) < Select_PageCount then
				Response.Write"&nbsp;<a href=?Page=" & Cstr(Cint(StrPage)+1) & ">下页</a>"
				Response.Write"&nbsp;<a href=?Page=" & Select_PageCount & ">末页</a>&nbsp;"
			end if
			Response.Write"<br>"
			RsSite.close
			Set RsSite = Nothing
			%>
            </div></td>
        </tr>
      </table></td>
  </tr>
</table>
<br>
<font color="#FF0000">注意：增加采集站点后，请设置采集的新闻列表匹配规则、新闻浏览页面的采集匹配规则，否则将不能进行采集。</font> 
<%end sub%>
<%
Sub Add()
	Dim ClassList
	Set Rs = Server.CreateObject("Adodb.RecordSet")
	Rs.Source = "Select * from NewsClass order by ID desc"
	Rs.Open Rs.Source,Conn,1,3
	do while Not Rs.Eof
		ClassList = ClassList & "<option  value=" & Rs("ClassID") & "" & ">" & Rs("ClassCName") & "</option><br>"
		Rs.MoveNext	
	loop
	Rs.Close
	Set Rs = Nothing
%>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form1" method="post" action="">
    <tr bgcolor="#FFFFFF"> 
      <td height="30" colspan="4" background="images/Collect_bg.gif"><strong><font color="#FF0000">增加采集站点</font></strong></td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td width="19%"> <div align="right"> 
          <input name="vs" type="hidden" id="vs2" value="add">
          采集站点名称</div></td>
      <td width="31%"> <input name="SiteName" style="width:100%;" type="text" id="SiteName2"></td>
      <td width="15%"> <div align="right">采集站点分类</div></td>
      <td width="35%"> <input name="SiteClass" style="width:100%;" type="text" id="SiteClass"></td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td> <div align="right">采集站地址</div></td>
      <td><input name="SiteUrl" style="width:100%;" type="text" id="SiteUrl" value="http://"></td>
      <td> <div align="right">目标栏目</div></td>
      <td> <select name="SysClass" style="width:100%;" id="SysClass">
          <% =ClassList %>
        </select></td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td bgcolor="#F3F3F3"><div align="right">采集对象页</div></td>
      <td colspan="3" bgcolor="#F3F3F3"><input style="width:100%;" name="objURL" type="text" id="objURL" value="http://"></td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td bgcolor="#F3F3F3"><div align="right">新闻摸板</div></td>
      <td colspan="3" bgcolor="#F3F3F3"><input name="SysTemplet" type="text" id="SysTemplet" style="width:100%;"> 
        <div align="right"></div></td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td height="50" colspan="4"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="50%"> <div align="center"> 
                <input type="submit" name="Submit" value=" 增 加 ">
              </div></td>
            <td><div align="center"> 
                <input type="reset" name="Submit2" value=" 重 填 ">
              </div></td>
          </tr>
        </table></td>
    </tr>
  </form>
</table>
<% End Sub %>
</body>
</html>
<%
Set Conn = Nothing
Set CollectConn = Nothing
%>