admin_downfiles.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_ClsSysTem.asp"-->
<%
Cl.Page_Admin	= True
Cl.Get_WebSetting()
if Not Cl.ChkAdminLogin then
	Cl.ShowErr("<br /><li>您未登录或者您无此操作权限！</li>")
	Response.end
end if
Dim FileUrl
FileUrl=Trim(Request("f"))
if FileUrl="" then Cl.ShowErr("请提交正确参数！")
FileUrl=Replace(FileUrl,"{$","{$")
FileUrl=Replace(FileUrl,"$}","}")
Response.redirect Cl.ReplaceDir(FileUrl)
CloseAllObj
Response.write "<script language='Javascript'>window.close()</script>"
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>