<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_popfun.asp -->
<!--#include file="wxzfunction.asp"-->
<%
WPD_html()
WPD_Getconfig
WPD_ScriptSrc(WPD_pluspath&"visual/wxzmain.js")
WPD_checkplususer
WPD_isshowtop=1
%>
<!--#include file="z_Visual_const.asp"-->
<%

WPD_stats="形象管理(<a href=z_visual.asp>V</a>)"
WPD_header "形象管理","visual","z_admin_visual.asp"

dim menu,body
menu=request.querystring("menu")

if not WPD_master then
	WPD_Errmsg=WPD_Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
	call WPD_error()
else
	if menu="" then
 		call main()
	elseif menu=1 then
	 	call defaultvalue()
	elseif menu=2 then
 		call feeman()
	elseif menu=3 then
 		call fixnew()
	elseif menu=4 then
 		call deltime()
	elseif menu=5 then
 		call deluser()
	elseif menu=6 then
 		call importitems()
	elseif menu=7 then
 		call delperiod()
	elseif menu=8 then
 		call photoman()
	elseif menu=9 then
 		call cleanbg()
	end if 	
end if
WPD_footer()

sub main() 
dim sql1,rs1,sql2,rs2 
sql1="select * from visual_config" 
set rs1=conn.execute(sql1) %>
<br>
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
	<form action=?menu=4 method=post>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td class=TBHead valign=middle colspan=2 height=23 align=left>删除指定日期内事件</td>
	</tr>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td  valign=middle width=40%>删除多少天前的事件(填写数字)</td><td ><input type=text name="TimeLimited" value=60 size=30>&nbsp;<input type=submit name="submit" value="提 交"></td>
	</tr>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td  valign=middle width=40% >事件类型</td>
		<td ><select name="deltype" size=1><option value="0">购买日志</option><option value="1">赠送日志</option><option value="2">出售日志</option></select></td>
	</tr>
	</form>
	<form action=?menu=5 method=post>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td class=TBHead valign=middle colspan=2 height=23 align=left>删除某社员的所有事件</td>
	</tr>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td  valign=middle width=40% >请输入社员名</td>
		<td ><input type=text name="username" size=30>&nbsp;<input type=submit name="submit" value="提 交"></td>
	</tr>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td  valign=middle width=40% >事件类型</td>
		<td ><select name="deltype" size=1><option value="0">购买日志</option><option value="1">赠送日志</option><option value="2">出售日志</option></select></td>
	</tr>
	</form>
</table>
<br>
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
	<form action=?menu=7 method=post>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td class=TBHead valign=middle colspan=2 height=23 align=left>清除过期的物品</td>
	</tr>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
		<td  valign=middle width=40%>清除过期多少天物品(填写数字)</td><td ><input type=text name="DelPeriod" value=60 size=30>&nbsp;<input type=submit name="submit" value="提 交"></td>
	</tr>
	</form>
</table>
<br>
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9><td class=TBHead align=center colspan=4 height=1 align="left"><b>形象商品默认值管理</b></td></tr> 
<form name="form" method="post" action="?menu=1"> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="25%" height="25">默认的标价：</td> 
	<td  align=left width="25%" height="25"><INPUT type=text name=price1 size="20" value="<%=rs1("price1")%>"></td> 
	<td  align=right width="25%" height="25">默认的VIP价：</td> 
	<td  align=left width="25%" height="25"><INPUT type=text name=price2 size="20" value="<%=rs1("price2")%>"></td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="25%" height="25">默认的有效期：</td> 
	<td  align=left width="25%" height="25"><INPUT type=text name=period size="20" value="<%=rs1("period")%>"></td> 
	<td  align=right width="25%" height="25">默认的库存：</td> 
	<td  align=left width="25%" height="25"><INPUT type=text name=quantity size="20" value="<%=rs1("quantity")%>"></td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="25%" height="25">默认的限购者：</td> 
	<td  align=left width="25%" height="25"><select size=1 name="flag"><option value=0<%if rs1("flag")=0 then%> selected<%end if%>>保留商品</option><option value=1<%if rs1("flag")=1 then%> selected<%end if%>>所有社员</option><option value=2<%if rs1("flag")=2 then%> selected<%end if%>>版主以上</option><option value=3<%if rs1("flag")=3 then%> selected<%end if%>>超级版主</option><option value=4<%if rs1("flag")=4 then%> selected<%end if%>>管理员</option></select></td> 
	<td  align=right width="25%" height="25">默认是否VIP专购：</td> 
	<td  align=left width="25%" height="25"><input type=radio name="vip" value="0"<%if not rs1("vip") then%> checked<%end if%>>&nbsp;否&nbsp;&nbsp;<input type=radio name="vip" value="1"<%if rs1("vip") then%> checked<%end if%>>&nbsp;是</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=center colspan=4 height="27"><INPUT type=submit value=修改 name=submit></td> 
</tr> 
</form> 
</table> 
<br> 
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9><td class=TBHead align=center colspan=4 height=1 align="left"><b>形象商品的手续费管理</b></td></tr> 
<form name="form" method="post" action="?menu=2"> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">赠送商品的手续费(标准价格的百分比)：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=send size="20" value="<%=rs1("send")%>"> %</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">出售商品的手续费(成交价格的百分比)：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=sale size="20" value="<%=rs1("sale")%>"> %</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">出售商品的最低价(标准价格的百分比)：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=salemin size="20" value="<%=rs1("salemin")%>"> %</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=center colspan=2 height="27"><INPUT type=submit value=修改 name=submit></td> 
</tr> 
</form> 
</table> 
<br> 
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9><td class=TBHead align=center colspan=4 height=1 align="left"><b>形象商品的翻新管理</b></td></tr> 
<form name="form" method="post" action="?menu=3"> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">增加一天有效期的费用(享受价格/有效期的百分比)：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=new1 size="20" value="<%=rs1("new1")%>"> %</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">增加至永远有效的费用(享受价格的倍数)：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=new0 size="20" value="<%=rs1("new0")%>"> 倍</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=center colspan=2 height="27"><INPUT type=submit value=修改 name=submit></td> 
</tr> 
</form> 
</table> 
<br> 
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9><td class=TBHead align=center colspan=4 height=1 align="left"><b>照相管理</b></td></tr> 
<form name="form" method="post" action="?menu=8"> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">普通社员照相的价格：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=photoprice1 size="20" value="<%=rs1("photoprice1")%>"> 元/人</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">VIP社员照相的价格：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=photoprice2 size="20" value="<%=rs1("photoprice2")%>"> 元/人</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">照相请求的有效时间：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=photoperiod size="20" value="<%=rs1("photoperiod")%>"> 天</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">完成照片的默认状态：</td> 
	<td  align=left width="50%" height="25"><INPUT type=radio name=photostatus value="0"<%if rs1("photostatus")=0 then%> checked<%end if%>> 保密&nbsp;&nbsp;<INPUT type=radio name=photostatus value="1"<%if rs1("photostatus")=1 then%> checked<%end if%>> 公开</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">最大允许合影的人数：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=photousercount size="20" value="<%=rs1("photousercount")%>"> 人</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">最大允许上传背景的大小：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=photobgsize size="20" value="<%=rs1("photobgsize")%>"> K</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">普通社员上传背景的价格：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=photoupprice1 size="20" value="<%=rs1("photoupprice1")%>"> 元/K</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=right width="50%" height="25">VIP社员上传背景的价格：</td> 
	<td  align=left width="50%" height="25"><INPUT type=text name=photoupprice2 size="20" value="<%=rs1("photoupprice2")%>"> 元/K</td> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=center colspan=2 height="27"><INPUT type=submit value=修改 name=submit></td> 
</tr> 
</form> 
<form name="form" method="post" action="?menu=9"> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
	<td  align=center colspan=2 height="27"><INPUT type=submit value=清理无用背景 name=submit></td> 
</tr> 
</form> 
</table> 
<br> 
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9><td class=TBHead align=center height=1 colspan="2" align="left">形象商品管理</p</td></tr>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
<td  width="35%"><b>添加形象商品</b><br>（请输入您想导入的商品数据库文件名）</td>
<form name="form1" method="post" action="?menu=6"> 
<td  width="65%" height="45">例如NewVisual<%=right("00"&month(now()),2)&right("00"&day(now()),2)&".mdb"%><br><INPUT type=text name=newvisualfile size="40">&nbsp; <INPUT type=submit value=确认 name=submit></td> 
</form> 
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
<td  width="35%"><b>形象商品管理</b></td>
<form name="form1" method="get" action="z_admin_visual_items.asp">
<td  width="65%" height="40"><INPUT type=submit value='进 行 管 理' name=submit></td> 
</form>
</tr> 
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> 
<td  width="35%"><b>形象商品分类管理</b></td>
<form name="form1" method="get" action="z_admin_visual_type.asp">
<td  width="65%" height="40"><INPUT type=submit value='进 行 管 理' name=submit></td> 
</form>
</tr> 
</table> 
<br> 
<%end sub

sub defaultvalue() 
	dim price1,price2,period,quantity,flag,vip,rs,sql
	if not WPD_isInteger(request.form("price1")) or not WPD_isInteger(request.form("price2")) or not WPD_isInteger(request.form("period")) or not WPD_isInteger(request.form("quantity")) or not WPD_isInteger(request.form("flag")) or not WPD_isInteger(request.form("vip")) then
		WPD_WriteCenter "输入的数据必须为整数！"
		response.end 
	else 
		if request.form("price1")="" then 
			price1=100
		else 
			price1=int(request.form("price1")) 
		end if 
		if request.form("price2")="" then 
			price2=50 
		else 
			price2=int(request.form("price2")) 
		end if 
		if request.form("period")="" then 
			period=30 
		else 
			period=int(request.form("period")) 
		end if 
		if request.form("quantity")="" then 
			quantity=15 
		else 
			quantity=int(request.form("quantity")) 
		end if 
		if request.form("flag")="" then 
			flag=1 
		else 
			flag=int(request.form("flag")) 
		end if 
		if request.form("vip")="" then 
			vip=0
		else 
			vip=int(request.form("vip")) 
		end if 
	end if 
	set rs= server.createobject ("adodb.recordset") 
	sql = "select * from visual_config" 
	rs.Open sql,conn,1,3 
	if not(rs.eof and rs.bof) then 
		rs("price1") = price1 
		rs("price2") = price2 
		rs("period") = period
		rs("quantity") = quantity 
		rs("flag") = flag 
		if vip=0 then
			rs("vip")=false
		else
			rs("vip")=true
		end if
		rs.Update 
	end if 
	rs.close 
	set rs=nothing 
	WPD_WriteCenter "<center><br><br>修改成功!</center><br><br>" 
end sub 

sub feeman() 
	dim send,sale,salemin,rs,sql
	if not WPD_isInteger(request.form("send")) or not WPD_isInteger(request.form("sale")) or not WPD_isInteger(request.form("salemin")) then
		WPD_WriteCenter "输入的数据必须为整数！"
		response.end 
	else 
		if request.form("send")="" then 
			send=5
		else 
			send=int(request.form("send")) 
		end if 
		if request.form("sale")="" then 
			sale=5
		else 
			sale=int(request.form("sale")) 
		end if 
		if request.form("salemin")="" then 
			salemin=30 
		else 
			salemin=int(request.form("salemin")) 
		end if 
	end if 
	set rs= server.createobject ("adodb.recordset") 
	sql = "select * from visual_config" 
	rs.Open sql,conn,1,3 
	if not(rs.eof and rs.bof) then 
		rs("send") = send
		rs("sale") = sale
		rs("salemin") = salemin
		rs.Update 
	end if 
	rs.close 
	set rs=nothing 
	WPD_WriteCenter "<center><br><br>修改成功!</center><br><br>" 
end sub 

sub fixnew() 
	dim new1,new0,rs,sql
	if not WPD_isInteger(request.form("new1")) or not WPD_isInteger(request.form("new0")) then
		WPD_WriteCenter "输入的数据必须为整数！"
		response.end 
	else 
		if request.form("new1")="" then 
			new1=50
		else 
			new1=int(request.form("new1")) 
		end if 
		if request.form("new0")="" then 
			new0=5
		else 
			new0=int(request.form("new0")) 
		end if 
	end if 
	set rs= server.createobject ("adodb.recordset") 
	sql = "select * from visual_config" 
	rs.Open sql,conn,1,3 
	if not(rs.eof and rs.bof) then 
		rs("new1") = new1
		rs("new0") = new0
		rs.Update 
	end if 
	rs.close 
	set rs=nothing 
	WPD_WriteCenter "<center><br><br>修改成功!</center><br><br>" 
end sub 

sub deltime()
	dim dtime
	dtime=request("TimeLimited")
	if not WPD_isInteger(dtime) then
		WPD_WriteCenter "输入的天数需要为整数。"
	else
		conn.execute("delete from visual_events where datediff('d',dateandtime,now())>"&dtime&" and type="&request("deltype"))
		WPD_WriteCenter "删除成功。"
	end if
end sub 

sub delperiod()
	dim dtime
	dtime=request("DelPeriod")
	if not WPD_isInteger(dtime) then
		WPD_WriteCenter "输入的天数需要为整数。"
	else
		conn.execute("delete from visual_myitems where datediff('d',fixdate,now())-period>"&dtime&" and period>0")
		WPD_WriteCenter "删除成功。"
	end if
end sub 

sub deluser()
	dim username
	username=request("username")
	set rs=conn.execute("select userid from [user] where username='"&username&"'")
	if rs.eof and rs.bof then
		WPD_WriteCenter "此社员不是存在。"
	else
		if request("deltype")=0 then
			conn.execute("delete from visual_events where (type=0 or type=2) and username='"&username&"'")
		elseif request("deltype")=1 then
			conn.execute("delete from visual_events where type=1 and fromuser='"&username&"'")
		elseif request("deltype")=2 then
			conn.execute("delete from visual_events where type=2 and fromuser='"&username&"'")
		end if
		WPD_WriteCenter "删除成功。"
	end if
	rs.close
end sub 

sub importitems()
	dim visualname,TCONN,icount,pcount
	visualname=WPD_Checkstr(trim(request("newvisualfile")))
	if visualname="" then
		WPD_Errmsg=WPD_Errmsg+"<Br>"+"<li>请填写导入的数据库名"
		WPD_WriteCenter WPD_Errmsg
		exit sub
	end if
	Set tconn = Server.CreateObject("ADODB.Connection")
	tconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(visualname)
	dim trs,nrs
	set trs=tconn.execute(" select * from visual_items ")
	sql="select * from visual_config" 
	set rs=conn.execute(sql)
	icount=0
	pcount=0
	do while not trs.eof
		if conn.execute("select top 1 id from visual_items where id="&trs("id")).eof then
			conn.execute("insert into visual_items (id,name,sex,type,content,price1,price2,period,quantity,flag,vip) values ("&trs("id")&",'"&trs("name")&"',"&trs("sex")&","&trs("type")&",'"&trs("content")&"',"&rs("price1")&","&rs("price2")&","&rs("period")&","&rs("quantity")&","&rs("flag")&","&rs("vip")&")")
			icount=icount+1
		else
			pcount=pcount+1
		end if
		trs.movenext
	loop
	trs.close
	set trs=nothing
	rs.close
	WPD_WriteCenter "数据导入成功(导入"&icount&"个新商品，跳过"&pcount&"个已有商品)！"
end sub

sub photoman() 
	dim photoprice1,photoprice2,photoperiod,photostatus,photousercount,photobgsize,photoupprice1,photoupprice2,sql
	if not WPD_isInteger(request.form("photoprice1")) or not WPD_isInteger(request.form("photoprice2")) or not WPD_isInteger(request.form("photoperiod")) or not WPD_isInteger(request.form("photostatus")) or not WPD_isInteger(request.form("photousercount")) or not WPD_isInteger(request.form("photobgsize")) or not WPD_isInteger(request.form("photoupprice1")) or not WPD_isInteger(request.form("photoupprice2")) then
		WPD_WriteCenter "输入的数据必须为整数！"
		response.end 
	else 
		if request.form("photoprice1")="" then 
			photoprice1=20
		else 
			photoprice1=int(request.form("photoprice1")) 
		end if 
		if request.form("photoprice2")="" then 
			photoprice2=10
		else 
			photoprice2=int(request.form("photoprice2")) 
		end if 
		if request.form("photoperiod")="" then 
			photoperiod=5
		else 
			photoperiod=int(request.form("photoperiod")) 
		end if 
		if photoperiod<=0 then
			WPD_WriteCenter "照相请求的有效时间必须大于零！"
			response.end 
		end if
		if request.form("photostatus")="" then 
			photostatus=1
		else 
			photostatus=int(request.form("photostatus")) 
		end if 
		if request.form("photousercount")="" then 
			photousercount=5
		else 
			photousercount=int(request.form("photousercount")) 
		end if 
		if photousercount<=0 then
			WPD_WriteCenter "最大允许合影的人数必须大于零！"
			response.end 
		end if
		if request.form("photobgsize")="" then 
			photobgsize=100
		else 
			photobgsize=int(request.form("photobgsize")) 
		end if 
		if photobgsize<=0 then
			WPD_WriteCenter "最大允许上传背景的大小！"
			response.end 
		end if
		if request.form("photoupprice1")="" then 
			photoupprice1=2
		else 
			photoupprice1=int(request.form("photoupprice1")) 
		end if 
		if request.form("photoupprice2")="" then 
			photoupprice2=10
		else 
			photoupprice2=int(request.form("photoupprice2")) 
		end if 
	end if 
	set rs= server.createobject ("adodb.recordset") 
	sql = "select * from visual_config" 
	rs.Open sql,conn,1,3 
	if not(rs.eof and rs.bof) then 
		rs("photoprice1") = photoprice1
		rs("photoprice2") = photoprice2
		rs("photoperiod") = photoperiod
		rs("photostatus") = photostatus
		rs("photousercount") = photousercount
		rs("photobgsize") = photobgsize
		rs("photoupprice1") = photoupprice1
		rs("photoupprice2") = photoupprice2
		rs.Update 
	end if 
	rs.close 
	set rs=nothing 
	WPD_WriteCenter "<center><br><br>修改成功!</center><br><br>" 
end sub

sub cleanbg()
	dim objFSO
	dim uploadfolder
	dim uploadfiles
	dim upname
	dim upfilename
	dim selectfile
	dim delfile
	
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set uploadFolder=objFSO.GetFolder(Server.MapPath("UserVisual\"))
	Set uploadFiles=uploadFolder.Files
	i=0
	For Each Upname In uploadFiles
		delfile=0
		upfilename=PhotoPath&"/"&upname.name
		if instr(upname.name,"_")<=0 then
			set rs=conn.execute("select id from visual_photo where isUpload and Background='"&upname.name&"'")
			if rs.eof  then
				delfile=1
			end if
			rs.close
			set rs=nothing
		else
			selectfile=split(upname.name,"_")
			if lcase(selectfile(0))<>"photo" then
				delfile=1
			end if
		end if
		if delfile=1 then
			i=i+1
			objFSO.DeleteFile(Server.MapPath(upfilename))
			WPD_WriteCenter upfilename&" 已被删除！<br>"
		end if
	next
	WPD_WriteCenter "共删除　"&i&"　个无用背景文件！"
	set uploadFolder=nothing
	set uploadFiles=nothing
	set objFSO=nothing
end sub%>