网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
asp吧 关注：33,665贴子：110,974
  • 1回复贴，共1页

没事干，写的基于AspUpLoad的上传。

<%
'检测组件
Function IsObjInstalled(strClassString)
     On Error Resume Next
     IsObjInstalled = False
     Err=0
     Dim xTestObj
     Set xTestObj = Server.CreateObject(strClassString)
     If 0 = Err Then IsObjInstalled = True
     Set xTestObj = Nothing
     Err = 0
End Function
'基于AspUpLoad的上传类
Class AspUpLoad
     Private ImageCover'是否覆盖
     Private ImageMaxSize'上传大小
     Private ImageExt '文件名
     Private ImageFile '保存路径
     '是否覆盖
     Public Property Let Cover(v)
         ImageCover=v
     End Property
     Public Property Get Cover()
         Cover=ImageCover
     End Property
     '文件大小
     Public Property Let MaxSize(v)
         ImageMaxSize=v
     End Property
     Public Property Get MaxSize()
         MaxSize=ImageMaxSize
     End Property
     '文件名
     Public Property Let Ext(v)
         ImageExt=v
     End Property
     Public Property Get Ext()
         Ext=ImageExt
     End Property
     '保存路径
     Public Property Let Path(v)
         ImageFile=v
     End Property
     Public Property Get Path()
         Path=ImageFile
     End Property
     '初始化数据
     Public Sub Class_Initialize        
         ImageCover=False
         ImageMaxSize=10*1024
         ImageExt=".jpg|.gif|.bmp"
         ImageFile="."
     End Sub
    
     Public Sub Open(UpLoad,MyFiles)
         Dim ThisExt
         Dim Cont
         If IsObjInstalled("Persits.Upload") then
             Set Upload = Server.CreateObject("Persits.Upload")



             Upload.OverwriteFiles = ImageCover
             Upload.SetMaxsize ImageMaxSize,True
             Cont=Upload.Save()
             '没有选择文件
             If Cont<1 then
                 Response.Write(Error(2))
             End If
            
             For each MyFiles in Upload.Files
                 If Not CheckFileExt(MyFiles.Ext) then
                     Response.Write(MyFiles.FileName&"： "&Error(3))
                     Exit For
                 End If
                 newname = year(now()) & month(now()) & day(now()) & hour(now()) & minute(now()) & second(now())
                 MyFiles.SaveAs Server.MapPath(ImageFile) & "\" & newname & MyFiles.Ext
             Next
         Else
             Response.Write Error(1)
         End If
     End Sub
    
     Private Function CheckFileExt(fileEXT)
         filetype=split(ImageExt,"|")
         for i=0 to ubound(filetype)
             If fileExt=filetype(i) then
                 CheckFileExt=true
                 Exit Function
             Else
                 CheckFileExt=false
             End If
         next
     End Function
    
     Public Function Error(v)
         If v=1 then
             Error="Internet No AspUpLoad Object!"
         ElseIf v=2 then
             Error="No Files!"
         ElseIf v=3 then
             Error="Files Type False!"
         ElseIf v=4 then
             Error="Files Size Max!"
         Else
             Error=0
         End If
     End Function
     Public Sub Class_Terminate
        
     End Sub
    
End Class
%>


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 1回复贴，共1页
分享到: