<!--#include file="../../conn.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/check.asp"-->
<!--#include file="../inc/filebox.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp Content Management System Version 4.0
' 文件名称：admin_upload.asp
' 更新日期：2008-11-16
' 官方网站：新云网络(www.NewAsp.net www.NewAsp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2008 NewAsp.net - All Rights Reserved.
' newasp is a trademark of NewAsp.net
'=====================================================================
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Server.ScriptTimeout = 9999
%>
<table class="table1" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<td class="tableline linetitle" width="100" align="left">系统广告管理</td>
		<td class="tableline" width="*" align="right"><a href="admin_admanage.asp">管理首页</a>
			 - <a href="admin_admanage.asp?action=add">添加广告</a>
			 - <a href="admin_admanage.asp?action=board">添加广告位</a>
			 - <a href="admin_admanage.asp?action=create&stype=all&boardid=0" style="color:red;">生成所有广告JS文件</a>
			 - <a href="admin_upload.asp?action=img&stype=ad" style="color:blue;">上传文件管理</a>
			 - <a href="admin_data.asp">服务器信息</a>
		</td>
	</tr>
</table>
<%
If Not ChkAdmin("AdFileAdmin") Then
	Call Transfer_error()
End If

Action=LCase(Request("action"))
Select Case Trim(Action)
Case "clear"
	Call ClearUploadFile()
Case "delete"
	Call DelUselessFile()
Case "del"
	Call DelFile()
Case "delalldirfile"
	Call DelAllDirFile()
Case "delthisallfile"
	Call DelThisAllFile()
Case "delemptyfolder"
	Call DelEmptyFolder()
Case Else
	Call showUploadMain()
End Select
If FoundErr=True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
NewAsp.PageEnd
%>