upload.asp
资源名称:MEIMS.rar [点击查看]
上传用户:ah_jiwei
上传日期:2022-07-24
资源大小:54044k
文件大小:2k
源码类别:
数据库编程
开发平台:
Visual C++
- <%@ CodePage=65001 Language="VBScript"%>
- <%
- Option Explicit
- Response.Buffer = True
- %>
- <%
- ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
- ' Copyright (C) 2003-2007 Frederico Caldeira Knabben
- '
- ' == BEGIN LICENSE ==
- '
- ' Licensed under the terms of any of the following licenses at your
- ' choice:
- '
- ' - GNU General Public License Version 2 or later (the "GPL")
- ' http://www.gnu.org/licenses/gpl.html
- '
- ' - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
- ' http://www.gnu.org/licenses/lgpl.html
- '
- ' - Mozilla Public License Version 1.1 or later (the "MPL")
- ' http://www.mozilla.org/MPL/MPL-1.1.html
- '
- ' == END LICENSE ==
- '
- ' This is the "File Uploader" for ASP.
- %>
- <!--#include file="config.asp"-->
- <!--#include file="util.asp"-->
- <!--#include file="io.asp"-->
- <!--#include file="commands.asp"-->
- <!--#include file="class_upload.asp"-->
- <%
- ' Check if this uploader has been enabled.
- If ( ConfigIsEnabled = False ) Then
- SendUploadResults "1", "", "", "This file uploader is disabled. Please check the ""editor/filemanager/connectors/asp/config.asp"" file"
- End If
- Dim sCommand, sResourceType, sCurrentFolder
- sCommand = "QuickUpload"
- sResourceType = Request.QueryString("Type")
- If ( sResourceType = "" ) Then sResourceType = "File"
- sCurrentFolder = GetCurrentFolder()
- ' Is Upload enabled?
- if ( Not IsAllowedCommand( sCommand ) ) then
- SendUploadResults "1", "", "", "The """ & sCommand & """ command isn't allowed"
- end if
- ' Check if it is an allowed resource type.
- if ( Not IsAllowedType( sResourceType ) ) Then
- SendUploadResults "1", "", "", "The " & sResourceType & " resource type isn't allowed"
- end if
- FileUpload sResourceType, sCurrentFolder, sCommand
- %>