admin_upload.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%admheader
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_upload.asp
'Version:2.0
'UpdateTime: 2004-10-6 22:17:44
'Script Written by www.aspease.com 
'=========================================================
Dim filename,objFSO,uploadFolder,uploadFiles,filenum,upfilename
pagesize=15
page=request.querystring("page")
if page="" or not isnumeric(page) then
	page=1
else
	page=int(page)
end if
action=request("action")
if action="auc" then
	upload="upload"
else
	upload="shopimg"
end if
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
filename=request("filename")
if filename<>"" then
	filename=replace(filename," ","")
	filename=split(filename,",")
	for i=0 to ubound(filename)
		objFSO.DeleteFile(Server.MapPath(upload&"/"&filename(i)))
	next
	response.write "删除成功，请返回"
	response.end
end if
Set uploadFolder=objFSO.GetFolder(Server.MapPath(upload&"/"))
Set uploadFiles=uploadFolder.Files

response.write "<table bgcolor=""#ffffff"" width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center> <form action=?action="&request("action")&" method=post>"
response.Write("<tr align=center><th height=30 colspan=6>")
if action="auc" then
response.Write("商品图片管理")
else
response.Write("商店图片管理")
end if
response.Write("</th></tr>")
response.Write("<tr align=center><th width=""*"" height=25>文件名</th><th width=""100"">所属用户</th><th width=""50"">大小</th><th width=""120"">上传日期</th><th width=""120"">有用</th><th width=""35"">管理</th></tr>")
filenum=uploadfiles.count
if filenum=0 then
response.Write("<tr align=center><td width=""*"" height=25 colspan=6  class=Row>没有图片</td></tr>")
response.end
end if
pagenum=int(filenum/pagesize)
if filenum mod pagesize>0 then
	pagenum=pagenum+1
end if
if page> pagenum then
	page=1
end if
i=0
For Each Upname In uploadFiles
	i=i+1
	if i>(page-1)*pagesize and i<=page*pagesize then
		upfilename=upload&"/"&upname.name
		if instr(upname.name,"_") then   
			uid=split(upname.name,"_")
			usernames=uid(0)	
		else
			usernames=""
		end if
		if request("action")="auc" then
			sql="select auc_imageurl from auctions where auc_imageurl="
		else
			sql="select shoplogo from shops where shoplogo="
		end if
		set rs=conn.execute(sql&"'"&upload&"/"&upname.name&"'")
			if rs.eof then
				userstr="N"
			else
				userstr="Y"
			end if	
			response.write "<tr><td class=Row height=23><a href="""&upload&"/"&upname.name&""" target=_blank>"&upname.name&"</a></td>"
			response.write "<td align=center class=Row>"& usernames &"</td>"
			response.write "<td align=center class=Row>"& upname.size &"</td>"
			response.write "<td align=center class=Row>"& upname.datecreated &"</td>"
			response.write "<td align=center class=Row>"& userstr &"</td>"		
			response.write "<td align=center class=Row>"		
			response.write "<input type=checkbox name=filename value=" & upname.name
			if userstr="N" then
				response.write " checked"
			end if
			response.write "></td></tr>"
	elseif i>page*pagesize then
		exit for
	end if
next
response.Write("<tr><td colspan=6 class=Row>&nbsp;&nbsp;&nbsp;")
if page>1 then
	response.write "<a href=?action="&action&"&page=1>首页</a>&nbsp;&nbsp;<a href=?action="&action&"&page="& page-1 &">上一页</a>&nbsp;&nbsp;"
else
	response.write "首页&nbsp;&nbsp;上一页&nbsp;&nbsp;"
end if
if page<i/pagesize then
	response.write "<a href=?action="&action&"&page="& page+1 &">下一页</a>&nbsp;&nbsp;<a href=?action="&action&"&page="& pagenum &">尾页</a>"
else
	response.write "下一页&nbsp;&nbsp;尾页"
end if
response.Write("</td><tr>")
response.Write("<tr align=center><td colspan=6 class=Row><input type=submit value=清理></td></tr>")
response.write "</form></table>"
Set objFSO=nothing
set uploadFolder=nothing
set uploadFiles=nothing
admfooter
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_upload.asp
'Version:2.0
'UpdateTime: 2004-10-6 22:17:44
'Script Written by www.aspease.com 
'=========================================================%>