网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 网站开发-> ASP/ASP.NET-> 文件的读出 编辑 管理

文件的读出 编辑 管理
作者:佚名 来源:InterNet 加入时间:2005-3-2
相关文章
  • Invalid procedure call or argument: Chr 如何解决呢
  • ASP脚本循环语句
  • 精彩:用Asp实现QQ在线查询
  • ASP经典包含文件(ADO for VBScript)
  • 用ASP动态生成JavaScript的表单验证代码
  • 硬盘文件搜索代码(ASP类)
  • 怎样判断一个盘上是否有文件
  • 如何利用ASP把图片上传到数据库
  • 使用ASP建设私人搜索引擎
  • 相关书籍:
  • asp基础教材
  • ASP.NET编程常用的函数集
  • ASP函数速查手册
  • W3CSHOOL标准ASP入门教程
  • ASP中100个为什么
  • ASP经典入门之ADO基础教程
  • ASP基础简明教程
  • w3school asp电子书
  • ASP中文速查手册
  • ASP与相关数据库技术高级指南
  • <%
    urlpath="http://"&Request.ServerVariables("SERVER_NAME")
    dim cpath,lpath
    set fsoBrowse=CreateObject("Scripting.FileSystemObject")
    if Request("path")="" then
    lpath="/"
    else
    lpath=Request("path")&"/"
    end if
    if Request("attrib")="true" then
    cpath=lpath
    attrib="true"
    else
    cpath=Server.MapPath(lpath)
    attrib=""
    end if
    Sub GetFolder()
    dim theFolder,theSubFolders
    if fsoBrowse.FolderExists(cpath)then
    Set theFolder=fsoBrowse.GetFolder(cpath)
    Set theSubFolders=theFolder.SubFolders
    Response.write"<a href='list.asp?path="&Request("oldpath")&"&attrib="&attrib&"'><font color='#FF8000'>■</font>↑<font color='ff2222'>回上级目录</font></a><br>"
    Response.write"<table border='0' width='100%' cellpadding='0'>"
    For Each x In theSubFolders
    Response.write"<tr><td width='50%'><a href='list.asp?path="&lpath&x.Name&"&oldpath="&Request("path")&"&attrib="&attrib&"'>└<font color='#FF8000'>■</font> "&x.Name&"</a> </td>"
    Response.Write "<td><a href=# onclick=javascript:window.open('delete.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=floders','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>删除</a></td>"
    Response.Write "<td><a href=# onclick=javascript:window.open('move.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=floders','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>移改</a></td>"
    Response.Write "<td><a href=# onclick=javascript:window.open('copy.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=floders','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>复制</a><br></td></tr>"
    Next
    Response.Write "</table>"
    end if
    End Sub

    Sub GetFile()
    dim theFiles
    if fsoBrowse.FolderExists(cpath)then
    Set theFolder=fsoBrowse.GetFolder(cpath)
    Set theFiles=theFolder.Files
    Response.write"<table border='0' width='100%' cellpadding='0'>"
    For Each x In theFiles
    if Request("attrib")="true" then
    showstring="<strong>"&x.Name&"</strong>"
    else
    showstring="<a href=# onclick=javascript:window.open('"&urlpath&lpath&server.urlencode(x.Name)&"','hyne_love_achye',
    'toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');>
    <strong>"&x.Name&"</strong></a>"
    end if
    if right(x.name,4)=".exe" or right(x.name,4)=".EXE" then
    showstring=showstring&"</td><td width='10%'><A href=# onclick=javascript:window.open('fileop.asp?filename="&lpath&x.name&"&action=execute','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');>
    <font color=red>执行</font></a></td>"
    else
    showstring=showstring&"</td><td width='10%'></td>"
    end if
    Response.write"<tr><td width='20%'><font color='#FF8000'>□</font>"&showstring&"<td width='15%' align='right'>
    "&x.size&"字节</td><td width='45%'><a href='#'
    title='"&"类型:"&x.type&chr(10)&"属性:"&x.Attributes&chr(10)&"时间:"&x.DateLastModified&"'><font color='#FF8000' >
    ?</font>属性</a><a href=# onclick=javascript:window.open('view.asp?path="&server.urlencode(lpath)&server.urlencode(x.Name)
    &"&attrib="&attrib&"',
    'hyne_love_achye','toolbar=no,
    scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >∝</font>查看</a><a href=# onclick=javascript:window.open('edit.asp?path="&server.urlencode(lpath)&server.urlencode(x.Name)&"&attrib="&attrib&"',
    'hyne_love_achye','toolbar=no,
    scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >∝</font>编辑</a><a href=# onclick=javascript:window.open('edit.asp?path="&server.urlencode(lpath)&server.urlencode(x.Name)&"&op=del&attrib="&attrib&"'
    ,'hyne_love_achye','toolbar=no,
    scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>删除</a><a href=# onclick=javascript:
    window.open('copy.asp?sPath="
    & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=files','hyne_love_achye','toolbar=no,scrollbars=yes,
    resizable=yes,width=600,height=400');>
    <font color='#FF8000' >+</font>复制</a><a href=# onclick=javascript:window.open('move.asp?sPath="&server.urlencode(lpath)
    &server.urlencode(x.Name)&"&aim
    =files"&"','hyne_love_achye','toolbar=no,scrollbars=yes,
    resizable=yes,width=600,height=400');><font color='#FF8000' >+</font>移动</a></td></tr>"
    Next
    end if
    Response.write"</table>"
    End Sub
    %>
    <html>

    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title></title>
    <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
    <style>
    <!--
    table{ font-family: 宋体; font-size: 9pt }
    a{ font-family: 宋体; font-size: 9pt; color: rgb(0,32,64); text-decoration: none }
    a:hover{ font-family: 宋体; color: rgb(255,0,0); text-decoration: none }
    a:visited{ color: rgb(128,0,0) }
    -->
    </style>
    </head>
    <script language="JavaScript">
    function crfile(ls)
    {if (ls==""){alert("请输入文件名!");}
    else {window.open('edit.asp?attrib=<%=request("attrib")%>&creat=yes&path=<%=lpath%>'+ls,'hyne_love_achye','
    toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');}
    return false;
    }
    function crdir(ls)
    {if (ls==""){alert("请输入文件名!");}
    else {window.open('edir.asp?attrib=<%=request("attrib")%>&op=creat&path=<%=lpath%>'+ls,'hyne_love_achye','
    toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');}
    return false;
    }
    </script>
    <script language="vbscript">
    sub rmdir(ls)
    if confirm("你真的要删除这个目录吗!"&Chr(13)&Chr(10)&"目录为:"&ls) then
    window.open("edir.asp?path="&ls&"&op=del&attrib=<%=request("attrib")%>")
    end if
    end sub
    sub copyfile(sfile)
    dfile=InputBox("※文件复制※"&Chr(13)&Chr(10)&"源文件:"&sfile&Chr(13)&Chr(10)&"输入目标文件的文件名:"&Chr(13)&Chr(10)&"
    [允许带路径,要根据你的当前路径模式]")
    dfile=trim(dfile)
    attrib="<%=request("attrib")%>"
    if dfile<>"" then
    if InStr(dfile,":") or InStr(dfile,"/")=1 then
    lp=""
    if InStr(dfile,":") and attrib<>"true" then
    alert "对不起,你在相对路径模式下不能使用绝对路径"&Chr(13)&Chr(10)&"错误路径:["&dfile&"]"
    exit sub
    end if
    else
    lp="<%=lpath%>"
    end if
    window.open("edit.asp?path="+sfile+"&op=copy&attrib="+attrib+"&dpath="+lp+dfile)
    else
    alert"您没有输入文件名!"
    end If
    end sub
    </script>
    <body>
    <table border="1" width="100%" cellpadding="0" height="81" bordercolorlight="#000000"
    bordercolordark="#FFFFFF" cellspacing="0">

    <tr>
    <td width="100%" bgcolor="#C0C0C0" colspan="2">※切换到相应盘符:<span
    style="background-color: rgb(255,255,255);color:rgb(255,0,0)"><%
    For Each thing in fsoBrowse.Drives
    Response.write "◎<a href='list.asp?path="&thing.DriveLetter&":&attrib=true'>"&thing.DriveLetter&":</a>"
    NEXT
    %> </span><br>
    [如果该盘在服务器上不存在,那么将不显示东西,你也可以更URL上的PATH值换换到其它路径上,支持局域网地址,如:"\\pc01\c"]</td>
    </tr>
    <tr>
    <td width="100%" bgcolor="#C0C0C0" colspan="2">※<%
    if Request("attrib")="true" then
    response.write "<a href='list.asp'>切换到相对路径编辑模式</a>"
    else
    response.write "<a href='list.asp?attrib=true'>切换到绝对路径编辑模式</a>"
    end if
    %> ※绝对路径:<span
    style="background-color: rgb(255,255,255)"><%=cpath%></span></td>
    </tr>
    <tr>
    <td width="100%" bgcolor="#C0C0C0" colspan="2">※当前目录<font color="#FF8000">■</font>:
    <span style="background-color: rgb(255,255,255)"><%=lpath%></span> <br>
    ※上传文件到当前目录<font color="#FF8000">■</font>:<span style="background-color: rgb(255,255,255)">
    <a href=../upfilein.asp?filepath=<%=server.urlencode(cpath)%> target=_blank>上传文件(文件大小最好不要超过500K)</a></span>
    </td>
    </tr><form name="newfile"
    onSubmit="return crfile(newfile.filename.value);">
    <tr><td bgcolor="#C0C0C0" colspan="2">〖文件〗 注:只允许文本编辑|<input type="text" name="filename" size="20"><input
    type="submit" value="新建文件"><input type="button" value="新建目录" onclick="crdir(newfile.filename.value)">
    </td>
    </tr></form>
    <tr>
    <td width="40%" valign="top" bgcolor="#C8E3FF"><%Call GetFolder()%>
    </td>
    <td width="60%" valign="top" bgcolor="#FFefdf"><%Call GetFile()%>
    </td>
    </tr>
    </table>

    </body>
    </html>


    [文章录入员:nancy]

    相关文章
  • Invalid procedure call or argument: Chr 如何解决呢
  • ASP脚本循环语句
  • 精彩:用Asp实现QQ在线查询
  • ASP经典包含文件(ADO for VBScript)
  • 用ASP动态生成JavaScript的表单验证代码
  • 硬盘文件搜索代码(ASP类)
  • 怎样判断一个盘上是否有文件
  • 如何利用ASP把图片上传到数据库
  • 使用ASP建设私人搜索引擎
  • 相关书籍:
  • asp基础教材
  • ASP.NET编程常用的函数集
  • ASP函数速查手册
  • W3CSHOOL标准ASP入门教程
  • ASP中100个为什么
  • ASP经典入门之ADO基础教程
  • ASP基础简明教程
  • w3school asp电子书
  • ASP中文速查手册
  • ASP与相关数据库技术高级指南
  • 本站推荐内容

    近期主机类热搜关键词:
    美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

    ASP/ASP.NET
    ASP/ASP.NET
    PHP技术
    JSP技术
    XML技术
    CGI/PERL
    WEB服务器
    WordPress专题
    其它
    电脑教程阅读排行
    ·用ASP连接数据库
    ·ASP基础
    ·使用Database Acces...
    ·让网站活起来(1)
    ·创建一个简单的ASP页
    ·创建HTML表格
    ·初学者必读 ASP运行环境的搭建
    ·ASP中FSO的神奇功能
    ·VBScript 基础 使用条件...
    ·VBScript 基础 VBSc...