📄 aa_upload.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
				whichfile=server.MapPath(UploadDir & trim(arrFileName(i)))
				set thisfile=fso.GetFile(whichfile)
				thisfile.Delete True
			End IF
		next
	Else
		IF left(whichfile,3)<>"../" and left(whichfile,1)<>"/" THEN
			Set thisfile = fso.GetFile(server.MapPath(UploadDir & whichfile))
			thisfile.Delete True
		End IF
	End IF
        ToHistory=VisitorsForm
		saveok="删除成功！"
	    Call Form_Saveok()
	End IF
Case "Delall"
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
IF instr(AllUploadFiles,UploadDir & theFile.Name) THEN xx=1
IF xx=0 THEN
whichfile=server.MapPath(UploadDir & theFile.Name)
set thisfile=fso.GetFile(whichfile)
thisfile.Delete True
End IF
Next
        ToHistory=VisitorsForm
		saveok="已将无用的文件全部删除！"
	    Call Form_Saveok()
Case ""
Const MaxPerPage=20
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=inbox method=post action='Aa_upload.asp?DelFile=Del&Action=" & Action & "'>"&_
         "<TR>"&_
         "<TD><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"
  IF fso.FolderExists(TruePath) THEN
	FileCount=0
	TotleSize=0
	Set theFolder=fso.GetFolder(TruePath)
	For Each theFile In theFolder.Files
		xx=0
		IF instr(AllUploadFiles,UploadDir & theFile.Name) THEN xx=1
		IF FileTypex="" THEN
		xx=1
		yy=1
		Else
		IF FileTypex="yes" THEN yy=1
		IF FileTypex="not" THEN yy=0
		End IF
		    IF xx=yy THEN
			    FileCount=FileCount+1
			    TotleSize=TotleSize+theFile.Size
		    End IF
	Next
    totalPut=FileCount
	IF currentpage<1 THEN
   		currentpage=1
   	End IF
   	IF (currentpage-1)*MaxPerPage>totalput THEN
		IF (totalPut mod MaxPerPage)=0 THEN
	  		currentpage= totalPut \ MaxPerPage
	  	Else
	      	currentpage= totalPut \ MaxPerPage + 1
		End IF

    End IF
	num=0
	FileCount=0
	TotleSize=0
For Each theFile In theFolder.Files
xx=0
IF instr(AllUploadFiles,UploadDir & theFile.Name) THEN xx=1
IF FileTypex="" THEN
yy=1
xx=1
Else
IF FileTypex="yes" THEN yy=1
IF FileTypex="not" THEN yy=0
End IF
IF xx=yy THEN
	c=c+1
	IF FileCount>=MaxPerPage THEN
		exit for
	elseif c>MaxPerPage*(CurrentPage-1) THEN
num = num+1
		  strFileType=lcase(mid(theFile.Name,instrrev(theFile.Name,".")+1))
		  select Case strFileType
		  Case "jpg","gif","bmp","png"
		      FileTimage=UploadDir & theFile.Name
		  Case "swf"
		      FileTimage="Images/File_Flash.gif"
		  Case "wmv","avi","asf","mpg"
		      FileTimage="Images/File_Media.gif"
		  Case "rm","ra","ram"
		      FileTimage="Images/File_Rm.gif"
		  Case "rar"
		      FileTimage="Images/File_Rar.gif"
		  Case "zip"
		      FileTimage="Images/File_Zip.gif"
		  Case "exe"
		      FileTimage="Images/File_Exe.gif"
		  Case Else
		  
		  End select
IF num Mod 2 = 0 Then
strIfa = strIfa & "<TD ALIGN=right>"&_
                  "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
                  "<TR>"&_
                  "<TD WIDTH=160 HEIGHT=130 rowspan=2 ALIGN=center CLASS=table11> <A HREF='" & (UploadDir & theFile.Name) & "' target=_blank><IMG SRC='" & FileTimage & "' WIDTH=140 BORDER=0 HEIGHT=100></A></TD>"&_
                  "<TD colspan=2 CLASS=table11><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
                  "<TR>"&_
                  "<TD>文 件 名：" & theFile.Name & "</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>文件大小：" & round(theFile.size/1024) & " K</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>文件类型：" & theFile.type & "</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>修改时间：" & theFile.DateLastModified & "</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>文件属性：<A HREF='Aa_upload.asp?DelFile=Del&Action=" & Action & "&xFileName=" & theFile.Name & "&UploadDir=" & left(UploadDir,len(UploadDir)-1) & "' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT TYPE=checkbox NAME=xFileName CLASS=radio_all VALUE=" & theFile.Name & " "
				  IF instr(strFiles,theFile.Name)<=0 THEN 
strIfa = strIfa & "checked"
				  End IF
strIfa = strIfa & "></TD>"&_
                  "</TR>"&_
                  "</TABLE></TD>"&_
                  "</TR></TABLE></TD></TR>"
                 Else
strIfa = strIfa & "<TR>"&_
                  "<TD><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
                  "<TR>"&_
                  "<TD WIDTH=160 HEIGHT=130 rowspan=2 ALIGN=center CLASS=table11> <A HREF='" & (UploadDir & theFile.Name) & "' target=_blank><IMG SRC='" & FileTimage & "' WIDTH=140 BORDER=0 HEIGHT=100></A></TD>"&_
                  "<TD colspan=2 CLASS=table11><TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
                  "<TR>"&_
                  "<TD>文 件 名：" & theFile.Name & "</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>文件大小：" & round(theFile.size/1024) & " K</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>文件类型：" & theFile.type & "</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>修改时间：" & theFile.DateLastModified & "</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD>文件属性：<A HREF='Aa_upload.asp?DelFile=Del&Action=" & Action & "&xFileName=" & theFile.Name & "&UploadDir=" & left(UploadDir,len(UploadDir)-1) & "' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT TYPE=checkbox NAME=xFileName CLASS=radio_all VALUE=" & theFile.Name & " "
				  IF instr(strFiles,theFile.Name)<=0 THEN 
strIfa = strIfa & "checked"
				  End IF
strIfa = strIfa & "></TD>"&_
                  "</TR>"&_
                  "</TABLE></TD>"&_
                  "</TR>"&_
                  "</TABLE></TD>"
              End IF
		FileCount=FileCount+1
		TotleSize=TotleSize+theFile.Size
              End IF
	End IF
   Next
strIfa = strIfa & "</TABLE></TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD HEIGHT=30 ALIGN=center CLASS=Table9>"&_
                  "<INPUT NAME=UploadDir TYPE=hidden id=UploadDir VALUE='" & left(UploadDir,len(UploadDir)-1) & "'>"&_
                  "<INPUT TYPE=checkbox CLASS=radio_all NAME=chkall VALUE=on onClick='CheckAll(this.form)'>"&_
                  " 选择全部　"&_
                  "<INPUT TYPE=submit NAME=Del CLASS=submit_all VALUE=' 删除 ' onClick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'></TD> "&_
                  "</TR></form><TR>"&_
                  "<TD HEIGHT=25 ALIGN=center CLASS=Table8>"
sfilename=strFileName
totalrec=totalput
iPageSize=MaxPerPage

  Else
  End IF
  
strIfb = "</TD></TR></TABLE>"
Call Page_aTable(0,1)
End Select
End IF
End IF
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -