压缩、解压

 

1. using System;
2. using System.Data;
3. using System.Configuration;
4. using System.Collections;
5. using System.Web;
6. using System.Web.Security;
7. using System.Web.UI;
8. using System.Web.UI.WebControls;
9. using System.Web.UI.WebControls.WebParts;
10. using System.Web.UI.HtmlControls;
11. using System.IO;
12. using Microsoft.Win32;
13. using System.Runtime.InteropServices;
14. using System.Diagnostics;
16. //该源码下载自www.51aspx.com(５１ａｓｐｘ．ｃｏｍ)
17. namespace TreeRar
18. {
19.     public partial class _Default : System.Web.UI.Page
20.     {
21.         protected void Page_Load(object sender, EventArgs e)
22.         {
23.             //递归展示文件目录
24.             string[] dir = Directory.GetDirectories(Server.MapPath("//"));
25.             Response.Write("<table   width=100%   border=1   rules=rows   cellspacing=0   colspacing=0><tr   height=60   bgColor=#339900><td colspan=3 style=/"color=#FFFFFF/">目录列表：</td></tr>");
26.             for (int i = 0; i < dir.Length; i++)
27.             {
28.                 string href = dir[i];
29.                 href = "http://"+Request.Url.Authority.ToString() + href.Substring(href.LastIndexOf("//"));
30.                 Response.Write("<tr     onmouseout=/"this.style.backgroundColor='#ffffff'/"   onmouseover=/"this.style.backgroundColor='#cccccc'/"><td> </td><td>" + dir[i] + "</td><td><a   href=" + href + ">打开</a></td></tr>");
31.             }
32.             Response.Write("</table>");
33.             lbTree.Text = Server.MapPath("//");
34.             //   在此处放置用户代码以初始化页面   
35.         }
37.         //得到当前IP
38.         private string GetIP()
39.         {
40.             string[] IP_Ary;
41.             string strIP, strIP_list;
42.             strIP_list = Request.ServerVariables["HTTP_X_FORWARDED_FOR"];
43.             if (strIP_list != null && strIP_list != "")
44.             {
45.                 strIP_list = strIP_list.Replace("'", "");
46.                 if (strIP_list.IndexOf(",") >= 0)
47.                 {
48.                     IP_Ary = strIP_list.Split(',');
49.                     strIP = IP_Ary[0];
50.                 }
51.                 else
52.                 {
53.                     strIP = strIP_list;
54.                 }
55.             }
56.             else
57.             {
58.                 strIP = "";
59.             }
60.             if (strIP == "")
61.             {
62.                 strIP = Request.ServerVariables["REMOTE_ADDR"];
63.                 strIP = strIP.Replace("'", "");
64.             }
65.             return strIP;
66.         }
69.         protected void btnZip_Click(object sender, EventArgs e)
70.         {
71.           //压缩
72.         String my51aspxRar;
73.         RegistryKey my51aspxReg;
74.         Object my51aspxObj;
75.         String my51aspxInfo;
76.         ProcessStartInfo my51aspxStartInfo;
77.         Process my51aspxProcess;
78.         try
79.         {
80.             my51aspxReg = Registry.ClassesRoot.OpenSubKey(@"Applications/WinRAR.exe/Shell/Open/Command");
81.             my51aspxObj = my51aspxReg.GetValue("");
82.             my51aspxRar = my51aspxObj.ToString();
83.             my51aspxReg.Close();
84.             my51aspxRar = my51aspxRar.Substring(1, my51aspxRar.Length - 7);
85.             my51aspxInfo = "a  -r  -ep1 51aspx.rar " + lbTree.Text + @"rar/51aspx.txt "+ lbTree.Text + @"rar";//这里为rar的压缩命令格式（也可以自行扩展）
86.             my51aspxStartInfo = new ProcessStartInfo();
87.             my51aspxStartInfo.FileName = my51aspxRar;
88.             my51aspxStartInfo.Arguments = my51aspxInfo;
89.             my51aspxStartInfo.WindowStyle = ProcessWindowStyle.Hidden;
90.             my51aspxStartInfo.WorkingDirectory = lbTree.Text + "rar"; ;//获取或设置要启动的进程的初始目录。
91.             my51aspxProcess = new Process();
92.             my51aspxProcess.StartInfo = my51aspxStartInfo;
93.             my51aspxProcess.Start();
94.             Response.Write("<font color=red>压缩成功</font>");
95.         }
96.         catch (Exception ex)
97.        {
98.             Response.Write(ex.ToString());
99.         }
101.         }
103.         protected void btnUnZip_Click(object sender, EventArgs e)
104.         {
105.          //解压缩
106.         String my51aspxRar;
107.         RegistryKey my51aspxReg;
108.         Object my51aspxObj;
109.         String my51aspxInfo;
110.         ProcessStartInfo my51aspxStartInfo;
111.         Process my51aspxProcess;
112.         try
113.         {
114.             my51aspxReg = Registry.ClassesRoot.OpenSubKey(@"Applications/WinRar.exe/Shell/Open/Command");
115.             my51aspxObj = my51aspxReg.GetValue("");
116.             my51aspxRar = my51aspxObj.ToString();
117.             my51aspxReg.Close();
118.             my51aspxRar = my51aspxRar.Substring(1, my51aspxRar.Length - 7);
119.             my51aspxInfo = " X " + lbTree.Text + @"rar/51aspx.rar " + " " + lbTree.Text + @"unRar";
120.             my51aspxStartInfo = new ProcessStartInfo();
121.             my51aspxStartInfo.FileName = my51aspxRar;
122.             my51aspxStartInfo.Arguments = my51aspxInfo;
123.             my51aspxStartInfo.WindowStyle = ProcessWindowStyle.Hidden;
124.             my51aspxProcess = new Process();
125.             my51aspxProcess.StartInfo = my51aspxStartInfo;
126.             my51aspxProcess.Start();
127.             Response.Write("<font color=red>解压缩成功</font>");
128.         }
129.         catch (Exception ex)
130.         {
131.             Response.Write(ex.ToString());
132.         }
134.         }
135.     }
136. }