📄 matrix3_admin.asp
字号:
<!-- #include file="const.asp" -->
<%call opendb()
checkadmin()
position "后台管理",0
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function alertdelete(title,url)
{
if(confirm("Warning : Are you sure to delete "+title+" ?\n\nData in it will losted ,and it can't be recovered !"))
{
location.href=url;
}
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="center" valign="top"> <!-- #include file="topbar.asp" --> </td>
</tr>
<tr>
<td align="center" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" bgcolor="#ECE9D9"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="24" valign="top" class=v8b> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="90%" nowrap class="v7b"><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%></a> <FONT face=Webdings color="#660000">8</FONT>
<a href="matrix3_admin.asp">BBS管理</a> <FONT face=Webdings color="#660000">8</FONT>
分区&论坛 </td>
<td width="10%" align="center" nowrap class="v7b"><span class="v7">+ </span><a href='matrix3_newc.asp'><font color="#FF0000">新建分区</font></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/blank.gif" width="1" height="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
dim sql,crs,frs,CID,FID,i
set crs=server.CreateObject("adodb.recordset")
set frs=server.CreateObject("adodb.recordset")
sql="select * from m3_category order by Cindex asc"
crs.open sql,conn,1,1
if crs.eof and crs.bof then
response.Write("<tr><td colspan=3 height=20> 暂无分区 ...</td><tr>")
else
crs.movefirst
i=1
do while not crs.eof
CID=crs("CID")
%>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" bgcolor="#990000"> <span class="v8b"><img src="images/fang-1.gif" width="7" height="7" align="absmiddle">
<a href="matrix3_list.asp?lname=CID&lvalue=<%=CID%>"><font color="#FFFFFF"><span class="v7b"><font color="#FFFFFF">论坛分区</font></span></font></a></span><font color="#FFFFFF"> </font></td>
<td height="12" align="right" nowrap bgcolor="#CCCCCC"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"> <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#fffff0">
<td width="200" valign="top" nowrap> <span class="v7">『<span class="v8b"><a href="matrix3_list.asp?lname=CID&lvalue=<%=CID%>">
<%=crs("CTitle")%></a></span> 』 <br>
<font color="#999999">建立时间：<%=crs("Ccreatetime")%></font><br>
管理员：
<%if trim(crs("CAdmin"))="" then
response.write("暂无管理员")
else
response.write(crs("CAdmin"))
end if%>
</span></td>
<td valign="top"><span class="v7">分区话题：</span><br>
<span class="v7"><font color="#666666"><%=crs("CProfile")%></font></span></td>
<td width="120" valign="middle" nowrap><span class="v7">管理：</span>
<a href="matrix3_newc.asp?CID=<%=CID%>" class="v7">修改
</a><font color="#990000">|</font> <a href="javascript:alertdelete('<%=crs("CTitle")%>','matrix3_delc.asp?CID=<%=CID%>')" class="v7">删除</a><br>
<a href="matrix3_position.asp?CID=<%=CID%>&action=up">分区上移</a>
<font color="#990000">|</font> <a href="matrix3_position.asp?CID=<%=CID%>&action=down">分区下移</a></td>
</tr>
<tr bgcolor="#ECE9D9">
<td colspan="3" valign="top" nowrap></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" bgcolor="#bac296"> <span class="v7b"><img src="images/fang-2.gif" width="7" height="7" align="absmiddle">
<font color="#FFFFFF">论坛列表</font></span></td>
<td height="12" align="right" nowrap bgcolor="#eeeeee"><span class="v7">+ </span><a href="matrix3_newf.asp?CID=<%=CID%>"><font color="#990000">新建论坛</font></a><span class="v7"><a href="matrix3_newf.asp?CID=<%=CID%>"> </a>
</span><span class="v7"><a href='matrix3_newc.asp'></a></span></td>
</tr>
</table></td>
</tr>
<%
sql="select * from m3_forum where CID="&CID&" order by Findex asc"
frs.open sql,conn,1,1
if frs.eof and frs.bof then
response.write("<tr><td align=center>")
response.write("<table width=96% border=0 cellpadding=0 cellspacing=1 bgcolor=#CCCCCC>")
response.write("<tr><td bgcolor=#FFFFFF><font color=#999999> 暂无论坛 ...</font></td></tr>")
response.write("</table>")
response.write("<table width=96% border=0 cellpadding=0 cellspacing=0>")
response.write("<tr><td height=2 bgcolor=#ECE9D9></td></tr></table>")
response.write("</td></tr>")
else
do while not frs.eof
FID=frs("FID")
%>
<tr>
<td> <table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/blank.gif" width="1" height="3"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="30"><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="200" valign="top" nowrap>『<span class="v8b"><a href="matrix3_list.asp?lname=FID&lvalue=<%=FID%>">
<%=frs("FTitle")%></a></span> 』 <br>
<span class="v7"><font color="#999999">建立时间：<%=frs("Fcreatetime")%></font><br>
版主：
<%if trim(frs("FAdmin"))="" then
response.write("暂无版主")
else
response.write(frs("FAdmin"))
end if%>
</span></td>
<td valign="top"><span class="v7">论坛话题：</span><br>
<span class="v7"><font color="#999999"><%=frs("FProfile")%></font></span></td>
<td width="120" valign="middle" nowrap><span class="v7">管理：</span>
<a href="matrix3_newf.asp?FID=<%=FID%>" class="v7">
修改</a> <font color="#990000">|</font> <a href="javascript:alertdelete('<%=frs("FTitle")%>','matrix3_delf.asp?FID=<%=FID%>')" class="v7">删除</a><br>
<span class="v7">位置：</span> <a href="matrix3_position.asp?FID=<%=FID%>&action=up">上移</a>
<font color="#990000">|</font> <a href="matrix3_position.asp?FID=<%=FID%>&action=down">
下移</a> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
<%
frs.movenext
loop
end if
frs.close
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/blank.gif" width="1" height="10"></td>
</tr>
</table></td>
</tr>
<%
i=i+1
crs.movenext
loop
end if
crs.close
set crs=nothing
set frs=nothing
call closedb()
%>
</table>
<hr size="1">
</td>
<td width="10"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="100" bgcolor="#ECE9D9" valign="top"> <!-- #include file="matrix3_right.asp" --></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="10" align="center" valign="bottom">
<!-- #include file="bottombar.asp" -->
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -