📄 manage.asp
字号:
<%
if session("ymadminok")<>"true" then '管理员身份验证
response.redirect "dl.asp?method=admin"
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>::::52CM梦工场::::52CM DREAM Work Place::::网页品点联盟</title>
<style>
a{text-decoration:none}
a{color:#000000}
td{font-size:9pt}
.stedit { background-color:#cccccc;BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 9pt; border-color: #333333;font-color:#ffffff;}
</style>
<script>
function winpop()
{
window.open("aboutme.htm","","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width=550,height=370,top=0,left=0")
}
</script>
</head>
<body topmargin=0 leftmargin=0 bgcolor="#000000">
<!--#include file="head.asp"-->
<div align="center">
<center>
<table width=778 height=300 cellspacing=0 cellpadding=0 valign=top style="border-collapse: collapse" bordercolor="#111111">
<tr><td height=10 width=778 bgcolor="#999999">
</td></tr>
<tr><td height=20 valign=top width=778 bgcolor="#ffffff">
<table width=778 cellspacing=0 cellpadding=0>
<tr><td width=400 bgcolor=#666666 rowspan=2>
<font color=#cccccc> 当前位置>> 批复站点------<a href="gggl.asp" style="color:#ffffff">公告管理</a>------<a href="cygl.asp" style="color:#ffffff">成员管理</a>------<a href="cygl.asp" style="color:#ffffff">酷站推荐</a></td>
<td bgcolor=#999999>
<img src="pic/j5.gif"></td>
</tr>
<tr><td height=12 bgcolor=#666666></td></tr>
</table>
<tr><td valign=top width=778 bgcolor="#777777">
<table width=100%>
<%
dim sql
dim rs
dim i
i=1
dim bg '定义颜色变量以实现浅变
sql="select lm.username,lm.pagename,lm.name,lm.hits,lm.id,type.typename,type.type from lm,type where lm.pass=false and lm.type=type.type order by lm.id desc"
set rs=conn.execute(sql) '选出15个未通过评审的站点
if rs.eof and rs.bof then
response.write "还没有待审站点"
else
do while not rs.eof
if i mod 2=0 then
bg="#cccccc" '背景色的交替变化
else
bg="#eeeeee"
end if
%>
<TR bgcolor=<%=bg%>>
<TD width=20 height=25></TD>
<TD width=40 align=center><font face=verdana><%=i%>.</font></TD>
<TD width=150 align=center><a href="search.asp?username=<%=rs("username")%>" target="_blank"><%=rs("pagename")%></a></TD>
<TD width=100 align=center><%=rs("name")%></TD>
<TD width=150 align=center>
<%=rs("typename")%></TD>
<TD width=100 align=center><font face=verdana><%=rs("hits")%></font> 次点击 </td>
<td width=80 align=center><a href="passds.asp?id=<%=rs("id")%>">通过</a> </td>
<td width=80 align=center><a href="deleds.asp?id=<%=rs("id")%>&class=ds">删除</a></TD>
<td></td>
</TR>
<%
i=i+1 '变量的递增
rs.movenext
loop
rs.close
end if
%>
</table>
</td></tr>
<tr><td bgcolor=#666666 height=10 width="778"></td></tr>
<tr><td bgcolor=#999999 height=15 width="778"></td></tr>
</table>
</center>
</div>
<div align="center">
<center>
<table width=778 valign=bottom cellspacing=0 cellpadding=0 style="border-collapse: collapse" bordercolor="#111111">
<tr><td bgcolor=#999999 width="778"><img src="pic/bottom2.gif" align="right"></td></tr>
</table>
</center>
</div>
<div align="center">
<center>
<table width=779 height="45" bgcolor="#000000" cellspacing=0 cellpadding=0 style="border-collapse: collapse" bordercolor="#111111">
<tr><td align="center" align="center" width="779"><font color="#ffffff">Modification And Program By : 52CM工作室</font></td></tr>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -