upload.asp

来自「top-cms内容管理系统」· ASP 代码 · 共 40 行

<%
'###########################################################################################
'*  程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'*  系统版本: 1.0 0215
'*  版权所有: www.Net-Develop.com
'*  程序设计: 江南行客
'*  联系方式:
'*            OICQ：2503086
'*            EMAIL：[e-mail]
'*  网站地址: 
'*            http://www.net-develop.com  
'*            http://www.top-cms.com   
'*---------------------------------------------------------------------------------------
'*  Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="../common/common.asp" -->
<%
Set objCMS = Server.CreateObject("TopCMS.FileUpload")

if objCMS.ChkAdminPower then'检测是示登录用户

	'设定上传图片/文件类型及大小
	
	objCMS.AbsWebPath=AbsWebPath
	objCMS.DriverPath=DriverPath
	objCMS.EditorAllowUpImgType=EditorAllowUpImgType
	objCMS.EditorAllowUpImgSize=EditorAllowUpImgSize
	objCMS.EditorAllowUpFileType=EditorAllowUpFileType 
	objCMS.EditorAllowUpFileSize=EditorAllowUpFileSize

	objCMS.UploadFile
else
	objCMS.OutInfo "[对不起，您还没有登录，请先登录。]",""
end if
set objCMS=nothing
	%>