admin_uploadfile.asp

简单明晰的asp后台代码 新闻 产品

<!--#include file = "../inc/dbclass.inc.asp" -->
<!--#include file = "../inc/syslogincheck.inc.asp" -->

<%
' =============================================================
' made by xiasp & 智多网络 http://www.cq18.com/ qq群：12403617
' =============================================================
%>

<%
response.expires = 0 
response.expiresabsolute = now() - 1 
response.addheader "pragma","no-cache" 
response.addheader "cache-control","private" 
response.cachecontrol = "no-cache" 
%> 

<%

dim scurrdir, saction

call header("上传文件管理")
call content()
call footer()


sub content()
%>
<!--#include file = "admin_index_top.asp" -->
<br>
<script language="javascript">
<!--
function checkselect()
{
	var count=0;
	for(i=0;i<document.myform.elements.length;i++)
	{
		if(document.myform.elements[i].name=="delfilename")
		{		
			if(document.myform.elements[i].checked==true)
			{
				count++;					
			}				
		}			
	}
		
	if(count<=0)
	{
		alert("请选择一条要操作的信息！");
		return false;
	}

	return true;
}

function cdel()
{
	if(checkselect()==false)
	{
		return false;
	}
	
	if (confirm("你确定要清空这些文件吗？不可恢复！")){
		document.myform.submit();
	}
}

function cclean()
{
	if (confirm("此按键将清理一些系统中的垃圾图片，暂时不开放！")){
//		document.myform2.submit();
	}
}

function selectcheckbox()
{
	for(i=0;i<document.myform.elements.length;i++)
	{
		if(document.all("selectcheck").checked == true)
		{
			document.myform.elements[i].checked = true;					
		}
		else
		{
			document.myform.elements[i].checked = false;
		}
	}
}
//-->
</script>
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25"><b><% = homepage_title%> - <font color="#ff0000">上传文件管理</font></b></td>
  </tr>
  <form action="admin_uploadfile.asp?action=del" method="post" name="myform">
  <tr>
    <td>
	<%
	if isobjinstalled("scripting.filesystemobject") = false then
		response.write "此功能要求服务器支持文件系统对象（fso），而你当前的服务器不支持！"
		exit sub
	end if

	saction = getsafestr(trim(request.querystring("action")))
	scurrdir = "../uploadfile/"
	
	if saction ="del" then
		' 删除指定文件
		call dodel()
	end if

	' 显示文件列表
	call showlist()
end sub

' uploadfile目录下的所有文件列表
sub showlist()
	
	if scurrdir = "" then exit sub
%>
	<table width='100%' border='1' cellspacing='0' cellpadding='0' bordercolordark='#ffffff' bordercolorlight='#cccccc'>
		<tr align=center  bgcolor='#799ae1'>
			<td width='7%'><font color='#ffffff'>选定</font></td>
			<td width='8%' height="20"><font color='#ffffff'>类型</font></td>
			<td width='27%'><font color='#ffffff'>文件地址</font></td>
			<td width='10%'><font color='#ffffff'>大小</font></td>
			<td width='24%'><font color='#ffffff'>最后访问</font></td>
			<td width='24%'><font color='#ffffff'>上传日期</font></td>
	</tr>
<%
	dim scurrpage, ncurrpage, nfilenum, npagenum, npagesize
	scurrpage = trim(request("page"))
	npagesize = 20
	if scurrpage = "" or not isnumeric(scurrpage) then
		ncurrpage = 1
	else
		ncurrpage = clng(scurrpage)
	end if

	dim ofso, ouploadfolder, ouploadfiles, ouploadfile, sfilename

	set ofso = server.createobject("scripting.filesystemobject")
	on error resume next
	set ouploadfolder = ofso.getfolder(server.mappath(scurrdir))
	if err.number>0 then
		response.write "<tr><td colspan=6>无效的目录！</td></tr>"
		exit sub
	end if
	
	set ouploadfiles = ouploadfolder.files

	nfilenum = ouploadfiles.count
	npagenum = int(nfilenum / npagesize)
	if nfilenum mod npagesize > 0 then
		npagenum = npagenum+1
	end if
	if ncurrpage > npagenum then
		ncurrpage = 1
	end if

	dim i
	i = 0
	for each ouploadfile in ouploadfiles
		i = i + 1
		if i > (ncurrpage - 1) * npagesize and i <= ncurrpage * npagesize then
			sfilename = ouploadfile.name
%>
			<tr align=center>
				<td><input type="checkbox" name="delfilename" value="<%=sfilename%>"></td>
				<td><%=filename2pic(sfilename)%></td>
				<td align=left><a href="<%=scurrdir & sfilename%>" target="_blank"><%=sfilename%></a></td>
				<td><%=ouploadfile.size%> b</td>
				<td><%=ouploadfile.datelastaccessed%></td>
				<td><%=ouploadfile.datecreated%></td>
			</tr>
<%
		elseif i > ncurrpage * npagesize then
			exit for
		end if
	next
	set ouploadfolder = nothing
	set ouploadfiles = nothing

	if nfilenum <= 0 then
		response.write "<tr><td colspan=6>指定目录下现在还没有文件！</td></tr>"
	end if
%>
	</table>
   </td>
  </tr>
  <tr>
    <td align="right">
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="30" width="7%"><div align="center">
            <input type='checkbox' name='selectcheck' id=selectcheck2 onclick="selectcheckbox()">
          </div></td>
		  <td><input type="button" name="b" value="删除文件" class="button2" onclick="cdel();">&nbsp;<input type="button" name="b" value="清理垃圾" class="button2" onclick="cclean();"></td>
          <td align="right">
<%
	if nfilenum > 0 then
		' 分页
		response.write "<table border=0 cellpadding=3 cellspacing=0 width='100%'><tr><td align='right'>"
		if ncurrpage > 1 then
			response.write "<a href='?page=1'>首页</a>&nbsp;&nbsp;<a href='?page="& ncurrpage - 1 & "'>上一页</a>&nbsp;&nbsp;"
		else
			response.write "首页&nbsp;&nbsp;上一页&nbsp;&nbsp;"
		end if
		if ncurrpage < i / npagesize then
			response.write "<a href='?page=" & ncurrpage + 1 & "'>下一页</a>&nbsp;&nbsp;<a href='?page=" & npagenum & "'>尾页</a>"
		else
			response.write "下一页&nbsp;&nbsp;尾页"
		end if
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;共<b>" & nfilenum & "</b>个&nbsp;&nbsp;页次:<b><span class=highlight2>" & ncurrpage & "</span>/" & npagenum & "</b>&nbsp;&nbsp;<b>" & npagesize & "</b>个文件/页"
		response.write "</td></tr></table>"
	end if
%>		  </td>
        </tr>
      </table></td>
  </tr>
 </form>
</table>
<%
end sub

' 删除指定的文件
sub dodel()
	on error resume next
	dim sfilename, ofso, smapfilename
	set ofso = server.createobject("scripting.filesystemobject")
	for each sfilename in request.form("delfilename")
		smapfilename = server.mappath(scurrdir & sfilename)
		if ofso.fileexists(smapfilename) then
			ofso.deletefile(smapfilename)
		end if
	next
	set ofso = nothing
end sub

' 检测服务器是否支持某一对象
function isobjinstalled(strclassstring)
	on error resume next
	isobjinstalled = false
	err = 0
	dim xtestobj
	set xtestobj = server.createobject(strclassstring)
	if 0 = err then isobjinstalled = true
	set xtestobj = nothing
	err = 0
end function


' 按文件名取图
function filename2pic(sfilename)
	dim sext, spicname
	sext = ucase(mid(sfilename, instrrev(sfilename, ".")+1))
	select case sext
	case "txt"
		spicname = "txt.gif"
	case "chm", "hlp"
		spicname = "hlp.gif"
	case "doc"
		spicname = "doc.gif"
	case "pdf"
		spicname = "pdf.gif"
	case "mdb"
		spicname = "mdb.gif"
	case "gif"
		spicname = "gif.gif"
	case "jpg"
		spicname = "jpg.gif"
	case "bmp"
		spicname = "bmp.gif"
	case "png"
		spicname = "pic.gif"
	case "asp", "jsp", "js", "php", "php3", "aspx"
		spicname = "code.gif"
	case "htm", "html", "shtml"
		spicname = "htm.gif"
	case "zip"
		spicname = "zip.gif"
	case "rar"
		spicname = "rar.gif"
	case "exe"
		spicname = "exe.gif"
	case "avi"
		spicname = "avi.gif"
	case "mpg", "mpeg", "asf"
		spicname = "mp.gif"
	case "ra", "rm"
		spicname = "rm.gif"
	case "mp3"
		spicname = "mp3.gif"
	case "mid", "midi"
		spicname = "mid.gif"
	case "wav"
		spicname = "audio.gif"
	case "xls"
		spicname = "xls.gif"
	case "ppt", "pps"
		spicname = "ppt.gif"
	case "swf"
		spicname = "swf.gif"
	case else
		spicname = "unknow.gif"
	end select
	filename2pic = "<img border=0 src='../webeditor/sysimage/file/" & spicname & "'>"
end function
%>