<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%qx=3%>
<!--#include file="top.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/page.asp"-->
<!--#include file="../up/fso.asp"-->
<link rel="stylesheet" type="text/css" href="../include/css.css">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="center" valign="middle"> 
    <td width="50%" height="40"><a href="?abc=q">全部上传图片</a></td>
    <td width="50%"><a href="?">近3天上传图片</a></td>
  </tr>
</table>
    <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" class="tableborder">
  <tr>
    <td height="25" colspan="4" align="center" valign="middle" background="images/admin_bg_4.gif" bgcolor="#FFFFFF"><span style="color: #FFFFFF"><strong>上传管理</span></strong></td>
  </tr>
  <tr>
<%
if request("del")="yes" then
tp=conn.execute("select tp from shangchuan where id="&shopnet("id")&"")(0)
wj="../"&tp
del_wj_myfso wj
conn.execute("Delete * from shangchuan where id="&shopnet("id")&"")
end if
Set rs= Server.CreateObject("ADODB.Recordset")
if shopnet("abc")="q" then
sql="select id,tp,dx,name,lx,sj,ip from shangchuan order by id DESC"
else
sql="select id,tp,dx,name,lx,sj,ip from shangchuan where datediff('d',sj,now())<3 order by id DESC"
end if
rs.open sql,conn,1,1
if rs.eof then
response.write "  <td height=""21"" colspan=""4"" align=""center"" valign=""middle"" bgcolor=""#FFFFFF"" bgcolor=""#ffffff"">暂无图片上传</td></tr>"
else
page1("6")
i=1
do while not rs.eof and i<=rs.pagesize%>
    <td width="120" height="120" align="center" valign="middle" bgcolor="#FFFFFF"><a href="../leaguer/images/<%=rs(1)%>" target="_blank"><img src=../leaguer/images/<%=rs(1)%> width="100" height="100" border="0"></a></td>
    <td width="205" valign="top" bgcolor="#FFFFFF"> <p>上传： 
<%Response.Write"<a href=../leaguer/huiyuan.asp?id="
if rs(3)<>"admin" then 
Response.Write conn.execute("select id from huiyuan where huiyuan='"&rs(3)&"'")(0)&"&key=&page=1&abc=xs"
end if
Response.Write">"
Response.Write rs(3)&"</a>"%>
        <br>
        身份：<%Select case rs(4)
case 0
Response.Write("商家")
case 1
Response.Write("会员")
case 2
Response.Write("企业")
case else:
Response.Write("管理员")
End Select%>
        <br>
        大小：<%=formatnumber(rs(2)/1000,1)%>K<br>
        时间： <%=rs(5)%> <br>
        上传IP：<%=rs(6)%><br>
        管理：<a href="?del=yes&page=<%=page%>&abc=<%=request("abc")%>&id=<%=rs(0)%>">删除</a></p>    </td>
  <%if i mod 2 = 0 then%></tr>
<%end if
rs.movenext
i=i+1
loop%>
  <tr > 
    <td height="21" colspan="4" align="center" background="4" bgcolor="#FFFFFF">
<%page2("abc="&shopnet("abc")&"&")%></td>
  </tr>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
%>
  
</table>
