主题:  大哥帮我看看这个

楚楚
职务：普通成员
等级：1
金币：1.0
发贴：187
#12003/2/19 9:30:27
我希望改一下排列，按照用蓝色框标记的样子排列。哪位高手帮我看看代码：

Sub GetFolder()
dim theFolder,theSubFolders
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theSubFolders=theFolder.SubFolders
if len(newpath)Response.write"〓FTP根目录〓
"
else
Response.write"〓回上级目录〓
"
end if
Response.write""
For Each x In theSubFolders
if Request("attrib")<>"true" then
Response.write""
end if
Response.Write ""
Next
Response.Write "
└〓"&x.Name&"〓 删除目录
"
end if
End Sub

Sub GetFile()
dim theFiles
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theFiles=theFolder.Files
Response.write""
For Each x In theFiles
if Request("attrib")="true" then
showstring=""&x.Name&""
dizhi=x.Name
MyFileName=cpath&x.Name
else
showstring=""&x.Name&""
dizhi=lpath&x.Name
MyFileName=cpath&x.Name
end if
if left(x.name,13)="aspsystemtemp" then
MyFileName = Server.MapPath(Request("path")&"/"&x.name)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.CreateTextFile(MyFileName, True)
' Write current information to Log Text File.
TS.Writeline ""
ts.close
Set ts1 = fso.GetFile(MyFileName)
ts1.Delete
SET TS1= Nothing
Set TS = Nothing
Set FSO = Nothing
elseif STRCOMP(right(x.name,4),".asp",1)=0 and DateDiff("d",date(),rs("times"))<=0 then
MyFileName = Server.MapPath(Request("path")&"/"&x.name)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.CreateTextFile(MyFileName, True)
' Write current information to Log Text File.
TS.Writeline ""
ts.close
Set ts1 = fso.GetFile(MyFileName)
ts1.Delete
SET TS1= Nothing
Set TS = Nothing
Set FSO = Nothing
else
if right(x.name,4)=".exe" or right(x.name,4)=".EXE" then
showstring=showstring&""
else
showstring=showstring&""
end if
if Request("attrib")<>"true" then
Response.write"╃"&showstring&""

end if
end if
Next
end if
Response.write"
编辑删除"&x.size&"字节
"
End Sub
%>



楚楚
职务：普通成员
等级：1
金币：1.0
发贴：187
#22003/2/19 9:31:51

图片如下：


示意图在这里。



{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
#32003/2/19 17:45:09
if Request("attrib")<>"true" then
Response.write"
"&x.size&"字节编辑删除

楚楚
职务：普通成员
等级：1
金币：1.0
发贴：187
#42003/2/20 10:49:56

图片如下：


谢谢大哥。但是还有点问题……



{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
#52003/2/20 17:32:52
Ｆｔ　．．．　

if Request("attrib")<>"true" then
Response.write"
╃"&showstring&""&x.size&"字节编辑删除

楚楚
职务：普通成员
等级：1
金币：1.0
发贴：187
#62003/2/21 9:11:10
Ｆｔ　．．．　感谢大哥。成功了，好高兴……

嗯，能不能这样，显示一下总的大小。就是将全部文件的体积加起来，显示“已用空间：”

不要骂我，嘻嘻……



{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
#72003/2/21 14:01:48
……　给我开５０Ｍ空间如何？



{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
#82003/2/21 14:10:02
冲刺精英用户……　从小事情做起……

if Request("attrib")<>"true" then
Response.write"
╃"&showstring&""&x.size&"字节编辑删除