tuyagl.asp

asp构建网站bbs.采用B/S架构

<!--#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"-->