–
轉(zhuǎn)移：
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”) 
MyFileObject.CopyFile   server.MapPath(“NewsFile”&sSaveFileName&””),server.MapPath(“”&sTitle&””&sSaveFileName&””) ”第一個(gè)是源路徑，第二是目標(biāo)路徑，可為虛擬路徑和物理路徑。
創(chuàng)建并寫入.htm文件：
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
   Set oTextStream = oFSO.CreateTextFile(server.MapPath(“”&sTitle&””)&””&sTitle&”.htm”,true)
   oTextStream.Write sContenta
  oTextStream.Close

壓縮文件：
Dim CmdDirr,RarNameDirr,RarSourceDirr
CmdDirr=Server.MapPath(“dos”)&”” ‘cmd.exe和rar.exe存放的路徑
RarNameDirr=Server.MapPath(“content”)&””&sTitle&”” ‘壓縮成rar的名字和路徑
RarSourceDirr=Server.MapPath(“” & sTitle & “”)&”” ‘要壓縮的文件路徑和名字
   Dim Cmd,Shell
   Cmd=CmdDirr&”cmd.exe /c “&CmdDirr&”Rar.exe a  -ep1 -o+ ” ‘ -ep1 -o+分別為兩個(gè)開關(guān)命令具體可參考WinRar的幫助
   Cmd=Cmd&RarNameDirr&” “&RarSourceDirr
   On Error Resume Next
   Set Shell = Server.CreateObject(“WScript.Shell”)
   If Err or IsObject(Shell)=False Then
      If Err Then Err.Clear
      Response.Write “沒有操作Shell權(quán)限…”
      Response.End
   End If
   On Error Resume Next
   Shell.Run Cmd,1,True
   If Err Then
      Err.Clear
      Response.Write “壓縮文件時(shí)出錯(cuò)，可能沒有操作權(quán)限”
 
      Response.End
   End If

將壓縮包寫進(jìn)數(shù)據(jù)庫(kù)：
szFilepath =””&server.MapPath(“content”)&”/”&sTitle&”.rar” ‘壓縮包的地址和名字
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(szFilepath) Then ‘判斷壓縮文件是否存在
  Set ffile=fso.GetFile(szFilepath)
  If ffile.size > 0 Then ‘壓縮文件是否為空
   Dim objStream
   Set objStream = Server.CreateObject(“ADODB.Stream”)
   With objStream
    .Type = 1
    .Mode = 0
    .Open
    .LoadFromFile szFilepath
     ors(“D_jdpath”).AppendChunk objStream.Read ‘寫進(jìn)數(shù)據(jù)庫(kù)
    .Close
   End With
  

set objstream=nothing
  
  Else
  Response.Write “<script language=’javascript’>alert(‘文件不存在！’)</script>”
  End If
  Set ffile=Nothing
  end if

從數(shù)據(jù)庫(kù)中讀出：
szFPath = server.MapPath(“./”)&””&title&”.rar” ‘壓縮文件存放的地址
Set fso=createObject(“Scripting.FileSystemObject”)
IF fso.FileExists(szFPath) Then ‘判斷壓縮文件地址有沒有沖突
fso.DeleteFile(szFPath)
End IF
Dim objStream
Set objStream = Server.CreateObject(“ADODB.Stream”)
With objStream
  .Type = 1
  .Mode = 0
  .Open
  .Write(rs(“D_jdpath”))  ‘從數(shù)據(jù)庫(kù)里直接讀出來(lái)，這里的數(shù)據(jù)庫(kù)字段類型在MYSQL中為IMG在ACCESS中為OLE
  .SaveToFile(szFPath)
  .Close
End With
Set objStream = Nothing

解壓文件：
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso
Mlpath=server.MapPath(“dos”)&””    ‘存放RAR.EXE和CMD.EXE的路徑
ylj=Server.mappath(“data”)&””  ‘解壓文件后所放的路徑
ywj=Server.MapPath(“data”)&”MMGG.rar”  ‘要解壓的RAR文件
Set Shell = Server.CreateObject(“WScript.Shell”)

rarcomm=Mlpath&”cmd.exe /c “&Mlpath&”rar.exe x -t -o+ -p- “

cmd=rarcomm&ywj&” “&ylj
RetCode = Shell.Run(cmd,1, False)
完成！