查看服务器磁盘、文件的aspx

listdrives.aspx

1 @Page Language="C#" 
1 @Import Namespace="System" 
1 @Import Namespace="System.IO" 
 1   
 2string qdrives = Environment.OSVersion.ToString();   
 3string qnewline=Environment.SystemDirectory.ToString();   
 4string qmo=Environment.WorkingSet.ToString();   
 5int qtick=Environment.TickCount;   
 6qtick/=60000;   
 7string[] achDrives = Directory.GetLogicalDrives();   
 8int nNumOfDrives = achDrives.Length;   
 9Response.Write("您的系统是:");   
10Response.Write(qdrives);   
11Response.Write("

<br/>

1");   
2Response.Write("您的可用内存是:");   
3Response.Write(qmo);   
4Response.Write("

<br/>

1");   
2Response.Write("自上次重启已经有");   
3Response.Write(qtick.ToString());   
4Response.Write("分钟了");   
5Response.Write("

<br/>

1");   
2Response.Write("

<br/>

1");   
2Response.Write("

<br/>

1");   
2Response.Write("查看你的磁盘:"); 
3
4Response.Write("

<ul>");
for (int i=0; i &lt; nNumOfDrives; i++)
{
Response.Write("<li><a href='"listdir.aspx?dir=");' response.write(""="" response.write(server.urlencode(achdrives[i]));="">" + achDrives[i]);
Response.Write("</a><br/>");
}
Response.Write("</li></ul>

1");   

listdir.aspx

1 @Page Language="C#" debug="true" 
1 @Import Namespace="System.IO" 
1   
2string strDir2List = Request.QueryString.Get("dir");   
3Directory thisOne = null; 
4
5try   
6{   
7thisOne = new Directory(strDir2List);   
8// Auslesen der Eigenschaften der Verzeichnisses   
9Response.Write("

<p>创建时间: " + thisOne.CreationTime.ToString() + "</p>

1");   
2Directory[] subDirectories = thisOne.GetDirectories();   
3Response.Write("

<ul>");
Response.Write("-------------------------------文件夹-------------------------");
Response.Write("<br/>");
for (int i=0; i &lt; subDirectories.Length; i++)
{
Response.Write("<li><a href='"listdir.aspx?dir=");' response.write(""="" response.write(server.urlencode(subdirectories[i].fullname));="">" + subDirectories[i].Name);
Response.Write("</a><br/>");
}
Response.Write("</li></ul>

1");   
2  
3File[] theFiles = thisOne.GetFiles();   
4Response.Write("

<ul>");
Response.Write("-------------------------------文件----------------------------");
Response.Write("<br/>");
for (int i=0; i &lt; theFiles.Length; i++)
{
Response.Write("<li><a href='"showfile.aspx?file=");' response.write(""="" response.write(server.urlencode(thefiles[i].fullname));="">" + theFiles[i].Name);
Response.Write("</a><br/>");
}
Response.Write("</li></ul>

1");   
2}   
3catch (Exception e)   
4{   
5Response.Write("由于以下原因无法实现此功能: ");   
6Response.Write(e.ToString() + "");   
7Response.End();   
8}   

showfile.aspx

1 @Page Language="C#" Debug="true"
1 @Import Namespace="System.IO" 
1<html>
2<head><title>File Info</title></head>
3<body>   

string strFile2Show = Request.QueryString.Get("file");
File thisOne = new File(strFile2Show);

 1<table>
 2<tr><td>文件名:</td><td>```
 3=thisOne.Name
 4```</td></tr>
 5<tr><td>全名:</td><td>```
 6=thisOne.FullName
 7```</td></tr>
 8<tr><td>文件创建日期:</td><td>```
 9=thisOne.CreationTime.ToString()
10```</td></tr>
11<tr><td>文件大小:</td><td>```
12=thisOne.Length.ToString()
13``` Bytes</td></tr>
14<tr><td>上次使用时间:</td><td>```
15=thisOne.LastAccessTime.ToString()
16```</td></tr>
17<tr><td>上次修改时间:</td><td>```
18=thisOne.LastWriteTime.ToString()
19```</td></tr>
20</table>

StreamReader theReader = thisOne.OpenText();
char[] theBuffer = new char[1000];
int nRead = theReader.ReadBlock(theBuffer, 0, 1000);
Response.Write("<br/>");
Response.Write(" 文件内容预览:");
Response.Write("<br/>");
Response.Write("<pre>");
Response.Write(Server.HtmlEncode(new String(theBuffer,0,nRead)));
Response.Write("</pre>");

1
2</body>
3</html>

正在丰富成管理用,整合上传,修改,删除等管理功能
不知有没有这么多时间了
努力吧,朋友

Published At
Categories with Web编程
Tagged with
comments powered by Disqus