欢迎光临
我们一直在努力

asp文件操作–列出目录及文件 _asp技巧

2007-08-23 分类：未分类 阅读(649) 评论(0)
建站超值云服务器，限时71元/月

把以下文件建在同一目录，IIS中确定文件操作组件可用，即可用ASP列出文件和目录了，呵呵欢迎光临我的主页 http://skypavilion.yeah.net

—-文件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>

赞(0)
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！ 本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » asp文件操作–列出目录及文件 _asp技巧
分享到： 更多 (0)

相关推荐

  • 暂无文章

热门标签

ldquo (1370)win (1324)活动 (1166)ios (1162)rdquo (818)微信 (747)iphone (728)小米 (722)windows (706)手机 (698)酷跑 (686)飞车 (540)天天 (492)qq (491)网站 (457)全民 (442)discuz (408)充值 (389)安装 (368)更新 (321)华为 (300)浏览器 (292)支付宝 (289)三星 (266)note (264)教程 (262)预览版 (261)小编 (258)越狱 (254)linux (248)

热门文章

    分类目录

    • 没有分类目录