亚洲最大看欧美片,亚洲图揄拍自拍另类图片,欧美精品v国产精品v呦,日本在线精品视频免费

  • 站長資訊網(wǎng)
    最全最豐富的資訊網(wǎng)站

    ASP 實現(xiàn)壓縮與解壓代碼

    壓縮:
    <%
    Dim CmdDir,RarNameDir,RarSource
    CmdDir=Server.MapPath(“dos”)&”” ‘//cmd.exe和rar.exe存放的路徑
    RarNameDir=Server.MapPath(“data”)&”MMGG” ‘//壓縮為”MMGG.rar”
    RarSourceDir=Server.MapPath(“data”)&”” ‘//將整個”AA”文件夾壓縮
    Call Rar(CmdDir,RarNameDir,RarSourceDir)

    Sub Rar(ByVal CmdDir,ByVal RarNameDir,RarSourceDir)
       Dim Cmd,Shell
       Cmd=CmdDir&”cmd.exe /c “&CmdDir&”Rar.exe a  -ep1 -o+ ” ‘// -ep1 -o+分別為兩個開關命令具體可參考WinRar的幫助
       Cmd=Cmd&RarNameDir&” “&RarSourceDir
       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權限…”
          Response.End
       End If
       On Error Resume Next
       Shell.Run Cmd,1,True
       If Err Then
          Err.Clear
          Response.Write “壓縮文件時出錯,可能沒有操作權限”
          Response.End
       End If
    End Sub
    %>

     

     

    解壓:

    <%

    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)

    %>

     

     

    分享到: 更多

    贊(0)
    分享到: 更多 (0)
    網(wǎng)站地圖   滬ICP備18035694號-2    滬公網(wǎng)安備31011702889846號