首页 >> 读书频道 >> 电脑 >> 文件的读出 编辑 管理
 
· 类似于iis浏览的功能
· NAV导致IIS调用FS
· IE功能汇总
· FSO操作示例(给初学者
· 怎样判断一个盘上是否有文
· 在线修改Serv-U 2
· ASP中FSO的神奇功能
· 一个简单聊天室的建立.(
· IIS5 + ADO 5
· 优化ACCESS提高速度
· Data Shaping
· 利用ISAPI实现向数据
 
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

文件的读出 编辑 管理


查看有无更新版本

关键字:ASP 2006-8-31

 

<%
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值换换到其它路径上,支持局域网地址,如:"pc01c"]</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>

文件的读出 编辑 管理

[ 1 ]
文件的读出 编辑 管理 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑