 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
把以下文件建在同一目录，IIS中确定文件操作组件可用，即可用ASP列出文件和目录了 ----文件folder.inc----- <% folderini="c:" %> ----文件index.asp----- <!--#Include file="folder.inc"--> <html> <head> <title>FileSearch</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <frameset rows="80,*" frameborder="1" border="1" framespacing="1" cols="*"> <frame name="topFrame" scrolling="NO" src="up.asp" > <frame name="mainFrame" src="getinfo.asp?foldinfo=<%=folderini%>"> </frameset> <noframes><body bgcolor="#FFFFFF"> </body></noframes> </html> ----文件up.asp----- <!--#Include file="folder.inc"--> <html><title>Up</title> <head> <style type="text/css"> <!-- .ttl1_txt { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} .cnt_txt { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} A:link{color:#0000ff;text-decoration: none} A:visited {color:#0000ff;text-decoration: none} A:active {color:#33ccff;text-decoration: underline} A:hover {color:#33ccff;text-decoration: underline} body{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} Tr{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} TD{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt --> </style> </head> <table width="780" border="0" cellspacing="1" cellpadding="1"> <tr align="center"> <td align="center"><a href="getinfo.asp?foldinfo=<%=folderini%>" target="mainFrame">List All Folder/File Info</a> </td> </tr> </table> </html> ----文件getinfo.asp----- <!--#Include file="folder.inc"--> <%foldinfo=trim(Request.Querystring("foldinfo"))%> <html> <head> <title>GetInfo</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css"> <!-- .ttl1_txt { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} .cnt_txt { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} A:link{color:#0000ff;text-decoration: none} A:visited {color:#0000ff;text-decoration: none} A:active {color:#33ccff;text-decoration: underline} A:hover {color:#33ccff;text-decoration: underline} body{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} Tr{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} TD{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt --> </style> <Script Language="JavaScript"> function fileinfo(filenamecode,filesize,lastmodify){ //document.write(filenamecode); window.open("fileinfo.asp?filename="+filenamecode+"&filesize="+filesize+"&lastmodify="+lastmodify,"", "height=200,width=450,resizable=yes,scrollbars=yes,status=yes,toolbar=no, menubar=no,location=no"); } </Script> </head> <body bgcolor="#FFFFFF" text="#000000"> <table width="780" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="cnt_txt"> <font color="#000000">Current Folder:--</font><font color="#FF7120"><%=foldinfo%></font></td> </tr> <tr> <td> <hr size="1"> </td> </tr> <tr> <td> <table width="780" border="0" cellspacing="1" cellpadding="1"> <tr bgcolor="#00CC00"> <td width="300" class="cnt_txt">Folder Name:</td> <td width="180" class="cnt_txt">Size:</td> <td width="300" class="cnt_txt">LastModify:</td> </tr> </table> </td> </tr> <tr> <td align="right" class="cnt_txt"> <% upfolder=left(foldinfo,len(foldinfo)-1) upfolder=left(upfolder,InstrRev(upfolder, "")) if foldinfo<>folderini then response.write("<a href=\\\'getinfo.asp?foldinfo="&upfolder&"\\\'>Parent Folder</a>") else response.write("Parent Folder") end if%> </td> </tr> <tr> <td class="cnt_txt"> <% ShowFolderList(foldinfo) %> </td> </tr> <tr> <td class="cnt_txt"> <table width="780" border="0" cellspacing="1" cellpadding="1"> <tr bgcolor="#009999"> <td width="300">File Name:</td> <td width="180">Size:</td> <td width="300">LastModify:</td> </tr> </table> </td> </tr> <tr> <td class="cnt_txt"> <% showfolderinfo(foldinfo)%> </td> </tr> <tr> <td> </td> </tr> </table> <% Sub ShowFolderList(folderspec) Dim fs, f, f1, fc, s, schild,p,fsize Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.SubFolders For Each f1 in fc s = f1.name \\\'s = s & vbCrLf p = f1.DateLastModified fsize = f1.Size schild=folderspec&s&"" Response.write("<table width=\\\'780\\\' border=\\\'0\\\' cellspacing=\\\'1\\\' cellpadding=\\\'1\\\'>") Response.write("<tr>") Response.write("<td width=\\\'300\\\' bgcolor=\\\'#ECFFD9\\\'><font face=\\\'Wingdings\\\' font size=\\\'3pt\\\'>0</font><a href=\\\'getinfo.asp?foldinfo="&schild&"\\\'>"&s&"</a></td>") Response.write("<td width=\\\'180\\\' bgcolor=\\\'#ECFFD9\\\'>"&fsize&"</td>") Response.write("<td width=\\\'300\\\' bgcolor=\\\'#ECFFD9\\\'>"&p&"</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 \\\'Response.write("<br>"&thing) \\\'===============Get file information Set afile=MyFileObject.GetFile(thing) \\\'==========filename correct code filenamecode=afile.name filedetail=folderspc+filenamecode filedetail=replace(filedetail,"","*s_p_l_i_t*") filesize=afile.size lastmodify=afile.DateLastModified Response.write("<table width=\\\'780\\\' border=\\\'0\\\' cellspacing=\\\'1\\\' cellpadding=\\\'1\\\'>") Response.write("<tr>") Response.write("<td width=\\\'300\\\' bgcolor=\\\'#f4f4ff\\\'><font face=\\\'Wingdings\\\' font size=\\\'3pt\\\'><</font><a href="&chr(34)&"javascript:fileinfo(\\\'"&filedetail&"\\\',\\\'"&filesize&"\\\',\\\'"&lastmodify&"\\\')"&chr(34)&">"&filenamecode&"</a></td>") Response.write("<td width=\\\'180\\\' bgcolor=\\\'#f4f4ff\\\'>"&filesize&"</td>") Response.write("<td width=\\\'300\\\' bgcolor=\\\'#f4f4ff\\\'>"&lastmodify&"</td>") Response.write("</tr>") Response.write("</table>") Next End sub %> </body> </html> ----文件fileinfo.asp----- <% filename=Request.QueryString("filename") filename=replace(filename,"*s_p_l_i_t*","") filesize=Request.QueryString("filesize") lastmodify=Request.QueryString("lastmodify") %> <html> <head> <style type="text/css"> <!-- .ttl1_txt { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} .cnt_txt { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} A:link{color:#0000ff;text-decoration: none} A:visited {color:#0000ff;text-decoration: none} A:active {color:#33ccff;text-decoration: underline} A:hover {color:#33ccff;text-decoration: underline} body{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} Tr{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt} TD{font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 9pt --> </style> </head> <body> <% \\\'Response.write filename&"<br>"&filesize&"<br>"&lastmodify %> <table width="400" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#00CC00" colspan="2">Current File Info:</td> </tr> <tr valign="top"> <td width="110">File Location:</td> <td width="290"><font color="#990000"><font face=\\\'Wingdings\\\' font size=\\\'3pt\\\'><</font><b> <%=filename%></b></font></td> </tr> <tr> <td colspan="2"> <hr size="1"> </td> </tr> <tr valign="top"> <td height="11">File Size: </td> <td height="11"><%=filesize%> bytes</td> </tr> <tr> <td colspan="2"> <hr size="1"> </td> </tr> <tr valign="top"> <td>LastModify: </td> <td><%=lastmodify%></td> </tr> <tr> <td colspan="2"> <hr size="1"> </td> </tr> <tr> <td height="18" colspan="2"> <p>Please Use appropriate Application to Open this File.</p> </td> </tr> <tr> <td height="13" align="right" colspan="2"><a href="javascript:this.window.close()">Close Window</a></td> </tr> </table> </body> </html> 返回类别: 教程 上一教程: 客户端COOKIE中文编程(下) 下一教程: 返回UPDATE SQL语句所影响的行数的方式 您可以阅读与"ASP文件操作--列出目录及文件"相关的教程: · 用ASP技术实现在WEB网页上浏览目录及文件 · 利用ASP的文件操作实现用户治理 · ASP检索网站指定目录文件的算法与应用方向 · ASP操作XML文件的完整实例 · FSO组件之文件操作 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
