深圳有做网站公司,wordpress onethink,网站会员注册系统源码,网站维护套餐可以放在服务器上#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%