ASP在线升级类文件(原创)

点击这里了解 如何使用本类文件
%
 
 
  Cls_oUpdate
  
  
  
  
  
  
  
  
  
  
   LocalVersion LastVersion FileType
   UrlVersion UrlUpdate UpdateLocalPath Info
   UrlHistory
   sstrVersionList sarrVersionList sintLocalVersion sstrLocalVersion
   sstrLogContent sstrHistoryContent sstrUrlUpdate sstrUrlLocal
  
    Class_Initialize
   
   
   UrlVersion      
   
   
   
   UrlUpdate      
   
   
   
   UpdateLocalPath   
   
   
   UrlHistory      
   
   
   Info         
   
   
   LocalVersion     
   
   
   LastVersion     
   
   
   FileType       
   
  
  
  
    Class_Terminate
  
   
  
  
  
    doUpdate
   doUpdate  False
   
   UrlVersion     UrlVersion
   UrlUpdate     UrlUpdate
   
   
    UrlVersion     UrlUpdate    
    Info  
     
    
   
    UrlUpdate     
    sstrUrlUpdate  UrlUpdate  
   
    sstrUrlUpdate  UrlUpdate
    
   
    UpdateLocalPath     
    sstrUrlLocal  UpdateLocalPath  
   
    sstrUrlLocal  UpdateLocalPath
       
   
   
   sstrLocalVersion  LocalVersion
   sintLocalVersion  sstrLocalVersion  
   sintLocalVersion  toNumsintLocalVersion 
   
   
    IsLastVersion   
   
   
   doUpdate  NowUpdate
   LastVersion  sstrLocalVersion
   
  
  
  
  
     IsLastVersion
    
     iniVersionList 
     
      i
     IsLastVersion  True
      i   to sarrVersionList
       sarrVersionListi  sintLocalVersion 
       
       IsLastVersion  False
       Info  
        
       
     
    
     
     IsLastVersion  True
     Info  
        
    
  
  
  
     iniVersionList
    iniVersionList  False
    
     strVersion
    strVersion  getVersionList
    
    
     strVersion   
     Info  
      
     
    
    sstrVersionList  strVersion  
    sarrVersionList  sstrVersionList 
    
    iniVersionList  True
    
  
  
  
     getVersionList
    getVersionList  GetContentUrlVersion
    
  
  
  
     NowUpdate
     i
     i  sarrVersionList to  step -1
      doUpdateVersionsarrVersionListi
    
    Info    sstrUrlLocal  UrlHistory  
    
  
  
  
  
     doUpdateVersionstrVer
    doUpdateVersion  False
    
     intVer
    intVer  toNumstrVer   
    
    
     intVer  sintLocalVersion 
      
     
    
     strFileListContent arrFileList strUrlUpdate   
    strUrlUpdate  sstrUrlUpdate  intVer  FileType
    
    strFileListContent  GetContentstrUrlUpdate
    
     strFileListContent   
      
     
    
    
    sintLocalVersion  intVer
    sstrLocalVersion  strVer
    
     i arrTmp
    
    arrFileList  strFileListContent 
    
    
    sstrLogContent  
    sstrLogContent  sstrLogContent  strVer    
    
    
     i   to arrFileList
     
     arrTmp  arrFileListi 
     sstrLogContent  sstrLogContent    arrTmp
      doUpdateFileintVer    arrTmp arrTmp     
    
    
    
    sstrLogContent  sstrLogContent    
      sstrLogContent  
     sDoCreateFilesstrUrlLocal    intVer   _
                                           sstrLogContent sDoAppendFilesstrUrlLocal UrlHistory _
                                          strVer doUpdateFilestrSourceFile strTargetFile strContent strContent GetContentsstrUrlUpdate strSourceFile sDoCreateFilesstrUrlLocal strTargetFile strContent sstrLogContent sstrLogContent sstrLogContent sstrLogContent GetContentstrUrl GetContent oXhttp strContent oXhttp oXhttp strUrl False Send readystate strContent Responsebody strContent sBytesToBstrstrContent oXhttp Nothing GetContent strContent sBytesToBstrvIn objStream objStream objStreamType objStreamMode objStream objStream vIn objStreamPosition objStreamType objStream sBytesToBstr objStreamReadText objStream objStream nothing sDoCreateFilestrFileName ByRef strContent sDoCreateFile False strPath strPath strFileName strFileName -1 CreateDirstrPath ForReading ForWriting ForAppending fso f fso f fsoOpenTextFilestrFileName ForWriting True f strContent f fso nothing f nothing sDoCreateFile True sDoAppendFilestrFileName ByRef strContent sDoAppendFile False strPath strPath strFileName strFileName -1 CreateDirstrPath ForReading ForWriting ForAppending fso f fso f fsoOpenTextFilestrFileName ForAppending True f strContent f fso nothing f nothing sDoAppendFile True CreateDirByVal strLocalPath i strPath objFolder tmpPath tmptPath arrPathList intLevel strPath strLocalPath objFolder arrPathList strPath intLevel arrPathList I To intLevel I tmptPath arrPathList tmptPath tmptPath arrPathListI tmpPath tmptPath tmptPath objFolderFolderExiststmpPath objFolderCreateFolder tmpPath objFolder Nothing CreateDir False CreateDir True toNums default s s toNum s toNum default %

你可能感兴趣的:(ASP,asp,function,server,class,url,优化)