哪有ASP写的好用的Fileman？？？
1.文件只有一个，不用数据库
2.可以实现文件删除，上传，改名，编辑，移动(移到别的目录)，以及目录的新建、删除、改名等...
提供下载有分！！
如果自己写的，分更高！
-------------------------------------------
http://yousoft.hi.com.cn welcome!!!!!!
问题点数：200、回复次数：34Top
1 楼zhangking（网眼-why100000.com）回复于 2003-09-01 12:59:23 得分 2
我有一个. 但是是收费的.
zhangking@263.netTop
2 楼firstsee（华仔）回复于 2003-09-01 13:15:32 得分 2
我有一个是用稻香农改写的
firstsee@sohu.comTop
3 楼lions911（--Administrator--）回复于 2003-09-01 13:19:55 得分 50
<%@ Language=VBScript %>
<%
Response.Expires=-1
%>
<HTML>
<HEAD>
<STYLE>
BODY
{
FONT-SIZE: 12px;
COLOR: paleturquoise;
BACKGROUND-COLOR: black;
FONT-FAMILY: 'Comic Sans MS';
TEXT-DECORATION: none
}
INPUT
{
BORDER-RIGHT: thin ridge;
BORDER-TOP: thin ridge;
FONT-SIZE: 12px;
BORDER-LEFT: thin ridge;
COLOR: paleturquoise;
BORDER-BOTTOM: thin ridge;
BACKGROUND-COLOR: black;
FONT-FAMILY: 'Comic Sans MS';
TEXT-DECORATION: none
}
SELECT
{
BORDER-RIGHT: thin ridge;
BORDER-TOP: thin ridge;
FONT-SIZE: 12px;
BORDER-LEFT: thin ridge;
COLOR: paleturquoise;
BORDER-BOTTOM: thin ridge;
BACKGROUND-COLOR: black;
FONT-FAMILY: 'Comic Sans MS';
TEXT-DECORATION: none
}
A:active
{
FONT-SIZE: 12px;
COLOR: greenyellow;
FONT-FAMILY: 'Comic Sans MS';
TEXT-DECORATION: none
}
A:link
{
FONT-SIZE: 12px;
COLOR: greenyellow;
FONT-FAMILY: 'Comic Sans MS';
TEXT-DECORATION: none
}
A:visited
{
FONT-SIZE: 12px;
COLOR: greenyellow;
FONT-FAMILY: 'Comic Sans MS';
TEXT-DECORATION: none
}
A:hover
{
FONT-SIZE: 12px;
COLOR: violet;
FONT-FAMILY: 'Comic Sans MS';
TEXT-DECORATION: underline
}
TABLE
{
FONT-FAMILY: 'Comic Sans MS';
BORDER-RIGHT: silver;
BORDER-TOP: silver;
BORDER-LEFT: silver;
BORDER-BOTTOM: silver
}
TD
{
FONT-FAMILY: 'Comic Sans MS';
BORDER-RIGHT: silver;
BORDER-TOP: silver;
BORDER-LEFT: silver;
BORDER-BOTTOM: silver
}
</STYLE>
<TITLE>Explorer File Administration Ver: 1.0</TITLE>
</HEAD>
<BODY topmargin=5>
<table border=0 align=center width="100%" cellpadding=0 cellspacing=0>
<tr>
<td align=center><font size=4 color="OrangeRed"><b>Explorer File Administration Ver: 1.0</b></font></td>
</tr>
<tr>
<td align=center><hr></td>
</tr>
</table>
<%
dim parentfolder,subfolder,fso,files,folders,fs,root,roots,filechild,folderchild,tmpmsg,tmpf1,tmpf2,dr,tmpdrtype,d,ds
dim g_actionid,g_actionparameter,isReady,isCheck
dim aboutmsg,totalfiles,totalsfolders
aboutmsg="Explorer File Administration Ver 1.0 "" & vbCrlf & vbCrlf"
aboutmsg=aboutmsg & " & ""Author: Johnny Lill"" & vbCrlf"
aboutmsg=aboutmsg & " & ""Email : Johnny_Lill@hotmail.com"" & vbCrlf"
aboutmsg=aboutmsg & " & ""Date : 2003-5-10"
isReady=true
g_actionid=trim(Request("actionid"))
g_actionparameter=trim(Request("actionparameter"))
isCheck=trim(Request("showsize"))
if isCheck="" then
isCheck=false
else
isCheck=true
end if
function returnattr(id)
if id and 0 then
returnattr="--------"
exit function
end if
if id and 1 then
returnattr="r"
else
returnattr="-"
end if
if id and 2 then
returnattr=returnattr & "h"
else
returnattr=returnattr & "-"
end if
if id and 4 then
returnattr=returnattr & "s"
else
returnattr=returnattr & "-"
end if
if id and 8 then
returnattr=returnattr & "v"
else
returnattr=returnattr & "-"
end if
if id and 16 then
returnattr=returnattr & "d"
else
returnattr=returnattr & "-"
end if
if id and 32 then
returnattr=returnattr & "a"
else
returnattr=returnattr & "-"
end if
if id and 64 then
returnattr=returnattr & "l"
else
returnattr=returnattr & "-"
end if
if id and 128 then
returnattr=returnattr & "c"
else
returnattr=returnattr & "-"
end if
end function
Top
4 楼lions911（--Administrator--）回复于 2003-09-01 13:21:08 得分 20
err.clear
on error resume next
set fso=server.CreateObject("Scripting.FileSystemObject")
if err.number<>0 then
Response.Write "<BR><font size=3 color=red>Sorry.<BR>The system can not support FileSystemObject!</font>"
Response.End
end if
if g_actionid<>"" and g_actionparameter<>"" then
Response.Write "<a href=""filesystem.asp""><< return to root</a><hr>"
select case cstr(g_actionid)
case "1" 'delete all of files under current folder
set fs=fso.GetFolder(g_actionparameter)
set files=fs.Files
tmpf1=0
for each filechild in files
if lcase(trim(filechild.name))<>"filesystem.asp" then
err.Clear
on error resume next
tmpmsg=filechild.path
fso.DeleteFile filechild.path,true
if err.number<>0 then
Response.Write "File : <font size=2 color=red>" & tmpmsg & "</font> can not be delete! <br>"
else
Response.Write "File : <font size=2 color=green>" & tmpmsg & "</font> had been deleted! <br>"
end if
tmpf1=tmpf1+1
end if
next
if tmpf1>0 then
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
else
Response.Write "<div align=center><font color=""red"" size=4>Something wrong !!</font></div>"
end if
case "2" 'delete the selected file
err.Clear
on error resume next
fso.DeleteFile g_actionparameter,true
if err.number<>0 then
Response.Write "File : <font size=2 color=red>" & g_actionparameter & "</font> can not be delete!"
else
Response.Write "File : <font size=2 color=green>" & g_actionparameter & "</font> had been deleted!"
end if
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
case "3" 'delete the selected folder
err.Clear
on error resume next
fso.DeleteFolder g_actionparameter,true
if err.number<>0 then
Response.Write "Folder : <font size=2 color=red>" & g_actionparameter & "</font> can not be delete!"
else
Response.Write "Folder : <font size=2 color=green>" & g_actionparameter & "</font> had been deleted!"
end if
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
case "4" 'delete all of folders and files
set fs = fso.GetFolder(g_actionparameter)
set files=fs.Files
set folders=fs.SubFolders
tmpf1=0
for each folderchild in folders
err.Clear
on error resume next
tmpmsg=folderchild.path
fso.DeleteFolder folderchild.path,true
if err.number<>0 then
Response.Write "Folder : <font size=2 color=red>" & tmpmsg & "</font> can not be delete! <br>"
else
Response.Write "Folder : <font size=2 color=green>" & tmpmsg & "</font> had been deleted! <br>"
end if
tmpf1=tmpf1+1
next
if tmpf1>0 then
Response.Write "<hr>"
end if
tmpf2=0
for each filechild in files
if lcase(trim(filechild.name))<>"filesystem.asp" then
err.Clear
on error resume next
tmpmsg=filechild.path
fso.DeleteFile filechild.path,true
if err.number<>0 then
Response.Write "File : <font size=2 color=red>" & tmpmsg & "</font> can not be delete! <br>"
else
Response.Write "File : <font size=2 color=green>" & tmpmsg & "</font> had been deleted! <br>"
end if
tmpf2=tmpf2+1
end if
next
if tmpf2>0 or tmpf1>0 then
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
else
Response.Write "<div align=center><font color=""red"" size=4>Something wrong !!</font></div>"
end if
case "5"
if g_actionparameter<>"" then
err.Clear
'on error resume next
fso.CopyFile g_actionparameter,Request.ServerVariables("APPL_PHYSICAL_PATH") & right(g_actionparameter,len(g_actionparameter)-instrrev(g_actionparameter,"\")),true
set fs=fso.GetFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & right(g_actionparameter,len(g_actionparameter)-instrrev(g_actionparameter,"\")))
fs.Attributes=0
Response.Write vbCrlf & "<iframe name=""actionwin"" border=0 frameborder=0 framespacing=0 width=""100%"" height=300 marginheight=0 hspace=0 marginwidth=0 vspace=0 noresize style=""background-color:black""></iframe>" & vbCrlf
Response.Write "<script language=vbs>" & vbCrlf
Response.write "actionwin.document.open()" & vbCrlf
Response.write "actionwin.document.writeln(" & chr(34) & "<BODY MONOSPACE STYLE=" & chr(34) & chr(34) & "background-color:black" & chr(34) & chr(34) & ">" & chr(34) & ")" & vbCrlf
Response.write "actionwin.document.close()" & vbCrlf
Response.Write "actionwin.window.location.href= " & chr(34) & "HTTP://" & Request.ServerVariables("HTTP_HOST") & "/" & right(g_actionparameter,len(g_actionparameter)-instrrev(g_actionparameter,"\")) & chr(34) & vbCrlf
Response.Write "</script>" & vbCrlf
end if
end select
%>
</BODY>
</HTML>
<%
Response.End
end ifTop
5 楼lions911（--Administrator--）回复于 2003-09-01 13:22:54 得分 1
subfolder=trim(Request("sfolder"))
parentfolder=trim(Request("pfolder"))
drive=trim(Request("drives"))
if drive="" then
drive="C:\"
end if
roots=drive
if subfolder=".." then
if right(parentfolder,1)="\" then
parentfolder=left(parentfolder,len(parentfolder)-1)
end if
root=drive & left(parentfolder,instrrev(parentfolder,"\"))
parentfolder=left(parentfolder,instrrev(parentfolder,"\"))
else
if subfolder<>"" then
root=drive & parentfolder & subfolder & "\"
parentfolder=parentfolder & subfolder & "\"
else
root=drive
parentfolder=""
end if
end if
set fs = fso.GetFolder(root)
set files=fs.Files
set folders=fs.SubFolders
set dr=fso.Drives
%>
<form name="changefolder" method="post" action="filesystem.asp">
<table border=0 align=center cellspacing=0 cellpadding=0>
<tr>
<td align=center colspan=2>
<input type=text name="CurrentFolder" value="<%=root%>" readonly style="width:400;font-size:9pt;color:Orange" title="Current Folder">
<select name="drives" size=1 style="width:195;font-size:9pt;color:white">
<%
For Each d in dr
tmpdrtype=d.DriveType
select case tmpdrtype
Case 0: tmpdrtype = "Unknown"
Case 1: tmpdrtype = "Removable"
Case 2: tmpdrtype = "Fixed"
Case 3: tmpdrtype = "Network"
Case 4: tmpdrtype = "CD-ROM"
Case 5: tmpdrtype = "RAM Disk"
end select
%>
<option value="<%=d.DriveLetter%>:\" <%if UCASE(d.DriveLetter) & ":\"=drive then Response.Write "selected" end if%>><%=d.DriveLetter%>:\ [<%=tmpdrtype%>]</option>
<%
Next
set d=nothing
set dr=nothing
%>
</select>
</td>
</tr>
<tr>
<td align=center colspan=2>
<select name="root" size=13 style="width:600;font-size:9pt;color:YellowGreen" title="Folders and files list">
<%
on error resume next
set ds=fso.GetDrive(fso.GetDriveName(drive))
if ds.IsReady then
if fso.GetParentFolderName(root)<>"" then
%>
<option value=".." style="color:white">-------- <..></option>
<%
end if
%>
<%
totalsfolders=0
for each folderchild in folders
%>
<option value="<%=folderchild.name%>" style="color:LightPink"><%=returnattr(folderchild.Attributes)%> <<%=folderchild.name%>><%if isCheck then%> (<%=folderchild.size\1024 & "KB"%>)<%end if%></option>
<%
totalsfolders=totalsfolders+1
next
%>
<%
totalfiles=0
for each filechild in files
if lcase(trim(filechild.name))<>"filesystem.asp" then
%>
<option value="<%=filechild.name%>"><%=returnattr(filechild.Attributes)%> <%=filechild.name%><%if isCheck then%> (<%=filechild.size\1024 & "KB"%>)<%end if%></option>
<% totalfiles=totalfiles+1
end if
next
isReady=true
else
isReady=false
end if
set ds=nothing
set filechild=nothing
set folderchild=nothing
%>
</select>
</td>
</tr>
<tr>
<td align=left width="50%">
<input type=text name="TotalSubFolders" value="Total SubFolders: <%=totalsfolders%>" title="Total SubFolders: <%=totalsfolders%>" style="width:300;color:Khaki;text-align:right" readonly>
</td>
<td align=left>
<input type=text name="TotalFiles" value="Total Files: <%=totalfiles%>" title="Total Files: <%=totalfiles%>" style="width:300;color:Khaki;text-align:right" readonly>
</td>
</tr>
<tr>
<td align=center width="50%">
<input type=button name="delcurfile" value="Delete the selected file" style="width:300" title="Delete the selected file">
</td>
<td align=center>
<input type=button name="delcurfolder" value="Delete all of files under current folder" style="width:300" title="Delete all of files under current folder">
</td>
</tr>
<tr>
<td align=center>
<input type=button name="delselfolder" value="Delete the selected folder" style="width:300" title="Delete then selected folder">
</td>
<td align=center>
<input type=button name="delall" value="Delete all of files and folders" style="width:300" title="Delete all of files and folders">
</td>
</tr>
<tr>
<td align=center>
<select name="moreinfo" size=1 style="font-size:9pt;color:BlanchedAlmond;width:300">
<option style="color:red" value=""> -= Show More Informations =- </option>
<option value="<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%>"><APPL_PHYSICAL_PATH></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("HTTP_HOST")%>"><HTTP_HOST></option>
<option value="<%=Request.ServerVariables("LOCAL_ADDR")%>"><LOCAL_ADDR></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("PATH_INFO")%>"><PATH_INFO></option>
<option value="<%=Request.ServerVariables("REMOTE_ADDR")%>"><REMOTE_ADDR></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("REMOTE_HOST")%>"><REMOTE_HOST></option>
<option value="<%=Request.ServerVariables("SERVER_NAME")%>"><SERVER_NAME></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("SERVER_PORT")%>"><SERVER_PORT></option>
<option value="<%=Request.ServerVariables("SERVER_PROTOCOL")%>"><SERVER_PROTOCOL></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("SERVER_SOFTWARE")%>"><SERVER_SOFTWARE></option>
<option value="<%=Request.ServerVariables("SCRIPT_NAME")%>"><SCRIPT_NAME></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("PATH_TRANSLATED")%>"><PATH_TRANSLATED></option>
<option value="<%=Request.ServerVariables("INSTANCE_META_PATH")%>"><INSTANCE_META_PATH></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("HTTP_USER_AGENT")%>"><HTTP_USER_AGENT></option>
<option value="<%=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")%>"><HTTP_ACCEPT_LANGUAGE></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("HTTP_ACCEPT")%>"><HTTP_ACCEPT></option>
<option value="<%=Request.ServerVariables("CONTENT_TYPE")%>"><CONTENT_TYPE></option>
</select>
</td>
<td align=center>Top
6 楼lang11zi（微软菜虫）回复于 2003-09-01 13:24:20 得分 1
我有一个破解的。
QQ:25785926
Top
7 楼lions911（--Administrator--）回复于 2003-09-01 13:24:49 得分 1
<input type=button name="aboutme" value="About Explorer File Administration" style="width:300" title="About Explorer File Administration">
</td>
</tr>
<tr>
<td align=left colspan=2>
<input type=text name="infostext" style="width:500;color:Yellow" title="Display More Informations" readonly>
<input type=checkbox name="showsize" title="Show Size (this function maybe slower than standard more!)" <%if isCheck then Response.Write "Checked" end if%>><font size=2 color=orange>Show Size</font>
</td>
</tr>
<table>
<input type=hidden name="sfolder">
<input type=hidden name="pfolder" value="<%=parentfolder%>">
<input type=hidden name="ffolder" value="<%=root%>">
<input type=hidden name="rfolder" value="<%=roots%>">
<input type=hidden name="actionid">
<input type=hidden name="actionparameter">
</form>
<%
set files=nothing
set folders=nothing
set fs=nothing
set fso=nothing
%>
</BODY>
<script language=vbs>
if cbool("<%=isReady%>") then
changefolder.delall.disabled=false
changefolder.delcurfolder.disabled=false
else
changefolder.delall.disabled=true
changefolder.delcurfolder.disabled=true
end if
changefolder.delcurfile.disabled=true
changefolder.delselfolder.disabled=true
sub root_ondblclick()
if changefolder.root.selectedIndex=-1 then exit sub
if instr(changefolder.root.options(changefolder.root.selectedIndex).text,"<")<>0 then
changefolder.sfolder.value=changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.actionid.value=""
changefolder.actionparameter.value=""
changefolder.submit
else
if msgbox("download " & changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value & " ?",vbQuestion+vbYesNo,"Question")=vbYes then
changefolder.actionid.value="5"
changefolder.actionparameter.value=changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.submit
end if
end if
end sub
sub root_onchange()
if instr(changefolder.root.options(changefolder.root.selectedIndex).text,"<")<>0 then
if instr(changefolder.root.options(changefolder.root.selectedIndex).text,"..")=0 then
changefolder.delcurfolder.disabled=false
changefolder.delcurfile.disabled=true
changefolder.delselfolder.disabled=false
changefolder.delall.disabled=false
else
changefolder.delcurfolder.disabled=true
changefolder.delcurfile.disabled=true
changefolder.delselfolder.disabled=true
changefolder.delall.disabled=true
end if
else
changefolder.delcurfolder.disabled=false
changefolder.delcurfile.disabled=false
changefolder.delselfolder.disabled=true
changefolder.delall.disabled=false
end if
end sub
sub drives_onchange()
changefolder.actionid.value=""
changefolder.actionparameter.value=""
changefolder.submit
end sub
sub delcurfolder_onclick()
if changefolder.root.options.length=0 then
msgbox "Can not found files under current folder!",vbCritical,"Error"
exit sub
end if
if msgbox("This action will delete all of files under current folder," & vbCrlf & "Are you sure?" & vbCrlf & vbCrlf & "Current folder: " & changefolder.ffolder.value ,vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=1
changefolder.actionparameter.value=changefolder.ffolder.value
changefolder.submit
end sub
sub delcurfile_onclick()
if msgbox("This action will delete the selected file," & vbCrlf & "Are you sure?" & vbCrlf & vbCrlf & "The selected file: " & changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value ,vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=2
changefolder.actionparameter.value=changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.submit
end sub
sub delselfolder_onclick()
if msgbox("This action will delete the seleted folder," & vbCrlf & "Are you sure?" & vbCrlf & vbCrlf & "The selected folder: " & changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value, vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=3
changefolder.actionparameter.value=changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.submit
end sub
sub delall_onclick()
if msgbox("This action will delete all of folders and files," & vbCrlf & "Are you sure?", vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=4
changefolder.actionparameter.value=changefolder.rfolder.value
changefolder.submit
end sub
sub delcurfolder_onmouseover()
changefolder.delcurfolder.style.borderRightStyle="outset"
changefolder.delcurfolder.style.borderTopStyle="outset"
changefolder.delcurfolder.style.borderLeftStyle="outset"
changefolder.delcurfolder.style.borderBottomStyle="outset"
changefolder.delcurfolder.style.fontSize="12px"
changefolder.delcurfolder.style.COLOR="Moccasin"
changefolder.delcurfolder.style.backgroundColor="MidnightBlue"
changefolder.delcurfolder.style.fontFamily="Comic Sans MS"
end sub
sub delcurfolder_onmouseout()
changefolder.delcurfolder.style.borderRightStyle="ridge"
changefolder.delcurfolder.style.borderTopStyle="ridge"
changefolder.delcurfolder.style.borderLeftStyle="ridge"
changefolder.delcurfolder.style.borderBottomStyle="ridge"
changefolder.delcurfolder.style.fontSize="12px"
changefolder.delcurfolder.style.COLOR="paleturquoise"
changefolder.delcurfolder.style.backgroundColor="black"
changefolder.delcurfolder.style.fontFamily="Comic Sans MS"
end sub
sub delall_onmouseover()
changefolder.delall.style.borderRightStyle="outset"
changefolder.delall.style.borderTopStyle="outset"
changefolder.delall.style.borderLeftStyle="outset"
changefolder.delall.style.borderBottomStyle="outset"
changefolder.delall.style.fontSize="12px"
changefolder.delall.style.COLOR="Moccasin"
changefolder.delall.style.backgroundColor="MidnightBlue"
changefolder.delall.style.fontFamily="Comic Sans MS"
end subTop
8 楼lions911（--Administrator--）回复于 2003-09-01 13:25:21 得分 1
sub delall_onmouseout()
changefolder.delall.style.borderRightStyle="ridge"
changefolder.delall.style.borderTopStyle="ridge"
changefolder.delall.style.borderLeftStyle="ridge"
changefolder.delall.style.borderBottomStyle="ridge"
changefolder.delall.style.fontSize="12px"
changefolder.delall.style.COLOR="paleturquoise"
changefolder.delall.style.backgroundColor="black"
changefolder.delall.style.fontFamily="Comic Sans MS"
end sub
sub delcurfile_onmouseover()
changefolder.delcurfile.style.borderRightStyle="outset"
changefolder.delcurfile.style.borderTopStyle="outset"
changefolder.delcurfile.style.borderLeftStyle="outset"
changefolder.delcurfile.style.borderBottomStyle="outset"
changefolder.delcurfile.style.fontSize="12px"
changefolder.delcurfile.style.COLOR="Moccasin"
changefolder.delcurfile.style.backgroundColor="MidnightBlue"
changefolder.delcurfile.style.fontFamily="Comic Sans MS"
end sub
sub delcurfile_onmouseout()
changefolder.delcurfile.style.borderRightStyle="ridge"
changefolder.delcurfile.style.borderTopStyle="ridge"
changefolder.delcurfile.style.borderLeftStyle="ridge"
changefolder.delcurfile.style.borderBottomStyle="ridge"
changefolder.delcurfile.style.fontSize="12px"
changefolder.delcurfile.style.COLOR="paleturquoise"
changefolder.delcurfile.style.backgroundColor="black"
changefolder.delcurfile.style.fontFamily="Comic Sans MS"
end sub
sub delselfolder_onmouseover()
changefolder.delselfolder.style.borderRightStyle="outset"
changefolder.delselfolder.style.borderTopStyle="outset"
changefolder.delselfolder.style.borderLeftStyle="outset"
changefolder.delselfolder.style.borderBottomStyle="outset"
changefolder.delselfolder.style.fontSize="12px"
changefolder.delselfolder.style.COLOR="Moccasin"
changefolder.delselfolder.style.backgroundColor="MidnightBlue"
changefolder.delselfolder.style.fontFamily="Comic Sans MS"
end sub
sub delselfolder_onmouseout()
changefolder.delselfolder.style.borderRightStyle="ridge"
changefolder.delselfolder.style.borderTopStyle="ridge"
changefolder.delselfolder.style.borderLeftStyle="ridge"
changefolder.delselfolder.style.borderBottomStyle="ridge"
changefolder.delselfolder.style.fontSize="12px"
changefolder.delselfolder.style.COLOR="paleturquoise"
changefolder.delselfolder.style.backgroundColor="black"
changefolder.delselfolder.style.fontFamily="Comic Sans MS"
end sub
sub aboutme_onmouseover()
changefolder.aboutme.style.borderRightStyle="outset"
changefolder.aboutme.style.borderTopStyle="outset"
changefolder.aboutme.style.borderLeftStyle="outset"
changefolder.aboutme.style.borderBottomStyle="outset"
changefolder.aboutme.style.fontSize="12px"
changefolder.aboutme.style.COLOR="Moccasin"
changefolder.aboutme.style.backgroundColor="MidnightBlue"
changefolder.aboutme.style.fontFamily="Comic Sans MS"
end sub
sub aboutme_onmouseout()
changefolder.aboutme.style.borderRightStyle="ridge"
changefolder.aboutme.style.borderTopStyle="ridge"
changefolder.aboutme.style.borderLeftStyle="ridge"
changefolder.aboutme.style.borderBottomStyle="ridge"
changefolder.aboutme.style.fontSize="12px"
changefolder.aboutme.style.COLOR="paleturquoise"
changefolder.aboutme.style.backgroundColor="black"
changefolder.aboutme.style.fontFamily="Comic Sans MS"
end sub
sub aboutme_onclick()
msgbox "<%=aboutmsg%>",vbInformation,"About"
end sub
sub moreinfo_onchange()
changefolder.infostext.value=changefolder.moreinfo.value
end sub
</script>
</HTML>
Top
9 楼lions911（--Administrator--）回复于 2003-09-01 13:27:24 得分 1
拼成一个文件！FSO的资源管理器Top
10 楼freespace520（自由人）回复于 2003-09-01 13:35:40 得分 1
upTop
11 楼dgm8（dgm8）回复于 2003-09-01 13:44:28 得分 1
我有一个,类似于windows界面,跟本地操作差不多.但我要200,行直接发给你.Top
12 楼dgm8（dgm8）回复于 2003-09-01 13:45:58 得分 1
是200分,不是钞票Top
13 楼xiaobaowu（很想和你吹吹风（抵制日货））回复于 2003-09-01 13:52:57 得分 1
关注。。。
Top
14 楼wxlada（绿茶）回复于 2003-09-01 13:56:45 得分 1
我有一个自己用.NET写的，多用户的，还能发mail。也是要做产品卖钱的。
如果你想自己写，可以交流一哈。Top
15 楼wxlada（绿茶）回复于 2003-09-01 13:57:44 得分 1
哦，我记得我在收藏里，似乎有一个asp的FILEMAN，老外写的，写得很经典，就一个文件搞定。回去给你找找。Top
16 楼aiailove（小陈姐姐）回复于 2003-09-01 14:08:20 得分 1
你们说的不是稻香老农和阿宽修正早就共享代码了的哪个ASP-FTP的程序吧？Top
17 楼yousoft（悠游在线）回复于 2003-09-01 14:28:24 得分 0
to lions911(--ASP--ASP.NET--) ：
你贴的代码没有上传，改名等功能！Top
18 楼yousoft（悠游在线）回复于 2003-09-01 14:29:08 得分 0
to dgm8(dgm8):
发到yousoft@sina.com 合适的话，分一定给你！Top
19 楼yousoft（悠游在线）回复于 2003-09-01 14:30:24 得分 0
注：不要dotnet写的，只要ASP写的，我只是拿来用！自己用~！Top
20 楼dgm8（dgm8）回复于 2003-09-01 14:49:19 得分 1
我还是先得分,那东西也不是我自己写的,我一定会给你的Top
21 楼topmonkey（勇者斗泡泡龙）回复于 2003-09-01 16:33:21 得分 1
Persits Software AspUpload
老外编写的ASP上传组件，包含文件管理器功能，有例程。
官方网站：
http://www.AspUpload.comTop
22 楼yousoft（悠游在线）回复于 2003-09-05 00:56:05 得分 0
有没有实现重命名和移动的功能的FileManTop
23 楼juge（juge）回复于 2003-09-05 01:01:03 得分 1
http://www.tuoji.com 这里有你需要的！Top
24 楼ahuiok（希羽）回复于 2003-09-05 01:04:53 得分 1
收藏.ingTop
25 楼yousoft（悠游在线）回复于 2003-09-06 09:33:43 得分 0
看来只有自己写了！！
散分，来者有份！Top
26 楼dgm8（dgm8）回复于 2003-09-06 09:43:35 得分 1
呵呵,你要是把分给我,我早就发给你了,还在这里叹气.
认为我骗你,你可以满论坛骂我.
系统功能,作者自认为已把asp发挥到了极至Top
27 楼knot（在路上）回复于 2003-09-06 20:22:51 得分 0
真的假的。。。
i4riky@tom.com
程序没有特殊要求吧~比如第三方组件什么的。
分对我来说不是很重要。Top
28 楼knot（在路上）回复于 2003-09-06 20:24:52 得分 3
BS在线文件管理系统，我用过的，还可以，283KB。
关于：
【BS在线文件管理系统】简体中文 V2.0
'------------------------------------------------------------------
系统要求：
1.服务器支持ASP权限且支持FSO(File System Object)权限；
2.建议win2000 + IIS5.0 以上；
3.本系统在Win2000＋IIS5.0下测试可用；
'------------------------------------------------------------------
主要功能及说明：
1.可以显示服务器上的所有硬盘目录，可以显示每个文件以及目录；
2.可以修改、删除、改名、编辑（此功能仅限编辑文本类文件，如.txt/.asp
/.htm/.html/.css 文件）、复制、移动任意文件和目录；
3.可以在线修改本程序自身；（此功能仅建议ASP技术熟练者在必要时使用）
强烈建议不要在线修改本程序自身，如果出错请用原文件覆盖即可；
4.可以设置超级管理员、普通管理员，超级管理员可以访问所有硬盘上的文件
，可以为普通管理员设置权限目录以及限制的文件类型；
5.超级管理员不能修改其它超级管理员的资料，且不能看见其他超级管理员；
要删除管理员(含超级管理员)需以其它超级管理员身份登录，然后输入需删除
的管理员及其密码删除；
6.普通管理员可以访问超级管理员设置的权限目录里的非限制文件和目录；
7.可以用浏览器浏览服务器上非虚拟目录里的文件；可以下载权限目录里的文
件(包括非网站主目录里的文件，如服务器允许)；
8.上传文件采用稻草老农(5xsoft.com)的无组件上传类(V2.0)；可同时上传
多个文件到指定目录；
9.数据库密码:brightstar，默认超级管理员:brightstar，密码:brightstar
数据库中默认有一普通管理员，用户名为:admin，密码:admin；
10.建议自行更改数据库文件名，将inc/conn.asp中"brightstar.asp"改为你
的数据库文件名(数据库文件为：db/brightstar.asp，Access数据库)；
11.数据库含有防止下载的表(表名为NotDownload)，防止下载；为安全起见，
请勿删除此表；(注：数据库文件为asp扩展名方可防止下载)
'------------------------------------------------------------------
主要更新说明：
1.修改操作信息(如登录、修改等)的显示在新窗口中，不再为帮助窗口，解决
在其他浏览器中可能不能登录的问题；
2.对代码作进一步优化，同时发布繁体版本；
3.修改数据库表权限目录字段太小导致无法更新权限目录的隐患；
4.添加文件类型限制选项，以防止非超级管理员上传危险文件(如.asp文件)；
5.从v1.0、v1.0.1、v1.0.2、v1.0.3到当前版本更新需更新.asp文件以及数据
库文件；
6.修改验证码为图形验证码；
7.添加文件下载功能(点击文件名前图标即可下载)；
8.修正中文路径、文件名可能不能浏览的问题(问题产生根据客户端浏览器)；
9.使建立、删除、复制、移动(目录或文件)可以批量进行；
'------------------------------------------------------------------
*******************************************************************
获得最新更新请到：
http://y9jk.com/lxl/或http://www.alm.cn/lxl/
程序演示及下载：
http://y9jk.com/brightstar/ User:mytest,Password:mytest
*******************************************************************
如有什么建议或使用中出现问题，请与我联系
E-mail: xinglia6199@163.com
Q Q: 115254150
特别告知：
1.本程序提供与非商业用途的组织或个人免费使用；
2.本人不为免费使用本程序中出现的问题负任何责任；
3.如用于商业用途请联系本人，获得本人许可；
4.本人对非法使用本程序保留追究责任的权利。
'------------------------------------------------------------------Top
29 楼dgm8（dgm8）回复于 2003-09-07 10:43:34 得分 5
folders,files管理界面,形同windows的操作界面,如有足够的权限,可以访问该台机子的任何地方,操作跟windows也相似,当然没有象windows那样有快捷键用,因为功能实在强大,不便提供演示,有意想要的,200分就可以(在使用时要遵重作者版权,勿许用于商业用途)
界面地址:www.sircatcn.com/FileMan.gifTop
30 楼wuhanman2001（学习asp.net中）回复于 2003-09-07 11:15:31 得分 1
收藏Top
31 楼yousoft（悠游在线）回复于 2003-09-08 01:13:21 得分 0
to dgm8(dgm8)：
分决对可以给你，但这么多热情的人，总不好意思全给你了吧？我可以再开个贴给你！
Top
32 楼dgm8（dgm8）回复于 2003-09-08 10:26:07 得分 0
to: yousoft(悠游在线)
先开一贴好了，我要收到分再发．现在只想解决问题不给分的人太多了，我的结贴率不到３０％．呵呵Top
33 楼coffee_cn（coffee）回复于 2003-09-08 10:39:16 得分 100
sh.ce.net.cn/web8/tools/fileman.rar
asp fileman
Top
34 楼yousoft（悠游在线）回复于 2003-09-09 16:18:07 得分 0
dgm8(dgm8)：
来这里，给你200分！！然后发你的给我！
to coffee_cn(coffee)：谢谢提供！！这正是我想要的！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
