用asp实现文件浏览、上传、下载的程序(9)

日期：2020-05-13 栏目：程序人生 浏览：次

Response.write("<td width='200' bgcolor='#ECFFD9'>"&p&"</td>") 
Response.write("<td width='100' bgcolor='#ECFFD9'>") 
Response.write("<a href=?foldinfo="&foldinfo&"&action=deletedir&deletedir="&s&">DEL</a>") 
Response.write("</td>") 

Response.write("</tr>") 
Response.write("</table>") 

    Next 
End Sub 

Sub showfolderinfo(folderspc) 
set MyFileObject=Server.CreateObject("scripting.FileSystemObject") 


Set MyFolder=MyFileObject.GetFolder(folderspc) 

for each thing in MyFolder.Files 
    Set afile=MyFileObject.GetFile(thing) 
    filenamecode=afile.name 
    filedetail=folderspc+filenamecode 
    filedetail=replace(filedetail,"\","*s_p_l_i_t*") 
    filesize=afile.size 
    lastmodify=afile.DateLastModified 

Response.write("<table width='750' border='0' cellspacing='1' cellpadding='1'>") 
Response.write("<tr>") 
Response.write("<td width='300' bgcolor='#f4f4ff'><font face='Wingdings' font size='3pt'>2</font>"&filenamecode&"</td>") 
Response.write("<td width='180' bgcolor='#f4f4ff'>"&filesize&"</td>") 
Response.write("<td width='200' bgcolor='#f4f4ff'>"&lastmodify&"</td>") 
Response.write("<td width='100' bgcolor='#f4f4ff'>") 
Response.write("<a href=?foldinfo="&foldinfo&"&action=deletefile&filename="&filenamecode&">DEL</a> ") 
Response.write("<a href=?foldinfo="&foldinfo&"&action=download&filename="&filenamecode&">DL</a>") 
Response.write("</td>") 
Response.write("</tr>") 
Response.write("</table>") 
Next 
End sub 
%> 
</body> 
</html>