site.asp

asp源码 图片ASP整站

	Set RsSiteFolder = CollectConn.Execute("select * from FS_SiteFolder order by id DESC")
	Do While not RsSiteFolder.EOF
	%>
	<tr title="站点分类管理目录，点击进入">
		<td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
				<tr>
					<td><img src="../../Images/Folder/folderclosed.gif" width="24" height="22"></td>
					<td nowrap><span  class="TempletItem" SiteFolderID="<% = RsSiteFolder("ID") %>" onDblClick="ChangeFolder(this);"> <%= RsSiteFolder("SiteFolder")%> </span></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"> &nbsp; </div></td>
		<td nowrap><div align="center"> &nbsp; </div></td>
	</tr>
	<%
		RsSiteFolder.MoveNext
	Loop
	Set RsSiteFolder = Nothing


	Dim IsCollect,SysClassCName,RsTempObj,CollectPromptInfo
	Set RsSite = Server.CreateObject ("ADODB.RecordSet")
	SiteSql="Select * from FS_Site where folder=0 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
		
		Set RsTempObj = Conn.Execute("Select ClassCName from FS_NewsClass where ClassID='" & RsSite("SysClass") & "'")
		if Not RsTempObj.Eof then
			SysClassCName = RsTempObj("ClassCName")
		else
			SysClassCName = "栏目不存在"
			IsCollect = False
			CollectPromptInfo = "目标栏目不存在,不能采集"
		end if
		Set RsTempObj = Nothing
	%>
	<tr title="<% = CollectPromptInfo %>">
		<td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
				<tr>
					<td><img src="../../Images/Station.gif" width="24" height="22"></td>
					<td nowrap><span IsCollect="<% = IsCollect %>" class="TempletItem" SiteID="<% = RsSite("ID") %>">
						<% = RsSite("SiteName") %>
						</span></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">
				<% = SysClassCName %>
			</div></td>
		<td nowrap><div align="center">
				<% if IsCollect = true then %>
				<div align="center"><span onClick="StartOneSiteCollect('<% = RsSite("Id") %>');" style="cursor:hand;"><img src="Images/collect.gif" width="20" height="20" border="0"></span></div>
				<% else %>
				<div align="center"><img src="Images/uncollect.gif" width="20" height="20" border="0"></div>
				<% end if %>
			</div></td>
	</tr>

<%
		RsSite.MoveNext
	loop
%>
</table>
<%
	RsSite.close
	Set RsSite = Nothing
end Sub

Sub	SubMain()
	Session("SessionReturnValue") = ""
	if Not JudgePopedomTF(Session("Name"),"P080100") then Call ReturnError1()
%>
<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=55 align="center" alt="添加采集栏目" onClick="AddSiteFolder();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新建栏目</td>
					<td width=2 class="Gray">|</td>
					<td width=55 align="center" alt="添加采集站点" onClick="AddSubSite();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">新建站点</td>
					<td width=2 class="Gray">|</td>
					<td width=55 align="center" alt="修改站点属性" onClick="EditSite();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">修改属性</td>
					<td width=2 class="Gray">|</td>
					<td width=55 align="center" alt="修改站点向导" onClick="EditSiteGuide();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">修改向导</td>
					<td width=2 class="Gray">|</td>
					<td width=35 align="center" alt="删除站点" onClick="DelSite();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">删除</td>
					<td width=2 class="Gray">|</td>
					<td width=35 align="center" alt="复制站点" onClick="CopySite();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">复制</td>
					<td width=2 class="Gray">|</td>
					<td width=35 align="center" alt="开始采集" onClick="StartCollect();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">采集</td>
					<td width=2 class="Gray">|</td>
					<td width=35 align="center" alt="继续上次采集" onClick="ResumeCollect();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">继采</td>
					<td width=2 class="Gray">|</td>
					<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
					<td>&nbsp;</td>
				</tr>
			</table></td>
	</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
	<script language="javascript">
	function AddSubSite()
	{
		window.location="site.asp?Action=Addsite&FolderID="+<%=Request("FolderID")%>;
	}
  </script>
	<tr>
		<td colspan="5" height="2"></td>
	</tr>
	<tr>
		<td width="19%" height="26" nowrap bgcolor="#FFFFFF" class="ButtonListLeft"><div align="center">名称</div></td>
		<td width="9%" height="26" nowrap bgcolor="#FFFFFF" class="ButtonList"><div align="center">状态</div></td>
		<td width="9%" height="26" bgcolor="#FFFFFF" class="ButtonList" nowrap><div align="center">采集对象页</div></td>
		<td width="20%" height="26" nowrap bgcolor="#FFFFFF" class="ButtonList"><div align="center">采集到栏目</div></td>
		<td width="12%" height="26" nowrap class="ButtonList"><div align="center">开始采集</div></td>
	</tr>
	<tr title="点击返回上级目录">
		<td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
				<tr>
					<td><img src="../../Images/arrow.gif" width="24" height="22"></td>
					<td nowrap><span  class="TempletItem" onDblClick="backTop()" onClick="backTop()" style="cursor:hand">返回上级</span></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"> &nbsp; </div></td>
		<td nowrap><div align="center"> &nbsp; </div></td>
	</tr>
	<%
	Dim RsSite,SiteSql,CheckInfo
	Dim IsCollect,SysClassCName,RsTempObj,CollectPromptInfo
	Set RsSite = Server.CreateObject ("ADODB.RecordSet")
	SiteSql="Select * from FS_Site where folder="& CLng(Request("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
		
		Set RsTempObj = Conn.Execute("Select ClassCName from FS_NewsClass where ClassID='" & RsSite("SysClass") & "'")
		if Not RsTempObj.Eof then
			SysClassCName = RsTempObj("ClassCName")
		else
			SysClassCName = "栏目不存在"
			IsCollect = False
			CollectPromptInfo = "目标栏目不存在,不能采集"
		end if
		Set RsTempObj = Nothing
	%>
	<tr title="<% = CollectPromptInfo %>">
		<td height="26" nowrap><table border="0" cellspacing="0" cellpadding="0">
				<tr>
					<td><img src="../../Images/Station.gif" width="24" height="22"></td>
					<td nowrap><span IsCollect="<% = IsCollect %>" class="TempletItem" SiteID="<% = RsSite("ID") %>">
						<% = RsSite("SiteName") %>
						</span></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">
				<% = SysClassCName %>
			</div></td>
		<td nowrap><div align="center">
				<% if IsCollect = true then %>
				<div align="center"><span onClick="StartOneSiteCollect('<% = RsSite("Id") %>');" style="cursor:hand;"><img src="Images/collect.gif" width="20" height="20" border="0"></span></div>
				<% else %>
				<div align="center"><img src="Images/uncollect.gif" width="20" height="20" border="0"></div>
				<% end if %>
			</div></td>
	</tr>
<%
		RsSite.MoveNext
	loop
%>
</table>
<%
	RsSite.close
	Set RsSite = Nothing
end sub

Sub Add()
	if Not JudgePopedomTF(Session("Name"),"P080101") then Call ReturnError1()
	Dim TempletDirectory
	if SysRootDir <> "" then
		TempletDirectory = "/" & SysRootDir & "/" & TempletDir
	else
		TempletDirectory = "/" & TempletDir
	end if
%>
<form name="AddSiteForm" method="post" action="">
	<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=35 align="center" alt="保存" onClick="document.AddSiteForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
						<td width=2 class="Gray">|</td>
						<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().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></td>
		</tr>
	</table>
	<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="dddddd">
		<tr bgcolor="#FFFFFF">
			<td width="100" height="26"><div align="center">采集站点名称</div></td>
			<td><input name="SiteName" style="width:100%;" type="text" id="SiteName2"></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td height="26"><div align="center">采集站点分类</div></td>
			<td><select name="SiteFolder" style="width:100%;" id="SiteFolder">
					<option value="0">根栏目</option>
					<% = FolderList %>
				</select></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td height="26"><div align="center">入库目标栏目</div></td>
			<td><select name="SysClass" style="width:100%;" id="select">
					<% = ClassList %>
				</select></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td height="26"><div align="center">采集对象页</div></td>
			<td><input style="width:100%;" name="objURL" type="text" id="objURL" value="http://"></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td height="26"><div align="center">新闻摸板</div></td>
			<td><input readonly name="SysTemplet" type="text" id="SysTemplet" style="width:80%;">
				<input name="Submitaaa" type="button" id="Submitaaa" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<% = TempletDirectory %>',400,300,window,document.AddSiteForm.SysTemplet);">
				<div align="right"></div></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td height="26"><div align="center">采集参数</div></td>
			<td>锁定
				<input name="islock" type="checkbox" id="islock" value="1">
				保存远程图片
				<input type="checkbox" name="SaveRemotePic" value="1">
				新闻是否已经审核
				<input name="Audit" type="checkbox" value="1" checked>
				是否倒序采集
				<input name="IsReverse" type="checkbox" id="IsReverse" value="1"></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td height="26"><div align="center">保存图片路径</div></td>
			<td><input type="text" readonly name="SaveIMGPath" style="width:80%;" value="/<% = UpFiles & "/" & BeyondPicDir %>">
				<input name="Submit111" id="SelectPath" type="button" value="选择路径" onClick="OpenWindowAndSetValue('../../FunPages/SelectPathFrame.asp?CurrPath=<% = SelectPath %>',400,300,window,document.AddSiteForm.SaveIMGPath);"></td>
		</tr>
		<tr bgcolor="#FFFFFF">
			<td height="26"><div align="center">过滤选项</div></td>
			<td>HTML
				<input type="checkbox" name="TextTF" value="1">
				STYLE
				<input type="checkbox" name="IsStyle" value="1">
				DIV
				<input type="checkbox" name="IsDiv" value="1">
				A
				<input type="checkbox" name="IsA" value="1">
				CLASS
				<input type="checkbox" name="IsClass" value="1">
				FONT
				<input type="checkbox" name="IsFont" value="1">
				SPAN
				<input type="checkbox" name="IsSpan" value="1">
				OBJECT
				<input type="checkbox" name="IsObject" value="1">
				IFRAME
				<input type="checkbox" name="IsIFrame" value="1">
				SCRIPT
				<input type="checkbox" name="IsScript" value="1">
			</td>