admin_uploadfiles.asp

依蓝旅游网站管理系统Elan2008.SP2

   Response.Write "<tr><td align=left><span id='myselect'>[<a href='javascript:CheckedAll()'>全选</a>]</td></tr>"
   Response.Write "<tr>"
   Response.Write "<td height='50' align='center'><input type='button' value='清除选定的木马文件' onClick='doDelete()'>"
   Response.Write "<input type='button' value='清除所有木马文件' onClick=""doClear('"& Replace(CheckResult, "|", ",") &"')""></td>"
   Response.Write "</tr>"
   Response.Write "</table></form>"
End If

End If
%>
<script language="javascript">
getObject("button").disabled = false;
</script>
<%
EL_Common.ShowScriptError()
End Sub

Sub CheckFolder(ByVal FolderName, CheckResult, FolderNum, FileNum)
   Dim FSO, Folder, SubFolder
   If Right(FolderName, 1) = "/" Then FolderName = Left(FolderName, Len(FolderName)-1)
   If FolderName = "" Then FolderName = "/"
   Set FSO = Server.CreateObject(Object_FSO)
   Set Folder = FSO.GetFolder(Server.MapPath(FolderName))
   FolderNum = FolderNum + 1
   If Folder.Files.Count>0 Then
      Call CheckFile(FolderName, Folder.Files, CheckResult, FileNum)
   End If
   
   If Folder.SubFolders.Count>0 Then
      If Right(FolderName, 1) = "/" Then FolderName = Left(FolderName, Len(FolderName)-1)
      For Each SubFolder In Folder.SubFolders
	     Call CheckFolder(FolderName &"/"& SubFolder.Name, CheckResult, FolderNum, FileNum)
	  Next
   End If
End Sub

Sub CheckFile(ByVal FolderName, ByVal Files, CheckResult, FileNum)
   Dim TheFile, FileExt
   If Right(FolderName, 1) = "/" Then FolderName = Left(FolderName, Len(FolderName)-1)
   For Each TheFile In Files
      FileNum = FileNum + 1
	  Call SetStatus("正在扫描："& FolderName &"/"& TheFile.Name)
      FileExt = Trim(LCase(Right(TheFile.Name, Len(TheFile.Name) - InstrRev(TheFile.Name, "."))))
      If FileExt = "jpeg" Or FileExt = "jpg" Or FileExt = "gif" Or FileExt = "bmp" Or FileExt = "png" Then
         If CheckHack(TheFile.Path) = True Then
            CheckResult = EL_Common.Join2String(CheckResult, FolderName &"/"& TheFile.Name, "|")
         End If
      End If
	  If ((FileNum+300) Mod 300) = 0 Then Call EL_Common.Pause(1)
   Next
End Sub

Sub Main()
On Error Resume Next
Dim CurrentFolder, UpFolder
CurrentFolder = EL_Common.ELRequest("Folder", 1)
If CurrentFolder = "" Then
   CurrentFolder = InstallDir & EL_Channel.ChannelDir &"/"& EL_Channel.UploadDir
End If

If Right(CurrentFolder, 1) = "/" Then CurrentFolder = Left(CurrentFolder, Len(CurrentFolder)-1)
UpFolder = Left(CurrentFolder, InstrRev(CurrentFolder, "/")-1)
If Right(UpFolder, 1) = "/" Then UpFolder = Left(UpFolder, Len(UpFolder)-1)
%>
<script language="javascript">
function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function Check(frm){
  SubmitOnce(frm);
  return true;
}
var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";
function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1个文件");
	 return false;
  }
  frm.action = JURL + "&Action=Delete";
  if(confirm("确定要删除选定的文件吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doClear(f){
  var frm = getObject("myform");
  frm.action = JURL + "&Action=Clear&Folder="+f;
  if(confirm("确定要删除该目录下的所有文件吗？")){
     frm.submit();
	 return;
  }
  return false;
}

</script>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td class="top_25">
	<div style="float:left"><strong>当前目录：<%=CurrentFolder%></strong></div>
	<div style="float:right">
	<% 
	  If CurrentFolder <> InstallDir & EL_Channel.ChannelDir &"/"& EL_Channel.UploadDir Then
	     Response.Write "<a class='white' href='Admin_Uploadfiles.asp?ChannelID="& EL_Channel.ChannelID &"&Folder="& EL_Common.ServerURLEncode(UpFolder) &"'>返回上一级目录</a>"
	  Else
	  End If
	%>
	</div>
	</td>
  </tr>
  <tr>
    <td class="td_50"><%=GetSubFolder(CurrentFolder)%></td>
  </tr>
</table>
<br>
<form name="myform" action="Admin_Uploadfiles.asp" onSubmit="return Check(this)" method="post">
<%
Dim Files, FSO, Folder, TheFile, i, k, FileExt, ThumbImage
Dim PageCounts, FileNum

Set FSO = Server.CreateObject(Object_FSO)
Set Folder = FSO.GetFolder(Server.MapPath(CurrentFolder))
Set Files = Folder.Files

i = 1
k = 0
PageCounts = 0
FileNum = Files.Count
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='1' class='Border'>"

If FileNum = 0 Then
   Response.Write "<td class=""td_50"">该目录下没有文件</td>"
Else
   If FileNum>PageSizes Then
      If (FileNum Mod PageSizes)=0 Then
         PageCounts =  Int(FileNum / PageSizes)
      Else
         PageCounts =  Int(FileNum / PageSizes) + 1
      End If
   Else
      PageCounts = 1
   End If
   
   If CurrentPage > PageCounts Then CurrentPage = PageCounts
   
   For Each TheFile In Files
   FileExt = Right(TheFile.Name, Len(TheFile.Name) - InstrRev(TheFile.Name, "."))
   Select Case lCase(FileExt)
      Case "jpg", "jpeg", "gif", "png", "bmp":
	     ThumbImage = CurrentFolder &"/"& TheFile.Name
	  Case "swf":
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_flash.gif"
	  Case "mid", "mp3", "wmv", "asf", "avi", "mpg"
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_media.gif"
	  Case "ram", "rm", "ra":
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_rm.gif"
	  Case "exe":
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_exe.gif"
	  Case "rar":
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_rar.gif"
	  Case "zip":
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_zip.gif"
	  Case Else:
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_other.gif"
   End Select
   k = k + 1
   If k>(CurrentPage-1) * PageSizes And k <= CurrentPage*PageSizes Then
      Dim IsHack
	  IsHack = CheckHack(TheFile.Path)
	  If IsHack = True Then
	     ThumbImage = InstallDir & AdminDir &"/Images/filetype_virus.gif"
	  End If
      Response.Write "<td class=""td_25"" align=""center"" width=""25%"" onmouseover=""this.className='MouseOver_25'"" onmouseout=""this.className='td_25'"">"
      Response.Write "<div style='padding:5px'>"
	  Response.Write "<a href='"& CurrentFolder &"/"& TheFile.Name &"' target='_blank'>"
      Response.Write "<img src='"& ThumbImage &"' width=140 height=100 border=0 alt='文件名称："& TheFile.Name & VBCRLF &"文件大小："& Round(TheFile.Size / 1024, 1) &"K"& VBCRLF &"文件类型："& TheFile.Type & VBCRLF &"修改日期：" & TheFile.DateLastModified &"'>"
      Response.Write "</a>"
	  Response.Write "<div>"
	  Response.Write TheFile.Name 
      Response.Write "<br>"
	  Response.Write "<input name='CheckObject' id='CheckObject' type='checkbox' class='nomargin' value='"& EL_Common.ServerHTMLEncode(CurrentFolder &"/"& TheFile.Name) &"'>选择 "
	  Response.Write "&nbsp; <a href='Admin_Uploadfiles.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Delete&FileName="& EL_Common.ServerURLEncode(CurrentFolder &"/"& TheFile.Name) &"'>删除</a> "
	  Response.Write "</div>"
      Response.Write "</div></td>"	
      If (i Mod 4) = 0 Then Response.Write "</tr><tr>"
	  i = i + 1
   End If   
   Next
End If
Response.Write "</table>"
Set Files = Nothing
Set Folder = Nothing
Set FSO = Nothing
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="9%" nowrap><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
    <td width="91%"  align="right"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, FileNum, "文件", "个")%></td>
  </tr>
</table>

<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center"><input type="button" name="Submit" value="删除选定的文件" onClick="doDelete()">
      <input type="button" name="Submit2" value="删除该目录下所有文件" onClick="doClear('<%=EL_Common.ServerHTMLEncode(CurrentFolder)%>')"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>