一个asp+ 版本的 Active Server Explorer,一个asp+ 版本的 Active Server Explorer
【 tulaoshi.com - ASP.NET 】
/*File[] Files = thisOne.GetFiles();
Response.Write("<ul");
for (int i=0; i < Files.Length; i++)
{
Response.Write("<li<a href="viewfile.aspx?file=");
Response.Write(Server.UrlEncode(Files[i].FullName));
Response.Write(""" + Files[i].Name);
Response.Write("</a<br");
}
Response.Write("</ul");
}
catch (Exception e)
{
Response.Write("错误: <i");
Response.Write(e.ToString() + "</i");
Response.End();
}
%
查看文件的详细信息:
<% @Page Language=VB %
<% @Import Namespace="System" %
<% @Import Namespace="System.IO" %
<html
<head<title编辑文件</title</head
<body
<%
dim File as string
File = Request.QueryString.Get("file")
thisOne = new File(File)
'string File = Request.QueryString.Get("file");
'File thisOne = new File(File);
%
<table
<tr<td文件名称:</td<td<%=thisOne.Name%</td</tr
<tr<td文件的全名:</td<td<%=thisOne.FullName%</td</tr
<tr<td所在目录:</td<td<%=thisOne.DirectoryName%</td</tr
<tr<td文件创建时间:</td<td<%=thisOne.CreationTime.ToString()%</td</tr
<tr<td文件大小:</td<td<%=thisOne.Length.ToString()% Bytes</td</tr
<tr<td最近一次的存取时间:</td<td<%=thisOne.LastAccessTime.ToString()%</td</tr
<tr<td最近一次更新时间:</td<td<%=thisOne.LastWriteTime.ToString()%</td</tr
</table
<%
ss=split(thisOne.Name,".")
fileent=lcase(ss(ubound(ss)))
if fileent="txt" or fileent="asp" or fileent="aspx" then
theReader = thisOne.OpenText()
Do
strIn = theReader.ReadLine()
response.write(strIn)
Loop Until strIn = Null
%
<form action="savefile.asp" method=post
<textarea cols=40 rows=30<%=strIn%</textarea
<input type=hidden name=filename value="<%=thisOne.FullName%"
<br
<input type=submit value="保存更改"
</form
<%
end if
%
</body
</html
好了一个完整的 ase 程序还需要 删除 拷贝 移动和
来源:http://www.tulaoshi.com/n/20160129/1492284.html
看过《一个asp+ 版本的 Active Server Explorer》的人还看了以下文章 更多>>