📄 sitemodifyone.asp

📁 后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/md5.asp" -->
<%
Dim Conn,CollectConn
MF_Default_Conn
MF_Collect_Conn
MF_Session_TF
if not MF_Check_Pop_TF("CS001") then Err_Show

Dim sRootDir,str_CurrPath

if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/" & G_VIRTUAL_ROOT_DIR else sRootDir=""
If Session("Admin_Is_Super") = 1 then
	str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
	If Session("Admin_FilesTF") = 0 Then
		str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
	Else
		str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
	End If	
End if


Dim RsEditObj,EditSql,SiteID,Auto_Collect_Time
Set RsEditObj = Server.CreateObject ("ADODB.RecordSet")
SiteID = Request("SiteID")
if SiteID <> "" then
	EditSql="Select * from FS_Site where ID=" & SiteID
	RsEditObj.Open EditSql,CollectConn,1,3
	if RsEditObj.Eof then
		Response.write"<script>alert(""没有修改的站点"");location.href=""javascript:history.back()"";</script>"
		Response.end
	Else
		If IsNull(RsEditObj("AutoCellectTime")) Or RsEditObj("AutoCellectTime") = "" Then
			Auto_Collect_Time = "no"
		Else
			Auto_Collect_Time = RsEditObj("AutoCellectTime")
		End If	
	end if
else
	Response.write"<script>alert(""没有修改的站点"");location.href=""javascript:history.back()"";</script>"
	Response.end
end if

Function SiteFolderList()
	Dim ClassListObj,SelectStr
	Set ClassListObj = CollectConn.Execute("Select * from FS_SiteFolder where 1=1 order by ID desc")
	do while Not ClassListObj.Eof
		if RsEditObj("Folder") = ClassListObj("ID") then
			SelectStr = "selected"
		else
			SelectStr = ""
		end if
		SiteFolderList = SiteFolderList & "<option " & SelectStr & " value="&ClassListObj("ID")&"" & ">&nbsp;&nbsp;|--" & ClassListObj("SiteFolder") & "</option><br>"
		ClassListObj.MoveNext	
	loop
	ClassListObj.Close
	Set ClassListObj = Nothing
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自动新闻采集—站点设置</title>
</head>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript" src="../../FS_Inc/PublicJS.js"></script>
<body leftmargin="2" topmargin="2">
<form name="Form" method="post" action="SiteTwoStep.asp">
<table width="98%" height="20" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
        <tr class="hback" >
            <td width="45" style="cursor:hand" align="center" alt="第二步" onClick="CheckData();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">下一步</td>
			<td width="35" style="cursor:hand" align="center" alt="后退" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
            <td>&nbsp; <input name="SiteID" type="hidden" id="SiteID" value="<% = SiteID %>"> 
              <input name="Result" type="hidden" id="Result" value="Edit"></td>
        </tr>
  </table>  
<table width="98%" border="0" align="center" cellpadding="3" 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="SiteName" value="<%=RsEditObj("sitename")%>"> 
        <div align="right"> </div></td>
    </tr>
    <tr class="hback" > 
      <td height="26"> 
      <div align="right">采集对象页：</div></td>
      <td> 
        <input name="objURL" type="text" id="textarea" style="width:100%;" value="<%=RsEditObj("objURL")%>" size="50"></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" <% if RsEditObj("WebCharset") = "GB2312" Then Response.Write "selected" %>>GB2312</option>
					<option value="UTF-8" <% if RsEditObj("WebCharset") = "UTF-8" Then Response.Write "selected" %>>UTF-8</option>
				</select>
			</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>
          <% = SiteFolderList %>
        </select></td>
    </tr>
    <tr class="hback" > 
      <td height="26"> 
      <div align="right">采集参数：</div></td>
      <td> 锁定 
        <input name="islock" type="checkbox" id="islock" value="1" <%if RsEditObj("islock")=true then response.Write("checked")%>>
        保存远程图片 
        <input type="checkbox" name="SaveRemotePic" value="1" <%if RsEditObj("SaveRemotePic")=true then response.Write("checked")%>>
        新闻是否已经审核 
        <input type="checkbox" name="Audit" value="1" <%if RsEditObj("Audit")=true then response.Write("checked")%>>
        是否倒序采集 
        <input name="IsReverse" type="checkbox" id="IsReverse" value="1" <%if RsEditObj("IsReverse")="1" then response.Write("checked")%>>
		<!-- 2007-02-25 Edit By Ken -->
		内容中包含图片时设置为图片新闻
		<input name="IsAutoPicNews" type="checkbox" id="IsAutoPicNews" value="1" <%if RsEditObj("IsAutoPicNews")="1" then response.Write("checked")%>>
		<!-- End -->
		</td>
    </tr>
    <tr class="hback" > 
      <td height="26"><div align="right">过滤选项：</div></td>
      <td>HTML 
        <input type="checkbox" name="TextTF" value="1" <% if RsEditObj("TextTF") = True then Response.Write("checked")%>>
        STYLE 
        <input type="checkbox" name="IsStyle" value="1" <% if RsEditObj("IsStyle") = True then Response.Write("checked")%>>
        DIV
        <input type="checkbox" name="IsDiv" value="1" <% if RsEditObj("IsDiv") = True then Response.Write("checked")%>>
        A
        <input type="checkbox" name="IsA" value="1" <% if RsEditObj("IsA") = True then Response.Write("checked")%>>
        CLASS
        <input type="checkbox" name="IsClass" value="1" <% if RsEditObj("IsClass") = True then Response.Write("checked")%>>
        FONT
        <input type="checkbox" name="IsFont" value="1" <% if RsEditObj("IsFont") = True then Response.Write("checked")%>>
        SPAN
        <input type="checkbox" name="IsSpan" value="1" <% if RsEditObj("IsSpan") = True then Response.Write("checked")%>>
        OBJECT
        <input type="checkbox" name="IsObject" value="1" <% if RsEditObj("IsObject") = True then Response.Write("checked")%>>
        IFRAME
        <input type="checkbox" name="IsIFrame" value="1" <% if RsEditObj("IsIFrame") = True then Response.Write("checked")%>>
        SCRIPT
        <input type="checkbox" name="IsScript" value="1" <% if RsEditObj("IsScript") = True then Response.Write("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="<% = CheckRulerIDStr(RsEditObj("RulerID"),"name") %>" readonly />
			<input style="width:50%;" name="CS_SiteReKeyID" type="hidden" id="CS_SiteReKeyID" value="<% = CheckRulerIDStr(RsEditObj("RulerID"),"ID") %>" />
			<% = 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 
						Dim Select_Str
						If RsEditObj("ToClassID") = obj_unite_rs("ClassID") Then
							Select_Str = "Selected"
						Else
							Select_Str = ""
						End If	
						tmp_str_list = tmp_str_list &"<option value="""& obj_unite_rs("ClassID") &""" " & Select_Str & ">+"& obj_unite_rs("ClassName") &"</option>"& Chr(13) & Chr(10)
						tmp_str_list = tmp_str_list &UniteChildNewsList(obj_unite_rs("ClassID"),"",RsEditObj("ToClassID"))
						 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="<% = RsEditObj("NewsTemplets") %>" readonly>
			<input name="Submit5" type="button" id="selNewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir%>/<% = G_TEMPLETS_DIR %>',400,300,window,document.Form.NewsTemp);document.Form.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" <%if Auto_Collect_Time = "no" Then Response.Write "selected" %>>不自动采集</option>
				<option value="day" <%if Left(Auto_Collect_Time,3) = "day" Then Response.Write "selected" %>>每天</option>
				<option value="week" <%if Left(Auto_Collect_Time,4) = "week" Then Response.Write "selected" %>>每周</option>
				<option value="month" <%if Left(Auto_Collect_Time,5) = "month" Then Response.Write "selected" %>>每月</option>
			</select>
			<%
				Dim Dis_W,W_Str
				if Left(Auto_Collect_Time,4) = "week" Then
					Dis_W = ""
					W_Str = Split(Split(Auto_Collect_Time,"$$$")(1),"|")(0)
				Else
					Dis_W = "none"
					W_Str = 0
				End If	
			%>
			<select name="TimeWeek" id="TimeWeek" style="width:30%; display:<% = Dis_W %>;">
				<option value="7" <% if Cint(W_Str) = 7 then Response.Write "selected" %>>周日</option>
				<option value="1" <% if Cint(W_Str) = 1 then Response.Write "selected" %>>周一</option>
				<option value="2" <% if Cint(W_Str) = 2 then Response.Write "selected" %>>周二</option>
				<option value="3" <% if Cint(W_Str) = 3 then Response.Write "selected" %>>周三</option>
				<option value="4" <% if Cint(W_Str) = 4 then Response.Write "selected" %>>周四</option>
				<option value="5" <% if Cint(W_Str) = 5 then Response.Write "selected" %>>周五</option>
				<option value="6" <% if Cint(W_Str) = 6 then Response.Write "selected" %>>周六</option>
			</select>
			<%
				Dim Dis_M,M_Str
				if Left(Auto_Collect_Time,5) = "month" Then
					Dis_M = ""
					M_Str = Split(Split(Auto_Collect_Time,"$$$")(1),"|")(0)
				Else
					Dis_M = "none"
					M_Str = 0
				End If	
			%>
			<select name="TimeMonth" id="TimeMonth" style="width:30%; display:<% = Dis_M %>;">
				<option value="1" <% if Cint(M_Str) = 1 then Response.Write "selected" %>>1</option>
				<option value="2" <% if Cint(M_Str) = 2 then Response.Write "selected" %>>2</option>
				<option value="3" <% if Cint(M_Str) = 3 then Response.Write "selected" %>>3</option>
				<option value="4" <% if Cint(M_Str) = 4 then Response.Write "selected" %>>4</option>
				<option value="5" <% if Cint(M_Str) = 5 then Response.Write "selected" %>>5</option>
				<option value="6" <% if Cint(M_Str) = 6 then Response.Write "selected" %>>6</option>
				<option value="7" <% if Cint(M_Str) = 7 then Response.Write "selected" %>>7</option>
				<option value="8" <% if Cint(M_Str) = 8 then Response.Write "selected" %>>8</option>
				<option value="9" <% if Cint(M_Str) = 9 then Response.Write "selected" %>>9</option>
				<option value="10" <% if Cint(M_Str) = 10 then Response.Write "selected" %>>10</option>
				<option value="11" <% if Cint(M_Str) = 11 then Response.Write "selected" %>>11</option>
				<option value="12" <% if Cint(M_Str) = 12 then Response.Write "selected" %>>12</option>
				<option value="13" <% if Cint(M_Str) = 13 then Response.Write "selected" %>>13</option>
				<option value="14" <% if Cint(M_Str) = 14 then Response.Write "selected" %>>14</option>
				<option value="15" <% if Cint(M_Str) = 15 then Response.Write "selected" %>>15</option>
12 下一页
⌨️ 快捷键说明

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