admin_softgather.asp

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

<!--#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>软件采集管理</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 "	</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("SoftCollect") Then
	Server.Transfer ("showerr.asp")
	Response.End
End If

Dim MyNewCloud

On Error Resume Next

Set MyNewCloud = CreateObject("Gatherer.SoftCollection")
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.ZipSwitch = True
'-- 进度条速度控制
MyNewCloud.Space = 3
'-- 进度条边框颜色
MyNewCloud.ProsBorder = "#384780"
'-- 进度条颜色
MyNewCloud.ProsColor = "#0650D2"	'#0650D2
'-- 进度条背景颜色
MyNewCloud.ProsBack = "#FFFFFF"
'-- 速度显示字休颜色
MyNewCloud.SpeedColor = "#008800"
'-- 是否锁定压缩文件
MyNewCloud.LockedRAR = False
'-- 处理压缩包路径
'MyNewCloud.UnzipPath = "E:\TempFiles\"
'MyNewCloud.UseItemPath = True
'-- 生成多少临时目录
'MyNewCloud.MaxCount = 20
'-- 下载处理最少文件限制，单位字节,1024字节 = 1KB
MyNewCloud.LeastSize = 3 * 1024
'MyNewCloud.UnzipPass = "******"

'-- 根据文件名称判断更新
'MyNewCloud.UpdateFile = True
'MyNewCloud.MyExclusive = True
'MyNewCloud.ValidateName = True

MyNewCloud.ModuleName = sModuleName
MyNewCloud.ReadSoftConfig
MyNewCloud.ShowCollection

If LCase(Request("Action")) <> "savenew" Then Admin_footer
CloseConn
Set MyNewCloud = Nothing

%>