<!--#include file="../login/0.asp"-->
<!--#INCLUDE FILE="HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>目录直达</title>
</head>
<body>
<BR>
<%
NetDiskPath="..\..\UploadFiles"

Function getdate(num)
	If num="" Or Not isnumeric(num) Then num=0
	getdate=year(date-num) & right("00"&month(date-num),2) & right("00"&day(date-num),2)
End Function

Dim mydate
mydate=request("mydate")
If mydate="" Then mydate=0

Set Fso=Server.CreateObject("Scripting.FileSystemObject")
%>

<table cellpadding='2' cellspacing='1' border='0' class='border' align=center>
<tr class="title"><td align="left" colspan=5>目录直达</td>
 </tr>
 <tr class="titletdbg"> 
  <%
  i=0
  Do While mydate<50
	If Fso.FolderExists(server.MapPath(NetDiskPath&"\"&getdate(mydate))) Then
  %>
  <td align=center><a href="Netdisk.asp?ThisDir=\<%=getdate(mydate)%>"><img src="hximages/fileicon/folder.gif" border=0 width="16" height="16" align="absmiddle"></a>&nbsp;<a href="Netdisk.asp?ThisDir=\<%=getdate(mydate)%>"><%=getdate(mydate)%></a>&nbsp;&nbsp;<a href="Netdisk.asp?action=clear&ThisDir=\<%=getdate(mydate)%>">清理</a></td>
  <%
		i=i+1
		If Clng(getdate(mydate))<=20080630 Then Exit do
		If (i) Mod 5= 0 Then response.write "</tr><tr class='titletdbg'>"
	End if
	mydate=mydate+1
  loop
  If ((i) Mod 5) >0 Then
	For ii=1 To 5-((i) Mod 5)
		response.write "<td align=center>&nbsp;</td>"
	next
  End If

Set Fso = Nothing
  %>
 </tr>
</table>
<BR>
<table cellpadding='2' cellspacing='1' border='0' class='border' align=center>
<tr class="title"><td align="left">更多操作</td>
 </tr>
 <form name="form1" method="post" action="Netdisk.asp">
 <tr class="titletdbg"> 
  <td>&nbsp;查看指定目录：<input type="text" name="ThisDir" value="" size=15>　<input type="submit" value=" 进入 " ></td>
 </tr>
 </form>
 <form name="form2" method="post" action="NetFold.asp">
 <tr class="titletdbg"> 
  <td>&nbsp;设定初始目录：<input type="text" name="mydate" value="" size=15 maxlength="3">　<input type="submit" value=" 设置 " >&nbsp;<font color=#666666>*输入时间差即可，例如要查15天前的，就输入15</font></td>
 </tr>
 </form>
</table>
</body>
