<% Sub Head() Response.Write ""&_ "

我的网络硬盘
上传文件 新建文件夹  返回根目录" Response.Write "

" End Sub Call Head() action=RequestSafeStr("action") Select Case action Case "createfolder" Call CreateFolder() Case "savefolder" Call savefolder() Case "editfolder" Call editfolder() Case "editsavefolder" Call editsavefolder() Case "delfolder" Call delfolder() Case "upfile" Call add() Case "save" Call save() Case "edit" Call edit() Case "editsave" Call editSave() Case "del" Call del() Case "showfile" Call show() Case "top" Call top() Case else Call showFolders() End Select %> <% 'savefolder Sub savefolder() foldername=RequestFormStr("foldername") If foldername="" Then Call MessageBox("请输入文件夹名称!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from filefolder" rs.open sql,conn,1,3 rs.addnew rs("foldername")=foldername rs.update rs.close Call MessageBox("新建文件夹成功!","file.asp") End Sub 'editsavefolder Sub editsavefolder() id=RequestFormStr("id") foldername=RequestFormStr("foldername") If foldername="" Then Call MessageBox("请输入文件夹名称!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from filefolder Where id="&id rs.open sql,conn,2,3 rs("foldername")=foldername rs.update rs.close Call MessageBox("文件夹修改属性成功!","file.asp") End Sub 'delfolder 'del Sub delfolder() Dim path,id id=RequestQueryNum("id") If id<>0 Then Set rs=conn.Execute("Select path from file Where folderid="& id &"") Do While Not rs.eof Call delFile("../"& rs("path")) rs.MoveNext Loop Set rs=nothing conn.Execute("delete From file Where folderid="& id &"") conn.Execute("delete From filefolder Where id="& id &"") Call MessageBox("删除成功!","file.asp") End If End Sub 'savefile Sub save() filename=RequestFormStr("filename") folderid=RequestFormNum("folderid") path=RequestFormStr("path") isshow=RequestFormStr("isshow") password=RequestFormStr("password") If filename="" Then Call MessageBox("请输入文件名称!","") Response.End End If If path="" Then Call MessageBox("请上传文件!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from file" rs.open sql,conn,1,3 rs.addnew rs("filename")=filename rs("folderid")=folderid rs("path")=path rs("isshow")=isshow rs("password")=password rs.update rs.close Call MessageBox("添加文件成功!","file.asp") End Sub 'edit file save Sub editSave() id=RequestFormNum("id") If id<>0 then filename=RequestFormStr("filename") folderid=RequestFormNum("folderid") isshow=RequestFormStr("isshow") password=RequestFormStr("password") If filename="" Then Call MessageBox("请输入文件名称!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from file Where id="& id &"" rs.open sql,conn,2,3 If Not rs.eof then rs("filename")=filename rs("folderid")=folderid rs("isshow")=isshow rs("password")=password rs.update End If rs.close Set rs=nothing Call MessageBox("修改文件成功!","file.asp?action=showfile&folderid="&RequestQueryNum("fid")) End If End Sub 'del Sub del() Dim path,isshow id=RequestQueryNum("id") If id<>0 Then Set rs=conn.Execute("Select path from file Where id="& id &"") path="../"& rs("path") Call delFile(path) Set rs=nothing conn.Execute("delete From file Where id="& id &"") Call MessageBox("删除成功!","file.asp") End If End Sub 'top Sub top() id=RequestQueryNum("id") intTop=RequestQueryNum("top") If id<>0 Then conn.Execute("Update file set [top]="& intTop &",toptime=Now() Where id="& id &"") If intTop=1 Then strMsg="置顶成功!" Else strMsg="取消置顶成功!" End If Call MessageBox(strMsg,"file.asp") End If End Sub 'showFolders Sub showFolders() sql="Select * From filefolder Order by id asc" Set mypage=new xdownpage '创建对象 mypage.getconn=conn '得到数据库连接 mypage.getsql=sql mypage.pagesize=20 '设置每一页的记录条数据为5条 set rs=mypage.getrs() '返回Recordset %> <% for i=1 to mypage.pagesize If rs.eof Then Exit for End If %> <% rs.MoveNext Next %>

文件管理
文件夹	创建日间	操作
"><%=rs("foldername")%>	<%=rs("createtime")%>	">修改属性 )">删除
<%mypage.showpage() %>

<% End Sub 'createFolder Sub createFolder() %>

新建文件夹
文件夹名称：

<% End Sub 'editfolder Sub editfolder() id=RequestQueryNum("id") Set rs=conn.Execute("Select * From filefolder Where id="& id &"") If Not rs.eof Then %>

文件夹修改属性
文件夹名称：	" size=20 style="width:150">

<% End If End Sub 'ShowFiles Sub show() cid=RequestQueryNum("folderid") If cid<>0 Then sql="Select * From file Where folderid="& cid &" Order by id desc" Else sql="Select * From file Order by id desc" End If Set mypage=new xdownpage '创建对象 mypage.getconn=conn '得到数据库连接 mypage.getsql=sql mypage.pagesize=20 '设置每一页的记录条数据为5条 set rs=mypage.getrs() '返回Recordset 'Set rs=conn.Execute("Select * From file Order by id desc") %> <% for i=1 to mypage.pagesize If rs.eof Then Exit for End If %> <% rs.MoveNext Next %>

文件管理
编号	文件名	创建日期	操作
<%=rs("id")%>	<%=rs("filename")&"."&getExt(rs("path"))%>	<%=rs("createtime")%>	">修改属性 )">删除
<%mypage.showpage() %>

<% End Sub 'upfile Sub add() %>

上传文件
选择文件夹：	<% Set rs=conn.Execute("Select * From filefolder order by id asc") Do While Not rs.eof %> "><%=rs("foldername")%> <% rs.MoveNext Loop rs.close Set rs=nothing %>  新建文件夹
上传：
文件名：
前台是否显示：	是 否
文件下载密码：	(允许网友下载,不用设置密码)

<% End Sub Sub edit() id=RequestQueryNum("id") Set rs=conn.Execute("Select * From file Where id="& id &"") If Not rs.eof Then %> ">

文件修改属性
选择文件夹：	<% Set rsC=conn.Execute("Select * From filefolder order by id asc") Do While Not rsC.eof %> " <%If rs("folderid")=rsC("id") Then Response.Write "selected=""true""" End If %>><%=rsC("foldername")%> <% rsC.MoveNext Loop rsC.close Set rsC=nothing %>
文件名：	" size="25" style="width:300">
前台是否显示：	>是 >否
文件下载密码：	" size="25" style="width:100"> (允许网友下载,不用设置密码)

<% End If End Sub %>