文件的读出编辑治理-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

文件的读出编辑治理
<%
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>

</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>

返回类别: 教程
上一教程: ASP实用函数库
下一教程: 检测ISP是否支持ASP组件的代码

您可以阅读与"文件的读出编辑治理"相关的教程:
· 遍历目录以及目录下文件的函数
· 关于动态INCLUDE文件的讨论
· 用ASP实现ASP文件的运行
· 关于GLOBAL.ASA文件的深入研究与SESSION变量失效提示的详细方式
· 获得JPG文件的实际尺寸


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接