<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Server.ScriptTimeOut = 99999
Admin_header
If LCase(Request("Action")) <> "savenew" Then
	Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>"
	Response.Write " <tr>"
	Response.Write "   <th>" & sModuleName & "HTTP采集管理</th>"
	Response.Write " </tr>"
	Response.Write " <tr>"
	Response.Write "   <td class=TableRow1><b>说明：</b><br>"
	Response.Write "&nbsp;&nbsp;①、第一次使用本功能，请修改<a href='?action=config&ChannelID=" & ChannelID & "' class='showlink'>采集基本设置</a>；<br>"
	Response.Write "&nbsp;&nbsp;②、采集前请<font color=blue>编辑</font>采集项目，选择正确的分类，然后<font color=blue>演示</font>项目确定无误后再进行采集。<br>"
	Response.Write "&nbsp;&nbsp;③、<font color=blue>声明：</font>由于FLASH和图片站的类型繁多，如果不适合本程序的站点，请不要采集。谢谢~！<br>"
	Response.Write "	</td> </tr>"
	Response.Write " <tr>"
	Response.Write "   <td class=TableRow2><strong>操作选项：</strong> <a href='?ChannelID=" & ChannelID & "'>管理首页</a> | "
	Response.Write "   <a href='?action=add&ChannelID=" & ChannelID & "'>添加采集项目</a> | "
	Response.Write "   <a href='?action=config&ChannelID=" & ChannelID & "' class='showmenu'>采集基本设置</a> | "
	Response.Write "   <a href='?action=remove&ChannelID=" & ChannelID & "'>系统缓存清理</a></td> "
	Response.Write " </tr>"
	Response.Write "</table>"
	Response.Write "<br>"
End If
If Not ChkAdmin("FlashCollect") Then
	Server.Transfer ("showerr.asp")
	Response.End
End If
Dim MyNewCloud
On Error Resume Next
Set MyNewCloud = CreateObject("Gatherer.FlashCollection")
If Err Then
	Response.Write "<br /><br /><br /><div align=""center"" style=""font-size:18px;color:red"">非常遗憾，你的版本不是正试版，做了限制功能</div>"
	Err.Clear
	Set MyNewCloud = Nothing
	Response.End
End If
MyNewCloud.ChannelPath = Newasp.InstallDir & Newasp.ChannelDir
'--采集数据库连接
MyNewCloud.Connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(DBPath)
MyNewCloud.DBConnstr = Connstr
MyNewCloud.SqlDataBase = IsSqlDataBase
MyNewCloud.ModuleName = sModuleName
MyNewCloud.ReadFlashConfig
MyNewCloud.ShowCollection
If LCase(Request("Action")) <> "savenew" Then Admin_footer
CloseConn
Set MyNewCloud = Nothing
%>
