<!--#include file="up.asp"--><br>
<%tid=request.querystring("tid")
name=request.querystring("name")
gl=request.querystring("gl")
t1="<div align=center><center> <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' height='24'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 15px'>"
d2="</td></tr></table></center></div>"
set gconn=server.CreateObject ("adodb.connection")
	gconn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath ("db/tuya.mdb")
if lgname="" then%><br>
<%=t1%>錯誤信息<%=t2&d1%>你還沒有登陸論壇不能管理涂鴉板！！！請你在這<a href=login.asp>登陸</a><%=d2%>
<%else
select case gl
case"delall"
gconn.execute("delete*from tuya ")%><br>
<%=t1%>操作成功<%=t2&d1%>你已經成功的刪除了所有涂鴉作品！！<br><br>
<a href=tuya.asp>返回涂鴉板</a><br>
<%=d2%>
<%case "admin"
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
noyes="登 陸 失 敗 ！"
mes="你不能進入超級管理。<br>·你現在登陸論壇的用戶名 "&lgname&" 不是管理員。·"%>
  <!--#include file="mes.asp"-->
<%response.end  
end if
set myrs=server.CreateObject ("adodb.recordset")
    sq="select * from tuya order by date_t desc "
    myrs.Open sq,gconn,1,3%>
	<%=t1%>涂鴉管理<%=t2&d1%>
<%do while not myrs.eof
ty="作品名稱："&myrs("name")&"&nbsp;&nbsp;&nbsp;涂鴉時間:"&myrs("date_t")&"&nbsp;涂鴉作者：<font color=blue>"&myrs("username")&"</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=tuyagl.asp?gl=del&tid="&myrs("id")&">刪除</A><br>"
Response.Write" "&ty&""
myrs.movenext
loop

%><P align=center  style=MARGIN: 10px><a href=tuyagl.asp?gl=delall>全部刪除</a><br><br>
<a href=tuya.asp>返回涂鴉板</a>
<a href=tuya2.asp>欣賞其它作品</a><br><br><%=d2%><%
case"look"
 dim myrs,sq,myrs_tk
    set myrs=server.CreateObject ("adodb.recordset")
    sq="select * from tuya where username='"&lgname&"' order by date_t desc "
    myrs.Open sq,gconn,1,3%>
	<br><%=t1%>涂鴉管理<%=t2&d1%>
<%do while not myrs.eof
ty="作品名稱："&myrs("name")&"&nbsp;&nbsp;&nbsp;涂鴉時間:"&myrs("date_t")&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=tuyagl.asp?gl=del&tid="&myrs("id")&">刪除</A><br>"
Response.Write" "&ty&""
myrs.movenext
loop
%>
<br>
<a href=tuya.asp>返回涂鴉板</a><br><br>
<a href=tuya2.asp>欣賞其它作品</a>
<%=d2%><%

case"del"
gconn.execute("delete*from tuya where username='"&lgname&"' and id="&tid&"")%>
<br><%=t1%>操作成功<%=t2&d1%>你已經成功的刪除了一幅涂鴉作品&nbsp;&nbsp;<a href=tuyagl.asp?gl=look>是否繼續？？</a><br><br>
<a href=tuya.asp>返回涂鴉板</a><br><br>
<a href=tuya2.asp>欣賞其它作品</a>
<%=d2%>
<%
end select
end if
%><br>
<!--#include file="down.asp"-->