📄 sitemodifyone.asp
字号:
end if
if Request.Form("IsFont") = "1" then
RsAddObj("IsFont") = True
else
RsAddObj("IsFont") = False
end if
if Request.Form("IsSpan") = "1" then
RsAddObj("IsSpan") = True
else
RsAddObj("IsSpan") = False
end if
if Request.Form("IsObject") = "1" then
RsAddObj("IsObject") = True
else
RsAddObj("IsObject") = False
end if
if Request.Form("IsStyle") = "1" then
RsAddObj("IsStyle") = True
else
RsAddObj("IsStyle") = False
end if
if Request.Form("IsDiv") = "1" then
RsAddObj("IsDiv") = True
else
RsAddObj("IsDiv") = False
end if
if Request.Form("IsA") = "1" then
RsAddObj("IsA") = True
else
RsAddObj("IsA") = False
end if
if Request.Form("Audit") = "1" then
RsAddObj("Audit") = True
else
RsAddObj("Audit") = False
end if
if Request.Form("IsAutoCollect") <> "" then
RsAddObj("IsAutoCollect") = True
RsAddObj("CollectDate") = Clng(Request.Form("CollectDate"))
else
RsAddObj("IsAutoCollect") = False
end if
if Request.Form("TextTF") = "1" then
RsAddObj("TextTF") = True
else
RsAddObj("TextTF") = False
end If
If Request.Form("IsReverse") = "1" Then
RsAddObj("IsReverse") = "1"
Else
RsAddObj("IsReverse") = "0"
End If
if Request.Form("SaveRemotePic") = "1" then
RsAddObj("SaveRemotePic") = True
else
RsAddObj("SaveRemotePic") = False
end if
if Request.Form("Islock") <> "" then
RsAddObj("Islock") = True
else
RsAddObj("Islock") = False
end if
RsAddObj.update
RsAddObj.close
Set RsAddObj = Nothing
Response.Redirect("Site.asp")
Response.End
end if
Dim TempletDirectory
if SysRootDir <> "" then
TempletDirectory = "/" & SysRootDir & "/" & TempletDir
else
TempletDirectory = "/" & TempletDir
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自动新闻采集—站点设置</title>
</head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<script language="JavaScript" src="../../SysJS/PublicJS.js"></script>
<body leftmargin="2" topmargin="2">
<form name="FormCollect" method="post" action="" id="FormCollect">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="30" align="center" alt="保存" onClick="document.FormCollect.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 class="Gray">|</td>
<td width="35" align="center" alt="后退" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> <input name="vs" type="hidden" id="vs2" value="add"> <input name="SiteID" type="hidden" id="SiteID2" value="<% = SiteID %>">
<input name="Result" type="hidden" id="Result2" value="Edit"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td width="15%" height="26"> <div align="center">采集站点名称</div></td>
<td> <input name="SiteName" style="width:100%;" type="text" id="SiteName" value="<%=RsEditObj("sitename")%>">
<div align="right"> </div></td>
</tr>
<tr>
<td height="26"> <div align="center">采集对象页</div></td>
<td><input name="objURL" style="width:100%;" type="text" id="objURL" value="<%=RsEditObj("objURL")%>" size="50"></td>
</tr>
<tr>
<td height="26"> <div align="center">采集站点分类</div></td>
<td><select name="SiteFolder" style="width:100%;" id="SiteFolder">
<option value="0">根栏目</option>
<% = SiteFolderList %>
</select></td>
</tr>
<tr>
<td height="26"><div align="center">入库目标栏目</div></td>
<td><select name="SysClass" style="width:100%;" id="SysClass">
<% = TempClassListStr %>
</select></td>
</tr>
<tr>
<td height="26"> <div align="center">新闻摸板</div></td>
<td><input readonly name="SysTemplet" type="text" id="SysTemplet" style="width:80%;" value="<%=RsEditObj("SysTemplet")%>">
<input name="Submitaaa" type="button" id="Submitaaa" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<% = TempletDirectory %>',400,300,window,document.FormCollect.SysTemplet);">
<div align="right"></div></td>
</tr>
<tr>
<td height="26"><div align="center">采集参数</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")%>>
</td>
</tr>
<tr>
<td height="26"><div align="center">保存图片路径</div></td>
<td><input type="text" readonly name="SaveIMGPath" style="width:80%;" value="<% = RsEditObj("SaveIMGPath") %>">
<input name="Submit111" id="SelectPath" type="button" value="选择路径" onClick="OpenWindowAndSetValue('../../FunPages/SelectPathFrame.asp?CurrPath=<% = SelectPath %>',400,300,window,document.FormCollect.SaveIMGPath);"></td>
</tr>
<tr>
<td height="26"><div align="center">过滤选项</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>
<td height="36" colspan="2">
<div align="center"></div>
<div align="center">
<input onClick="ChangeCutPara(0);" <% if RsEditObj("OtherType") = 0 then Response.Write("checked") %> name="OtherType" type="radio" value="0">
不分页
<input type="radio" onClick="ChangeCutPara(1);" name="OtherType" <% if RsEditObj("OtherType") = 1 then Response.Write("checked") %> value="1">
标记分页设置
<input type="radio" onClick="ChangeCutPara(2);" <% if RsEditObj("OtherType") = 2 then Response.Write("checked") %> name="OtherType" value="2">
索引分页设置
<input type="radio" onClick="ChangeCutPara(3);" <% if RsEditObj("OtherType") = 3 then Response.Write("checked") %> name="OtherType" value="3">
手工分页设置
<input type="radio" onClick="ChangeCutPara(4);" <% if RsEditObj("OtherType") = 4 then Response.Write("checked") %> name="OtherType" value="4">
<b>列表内容范围设置</b></div></td>
</tr>
<tr id="TagCutPage" style="display:<% if RsEditObj("OtherType") <> 1 then Response.Write("none") %>;">
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%">
<div align="center">其他页面</div></td>
<td>
输入区域：
<span onClick="if(document.FormCollect.OtherPageSetting.rows>2)document.FormCollect.OtherPageSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
<span onClick="document.FormCollect.OtherPageSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
可用标签：<font onmouseover="getActiveText(document.FormCollect.OtherPageSetting);" onClick="addTag('[其他页面]')" style="CURSOR: hand"><b>[其他页面]</b></font>
<font onmouseover="getActiveText(document.FormCollect.OtherPageSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
<br>
<textarea ondblclick="getActiveText(this)" onClick="getActiveText(this)" onchange="getActiveText(this)" name="OtherPageSetting" id="OtherPageSetting" rows="4" style="width:100%;"><%=RsEditObj("OtherPageHeadSetting")%>[其他页面]<%=RsEditObj("OtherPageFootSetting")%></textarea></td>
</tr>
</table></td>
</tr>
<tr id="IndexCutPage" style="display:<% if RsEditObj("OtherType") <> 2 then Response.Write("none") %>;">
<td colspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%">
<div align="center">索引规则 </div></td>
<td>
输入区域：
<span onClick="if(document.FormCollect.IndexRule.rows>2)document.FormCollect.IndexRule.rows-=1" style='cursor:hand'><b>缩小</b></span>
<span onClick="document.FormCollect.IndexRule.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
<textarea name="IndexRule" rows="3" id="IndexRule" style="width:100%;"><% = RsEditObj("IndexRule") %></textarea></td>
</tr>
<tr>
<td height="26"> <div align="center">页码</div></td>
<td>页码开始：
<input name="StartPageNum" type="text" id="StartPageNum" size="3" maxlength="8" value="<% = RsEditObj("StartPageNum") %>">
页码结束
<input name="EndPageNum" type="text" id="EndPageNum" size="3" maxlength="8" value="<% = RsEditObj("EndPageNum") %>">  例:在索引规则中写http://.../index_^$^.htm，其中^$^代表设定的页码</td>
</tr>
</table></td>
</tr>
<tr id="HandCutPage" style="display:<% if RsEditObj("OtherType") <> 3 then Response.Write("none") %>;">
<td width="10%"> <div align="center">分页内容</div></td>
<td height="26"> 输入区域：
<span onClick="if(document.FormCollect.HandPageContent.rows>2)document.FormCollect.HandPageContent.rows-=1" style='cursor:hand'><b>缩小</b></span>
<span onClick="document.FormCollect.HandPageContent.rows+=1" style='cursor:hand'><b>扩大</b></span>
<textarea name="HandPageContent" rows="6" id="HandPageContent" style="width:100%;"><% = RsEditObj("HandPageContent") %></textarea></tr>
<tr id="ListContent" style="display:none">
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%">
<div align="center">列表内容</div></td>
<td> 输入区域：
<span onClick="if(document.FormCollect.ListSetting.rows>2)document.FormCollect.ListSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
<span onClick="document.FormCollect.ListSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
可用标签:<font onmouseover="getActiveText(document.FormCollect.ListSetting);" onClick="addTag('[列表内容]')" style="CURSOR: hand"><b>[列表内容]</b></font>
<font onmouseover="getActiveText(document.FormCollect.ListSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
<textarea ondblclick="getActiveText(this)" onClick="getActiveText(this)" onchange="getActiveText(this)" name="ListSetting" cols="50" rows="3" id="ListSetting" style="width:100%;"><%=RsEditObj("ListHeadSetting")%>[列表内容]<%=RsEditObj("ListFootSetting")%></textarea>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> <div align="center">列表URL<font color="#ff0000">*</font></div></td>
<td> 输入区域：
<span onClick="if(document.FormCollect.LinkSetting.rows>2)document.FormCollect.LinkSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
<span onClick="document.FormCollect.LinkSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
可用标签：<font onmouseover="getActiveText(document.FormCollect.LinkSetting);" onClick="addTag('[列表URL]')" style="CURSOR: hand"><b>[列表URL]</b></font> <font onmouseover="getActiveText(document.FormCollect.LinkSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
<textarea ondblclick="getActiveText(this)" onClick="getActiveText(this)" onchange="getActiveText(this)" name="LinkSetting" cols="50" rows="3" id="textarea2" style="width:100%;"><%=RsEditObj("LinkHeadSetting")%>[列表URL]<%=RsEditObj("LinkFootSetting")%></textarea></td>
</tr>
<tr>
<td> <div align="center">新闻标题<font color="#ff0000">*</font></div></td>
<td> 输入区域：
<span onClick="if(document.FormCollect.PageTitleSetting.rows>2)document.FormCollect.PageTitleSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
<span onClick="document.FormCollect.PageTitleSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
可用标签：<font onmouseover="getActiveText(document.FormCollect.PageTitleSetting);" onClick="addTag('[新闻标题]')" style="CURSOR: hand"><b>[新闻标题]</b></font> <font onmouseover="getActiveText(document.FormCollect.PageTitleSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
<textarea ondblclick="getActiveText(this)" onClick="getActiveText(this)" onchange="getActiveText(this)" name="PageTitleSetting" cols="50" rows="3" id="textarea6" style="width:100%;"><%=RsEditObj("PageTitleHeadSetting")%>[新闻标题]<%=RsEditObj("PageTitleFootSetting")%></textarea></td>
</tr>
<tr>
<td> <div align="center">新闻内容<font color="#ff0000">*</font></div></td>
<td> 输入区域：
<span onClick="if(document.FormCollect.PagebodySetting.rows>2)document.FormCollect.PagebodySetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
<span onClick="document.FormCollect.PagebodySetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
可用标签：<font onmouseover="getActiveText(document.FormCollect.PagebodySetting);" onClick="addTag('[新闻内容]')" style="CURSOR: hand"><b>[新闻内容]</b></font> <font onmouseover="getActiveText(document.FormCollect.PagebodySetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
<textarea ondblclick="getActiveText(this)" onClick="getActiveText(this)" onchange="getActiveText(this)" name="PagebodySetting" cols="50" rows="3" id="textarea8" style="width:100%;"><%=RsEditObj("PagebodyHeadSetting")%>[新闻内容]<%=RsEditObj("PagebodyFootSetting")%></textarea></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -