帮我写一个目录浏览程序(asp)

来源：百度知道 编辑：UC知道 时间：2024/06/19 04:23:38
请帮我写一个asp的目录浏览程序
功能有：
文件目录名 文件大小 更新日期
点击文件夹就可以进到该文件夹下
点击文件就可以浏览这个文件，如果是rar的文件就可以下载这个文件。
我的分数只有14分。

<%@ LANGUAGE="VBSCRIPT" %>

<%

Dim sMapPath,strUrl
strUrl=request("ur")
response.write strurl
if strUrl<>"" then

sMapPath=server.MapPath(strUrl)
else

sMapPath = "e:\"
end if
%>

<HTML>
<HEAD> <TITLE>File Viewer</TITLE> </HEAD>
<BODY>
<TABLE width="100%" border=1 bordercolor="#000000" align="left" cellpadding="4" cellspacing="0">
<TR align="left" valign="top" bgcolor="#000000">
<TD bgcolor="#FFFFFF">
<form name="form1" method="get" action="folder.asp" style="margin:0px;padding:0px">
输入目录的名称
<input type="text" name="url">