您的位置：首页 → 网页设计 → ASP实例 → 文件的读出 编辑 管理

文件的读出 编辑 管理

时间：2004/11/7 2:54:00来源：本站整理作者：蓝点我要评论(0)

<%

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"■↑回上级目录
"

Response.write""

For Each x In theSubFolders

Response.write""

Response.Write ""

Response.Write ""

Response.Write ""

Next

Response.Write "

└■  "&x.Name&"

×删除

×移改

×复制

"

end if

End Sub



Sub GetFile()

dim theFiles

if fsoBrowse.FolderExists(cpath)then

Set theFolder=fsoBrowse.GetFolder(cpath)

Set theFiles=theFolder.Files

Response.write""

For Each x In theFiles

if Request("attrib")="true" then

showstring=""&x.Name&""

else

showstring=""&x.Name&""

end if

if right(x.name,4)=".exe" or right(x.name,4)=".EXE" then

showstring=showstring&""

else

showstring=showstring&""

end if

Response.write""

Next

end if

Response.write"

执行
□"&showstring&"	"&x.size&"字节	？属性∝查看∝编辑×删除＋复制＋移动

"

End Sub

%>

" _ue_custom_node_="true">

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;

}

" _ue_custom_node_="true">

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论