求组!关于asp参数传递和保留的问题!搞了两天了!!

e8088 2008-04-23 07:59:28
想写个基于FSO的文件管理起!但是返回上一目录中遇到到难题!请高手指点!这里返回上一级目录老是出错!还有显示当前目录文件夹也那里有问题!
希望大哥些帮帮忙!
这是演示地址:http://yuzhuang.host001.e80888.com/fso.asp
下面是代码


<script language=javascript>
function chfolder(selectitem){
form=document.forms[0];
form.selectItem.value=selectitem;
form.submit();
}
</script>
<%
Dim fs, f, f1, s, sf
set fs=server.CreateObject("scripting.filesystemobject")
on error resume next
path="d:\e8088\echsop"
hostdir=""
selectItem=Request("selectItem")
hostdir=Request("hostdir")
hostdir2=hostdir+"\"+selectItem
basedir=request("basedir")
if basedir="" then
set f=fs.GetFolder(path)
else
if selectItem=".." then
lastbasedir=basedir
set f=fs.GetFolder(lastbasedir)
else
path=basedir+"\"+selectItem
set f=fs.GetFolder(path)
end if
end if
set sf=f.SubFolders
%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" >
<form name=form1 method=post action="fso.asp"/>
<input type=hidden name="selectItem" value=""/>
<input type=hidden name="basedir" value="<%=path%>" />
<input type=hidden name="hostdir" value="<%=hostdir2%>" />
<tr >
<td colspan="3" background="image/floder_top.gif" height="26"> </td>
</tr>
<tr>
<td background="image/floder_left.gif" width="7" ></td>
<td>
<table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
<tr>
<td height="33" colspan="5" valign="middle" background="image/dir_back.gif">
<table width="100%" height="24" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle" width="24"><img src="image/back_floder.gif" width="24" height="24" border="0" /></td>
<td width="110" ><a href="javascript:chfolder('..');" title="返回上级目录">返回上级目录</a></td>
<td width="44" style="border:0px;" background="image/dir_left.gif"></td>
<td background="image/dir_middle.gif" width="560" style="border:0px;"><%=hostdir2%></td>
<td width="44" style="border:0px;" background="image/dir_right.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="image/type.gif" >  名称</td>
<td align="right" background="image/type.gif" height="33">大小</td>
<td background="image/type.gif" >    </td>
<td align="left" background="image/type.gif">类型</td>
<td align="left" background="image/type.gif">修改时间</td>
<%
For Each f1 in sf
%>
</tr>
<tr>
<td>
  <a href="javascript:chfolder('<%=f1.name%>');" title="点击选择文件夹<%=f1.name%>"><img src="image/folder.gif" width="16" height="16" border="0"/><%=f1.name%></a>
</td>
<td align="center"></td>
<td>    </td>
<td align="left"><%=f1.Type%></td>
<td align="left"><%=f1.DateLastModified%></td>
</tr>
<%
next
%>
<%
set objFiles=f.Files
for each objFile in objFiles
%>
<tr>
<td>  <%=objFile.name%></td>
<td align="right">
<%
if (objFile.Size\1024)<>"0" then
Response.Write(objFile.Size\1024&"Kb")
else
Response.Write(objFile.Size&"K")
end if
%>
<td>    </td>
<td align="left"><%=objFile.Type%></td>
<td align="left"><%=objFile.DateLastModified%></td>
</tr>
<%
next
set f1=nothing
set f=nothing
set fs=nothing
%>
</table>
</td>
<td background="image/floder_right.gif" width="7"></td>
</tr>
<tr>
<td colspan="3" background="image/floder_bottom.gif" height="77"> </td>
</tr>
</table>

...全文
29 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Anlige 2008-04-30
你可以到我的资源里看看~有一个文件管理程序~
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-23 07:59
社区公告
暂无公告