2024年5月26日发(作者：)

asp多文件上传类, 是从我们服务器上搞来的是病毒

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

function GetFilePath(FullPath,str)

If FullPath <> "" Then

GetFilePath = left(FullPath,InStrRev(FullPath, str))

Else

GetFilePath = ""

End If

End function

%>

<%

class clsUp '文件上传类

'------------------------

Dim Form,File

Dim AllowExt_ '答应上传类型(白名单)

Dim NoAllowExt_ '不答应上传类型(黑名单)

Private oUpFileStream '上传的数据流

Private isErr_ '错误的代码,0或true表示无错

Private ErrMessage_ '错误的字符串消息

Private isGetData_ '指示能否已施行过GETDATA进程

'------------------------------------------------------------------

'类的属性

Public Property Get Version

Version="上传类声明"

End Property