<!--#include file="../conn.asp"-->
<!--#include file="../admin.asp"-->
<%Call head()
%>

<!--#include file="vvbb.asp"-->

<%id=usb(request("id"))
if id="" then id="99999999999999"
fid=request("fid")
zt=request("zt")
sz=request("sz")
rzzt=usb(request("rzzt"))
if zt="0" then nnnn="撤销或删除成功!"
if zt="1" then nnnn="审核店铺"
if zt="2" then nnnn="审核店铺成功"
if zt="3" then nnnn="封锁店铺"
if zt="4" then nnnn="封锁店铺成功"
if zt="7" then nnnn="禁止他发登陆"
if zt="8" then nnnn="禁止他发登陆成功"
if zt="9" then nnnn="禁止他发商品"
if zt="10" then nnnn="禁止他发商品成功"
if zt="11" then nnnn="禁止他发留言"
if zt="12" then nnnn="禁止他发留言成功"
if zt="13" then nnnn="清除他的留言"
if zt="14" then nnnn="清除他的留言成功"
if zt="15" then nnnn="禁止他发评论"
if zt="16" then nnnn="禁止他发评论成功"
if zt="17" then nnnn="清除他的评论"
if zt="18" then nnnn="清除他的评论成功"
if rzzt="1" or rzzt="3" then nnnn="设为实名商家"
if rzzt="2" then nnnn="设为实名商家成功"
if rzzt="3" then nnnn="取消实名商家"
if rzzt="3" then nnnn="取消实名商家成功"
Call saycarda(""&nnnn&"")
if zt="0" then%>
<%sql="update Users set dzt=0 where id="&id
  conn.Execute(sql)
%>
成功地撤销申请或删除商铺!
<%elseif zt="1" then%>
审核店铺
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;zt=2">确定</a>|<a href="dp_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif zt="2" then%>
审核店铺成功!
<%
sql="update Users set dzt=2 where id="&id
  conn.Execute(sql)
%>
<%elseif zt="3" then%>
封锁店铺
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>&amp;fid=<%=usb(fid)%>&amp;zt=4">确定</a>|<a href="dp_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif zt="4" then%>
封锁店铺成功!
<%
sql="update Users set dzt=3 where id="&id
  conn.Execute(sql)
%>
<%elseif zt="5" then%>
清除他的内线
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>&amp;fid=<%=usb(fid)%>&amp;zt=6">是</a>|<a href="hy_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<br/>
<%elseif zt="6" then%>
<%sql="update Users set xuan=.. where id="&id
  conn.Execute(sql)
%>
清除他的内线成功
<%elseif zt="7" then%>
禁止他登陆
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>&amp;fid=<%=usb(fid)%>&amp;zt=8">是</a>|<a href="hy_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<br/>
<%elseif zt="8" then%>
<%
sql="update Users set dzt=1 where id="&id
  conn.Execute(sql)
%>
禁止他发登陆成功
<%elseif zt="9" then%>
禁止他发商品
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;zt=10">是</a>|<a href="hy_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<%elseif zt="10" then%>
禁止他发商品成功。。
<%
sql="update 66hc_gr set fzt=1 where id="&id
  conn.Execute(sql)
%>
<%elseif zt="11" then%>
禁止他发留言
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;zt=12">是</a>|<a href="hy_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<%elseif zt="12" then%>
禁止他发留言成功。。
<%
sql="update Users set lzt=1 where id="&id
  conn.Execute(sql)
%>
<%elseif zt="13" then%>
清除他的留言
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;zt=14">是</a>|<a href="hy_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<%elseif zt="14" then%>
清除他的留言成功。。
<%sql="delete from 66hc_ly Where fid="&id
  conn.Execute(sql)
%>
<%elseif zt="15" then%>
禁止他发评论
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;zt=16">是</a>|<a href="hy_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<%elseif zt="16" then%>
禁止他发评论成功。。
<%
sql="update 66hc_gr set hzt=1 where id="&id
  conn.Execute(sql)
%>
<%elseif zt="17" then%>
清除他的评论
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;zt=18">是</a>|<a href="hy_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<%elseif zt="18" then%>
清除他的评论成功。。
<%
sql="update shop_pl set ltxcy=0 where id="&fid
  conn.Execute(sql)
%>

<%elseif rzzt="2" then%>
设为实名商家成功!
<%
sql="update Users set rzzt=2 where id="&id
  conn.Execute(sql)
%>
<%elseif rzzt="2" then%>
取消实名商家
<a href="dp_zt.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;rzzt=3">是</a>|<a href="dp_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=usb(id)%>">否</a>
<%elseif rzzt="3" or rzzt="1" then%>
取消实名商家成功!
<%
sql="update Users set rzzt=1 where id="&id
  conn.Execute(sql)
%>
<%else%>
未知错误！
<%end if%>
<br/>------------<br/>
<%If zt<>0 then%>
<a href="dp_gl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>&amp;id=<%=id%>">[返回商店]</a><br/>
<%End if%>
<a href="dp.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[商店列表]</a>
<!--#include file="bq.asp"-->
<%Call headsay()%>