site.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

	Call Main(Request("FolderID"))
Else
	Call Main("0")
end if
Sub Main(f_FolderID)
	if f_FolderID = "" then f_FolderID = "0"
	Session("SessionReturnValue") = ""
%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
	<tr class="hback">
		<td height="26" colspan="5" valign="middle">
			<table width="100%" height="20" border="0" cellpadding="5" cellspacing="1">
				<tr>
					<td width=55 align="center" alt="添加采集栏目" style="cursor:hand" onClick="location='?Action=Addsitefolder';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新建栏目</td>
					<td width=2 class="Gray">|</td>
					<td width=55 align="center" alt="添加采集站点" style="cursor:hand" onClick="location='?Action=Addsite';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新建站点</td>
					<td width=2 class="Gray">|</td>
					<td width=35 align="center" alt="后退" style="cursor:hand" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
					<td>&nbsp;</td>
				</tr>
		  </table>
		</td>
	</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  <tr class="xingmu"> 
    <td width="50%" height="26" nowrap bgcolor="#FFFFFF" class="xingmu"> 
      <div align="center">名称</div></td>
    <td width="6%" height="26" nowrap bgcolor="#FFFFFF" class="xingmu"> 
      <div align="center">状态</div></td>
    <td width="10%" height="26" bgcolor="#FFFFFF" class="xingmu" nowrap> 
      <div align="center">采集对象页</div></td>
    <td height="26" nowrap class="xingmu">
<div align="center">操作</div></td>
  </tr>
  <%
	if f_FolderID = "0" then
		Dim RsSite,SiteSql,CheckInfo
		Dim RsSiteFolder
		Set RsSiteFolder = CollectConn.Execute("select * from FS_SiteFolder where 1=1 order by id DESC")
		Do While not RsSiteFolder.EOF
	%>
  <tr class="hback"> 
    <td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/folder.gif" width="16" height="16"></td>
          <td nowrap><%= RsSiteFolder("SiteFolder")%></td>
        </tr>
      </table></td>
    <td nowrap><div align="center"> &nbsp; </div></td>
    <td nowrap><div align="center"> &nbsp; </div></td>
    <td nowrap><div align="center"><span style="cursor:hand;" onClick="if (confirm('确定要复制吗?')){location='Site.asp?vs=Copy&SiteFolderID=<% = RsSiteFolder("ID") %>';}">复制</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要修改吗?')){location='?Action=Addsitefolder&SiteFolderID=<% = RsSiteFolder("ID") %>';}">修改</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要删除吗?')){location='?action=Del&SiteFolderID=<% = RsSiteFolder("ID") %>';}">删除</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="location='site.asp?Action=SubFolder&FolderID=<% =RsSiteFolder("ID") %>'">进入</span></div></td>
  </tr>
  <%
			RsSiteFolder.MoveNext
		Loop
		Set RsSiteFolder = Nothing
	else
%>
  <tr class="hback"> 
    <td height="26" colspan="4" nowrap><img src="images/folder.gif" width="16" height="16"> 
      <a href="Site.asp">返回上一级</a> </td>
  </tr>
<%	
	end if
	
	Dim IsCollect,RsTempObj,CollectPromptInfo
	Set RsSite = Server.CreateObject ("ADODB.RecordSet")
	SiteSql="Select * from FS_Site where folder=" & f_FolderID & " order by id desc"
		RsSite.Open SiteSql,CollectConn,1,1
	Do While not RsSite.eof
		if  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
	%>
  <tr title="<% = CollectPromptInfo %>" class="hback"> 
    <td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/SiteSet.gif" width="23" height="22"></td>
          <td nowrap><% = RsSite("SiteName") %></td>
        </tr>
      </table></td>
    <td nowrap><div align="center"> 
        <%
		if RsSite("IsLock") = True then
			Response.Write("锁定")
		ElseIf IsCollect = False Then
			Response.Write("无效")
		else
			Response.Write("有效")
		end if
		%>
      </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"><span style="cursor:hand;" onClick="if (confirm('确定要复制吗?')){location='Site.asp?vs=Copy&SiteID=<% = RsSite("ID") %>';}">复制</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要删除吗?')){location='?action=Del&Id=<% = RsSite("ID") %>';}">删除</span>&nbsp;&nbsp;<span style="cursor:hand;" onClick="if (confirm('确定要修改吗？')){location='SitemodifyOne.asp?SiteID=<% = RsSite("ID") %>';}">向导</span><% if IsCollect = true then %>&nbsp;&nbsp;<span onClick="StartOneSiteCollect('<% = RsSite("Id") %>');" style="cursor:hand;">采集</span><% end if %></div></td>
  </tr>
  <%
		RsSite.MoveNext
	loop
%>
</table>
<%
	RsSite.close
	Set RsSite = Nothing
end Sub

Sub Add()
%>
<form name="AddSiteForm" id="AddSiteForm" method="post" action="">
		<table width="98%" height="20" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
			<tr>
				<td width=35 align="center" alt="保存"  style="cursor:hand" onClick="document.AddSiteForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
				<td width=35 align="center" alt="后退"  style="cursor:hand" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
				<td>&nbsp;
					<input name="vs" type="hidden" id="vs2" value="add">				</td>
			</tr>
  </table>
	<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
		<tr class="hback">
			<td width="100" height="26"><div align="right">采集站点名称：</div></td>
			<td><input name="SiteName" style="width:100%;" type="text" id="SiteName2"></td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">采集站点分类：</div></td>
			<td><select name="SiteFolder" style="width:100%;" id="SiteFolder">
					<option value="0">根栏目</option>
					<% = FolderList() %>
				</select></td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">采集对象页：</div></td>
			<td><input style="width:100%;" name="objURL" type="text" id="objURL" value="http://"></td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">选择编码：</div></td>
			<td><select name="WebCharset" style="width:100%;" id="WebCharset">
					<option value="GB2312" selected="selected">GB2312</option>
					<option value="UTF-8">UTF-8</option>
				</select>
			</td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">采集参数：</div></td>
			<td>锁定
				<input name="islock" type="checkbox" id="islock" value="1">
				保存远程图片
				<input type="checkbox" name="SaveRemotePic" value="1" checked>
				新闻是否已经审核
				<input name="Audit" type="checkbox" value="1">
				是否倒序采集
				<input name="IsReverse" type="checkbox" id="IsReverse" value="1">
				<!-- 2007-02-25 Edit By Ken -->
				内容中包含图片时设置为图片新闻
				<input name="IsAutoPicNews" type="checkbox" id="IsAutoPicNews" value="1" checked>
				<!-- End -->
				</td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">过滤选项：</div></td>
			<td>HTML
				<input type="checkbox" name="TextTF" value="1" checked>
				STYLE
				<input type="checkbox" name="IsStyle" value="1" checked>
				DIV
				<input type="checkbox" name="IsDiv" value="1">
				A
				<input type="checkbox" name="IsA" value="1" checked>
				CLASS
				<input type="checkbox" name="IsClass" value="1">
				FONT
				<input type="checkbox" name="IsFont" value="1" checked>
				SPAN
				<input type="checkbox" name="IsSpan" value="1">
				OBJECT
				<input type="checkbox" name="IsObject" value="1" checked>
				IFRAME
				<input type="checkbox" name="IsIFrame" value="1" checked>
				SCRIPT
				<input type="checkbox" name="IsScript" value="1" checked>
			</td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">关键字过滤规则：</div></td>
			<td>
			<input style="width:50%;" name="CS_SiteReKeyName" type="text" id="CS_SiteReKeyName" value="" readonly />
			<input style="width:50%;" name="CS_SiteReKeyID" type="hidden" id="CS_SiteReKeyID" value="" />
			<% = GetAllRulerList() %>
			</td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">入库栏目：</div></td>
			<td><select name="ToClass" style="width:100%;" id="ToClass">
				<%
					Dim obj_unite_rs,tmp_str_list
					Set obj_unite_rs = server.CreateObject(G_FS_RS)
					obj_unite_rs.Open "Select Orderid,id,ClassID,ClassName,ParentID from FS_NS_NewsClass where IsURL=0 And Parentid  = '0' and ReycleTF=0 Order by Orderid desc,ID desc",Conn,1,1
					  tmp_str_list  = ""
					  do while Not obj_unite_rs.eof 
						tmp_str_list = tmp_str_list &"<option value="""& obj_unite_rs("ClassID") &""">+"& obj_unite_rs("ClassName") &"</option>"& Chr(13) & Chr(10)
						tmp_str_list = tmp_str_list &UniteChildNewsList(obj_unite_rs("ClassID"),"")
						 obj_unite_rs.movenext
					 Loop
					 obj_unite_rs.close
					 set obj_unite_rs = nothing
					 Response.Write tmp_str_list
				%>
				</select></td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">新闻模板：</div></td>
			<td>
			<input style="width:70%;" name="NewsTemp" type="text" id="NewsTemp" value="/Templets/NewsClass/news.htm" readonly>
			<input name="Submit5" type="button" id="selNewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir%>/<% = G_TEMPLETS_DIR %>',400,300,window,document.AddSiteForm.NewsTemp);document.AddSiteForm.NewsTemp.focus();">
				</td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">定时采集设置：</div></td>
			<td>
			<select name="AutoCTF" id="AutoCTF" style="width:30%;" onChange="Javascript:Setautocellecttime(this.options[this.selectedIndex].value)">
				<option value="no" selected="selected">不自动采集</option>
				<option value="day">每天</option>
				<option value="week">每周</option>
				<option value="month">每月</option>
			</select>
			<select name="TimeWeek" id="TimeWeek" style="width:30%; display:none;">
				<option value="7" 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>
			<select name="TimeMonth" id="TimeMonth" style="width:30%; display:none;">
				<option value="1" selected="selected">1</option>
				<option value="2">2</option>
				<option value="3">3</option>
				<option value="4">4</option>
				<option value="5">5</option>
				<option value="6">6</option>
				<option value="7">7</option>
				<option value="8">8</option>
				<option value="9">9</option>
				<option value="10">10</option>
				<option value="11">11</option>
				<option value="12">12</option>
				<option value="13">13</option>
				<option value="14">14</option>
				<option value="15">15</option>
				<option value="16">16</option>
				<option value="17">17</option>
				<option value="18">18</option>
				<option value="19">19</option>
				<option value="20">20</option>
				<option value="21">21</option>
				<option value="22">22</option>