admin_flashgather.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 67 行

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Server.ScriptTimeOut = 99999
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_SoftGatherer.asp
' 更新日期：2006-9-16
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
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"">非常遗憾，您的服务器不支持新云采集“Gatherer.SoftCollection”组件！</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

%>