📄 index.asp
字号:
<%
if session("user_type")<>"T" then
response.redirect "../../../../index.asp"
end if
%><!--#INCLUDE FILE="../../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
<TITLE>子论坛管理 </TITLE>
<link rel="stylesheet" href="../../../../system/all.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
Dim sql
SQL="SELECT * from bbs_forum where lesson_id='" & Session("lesson_id") & "'"
SQL=SQL + " order by id"
SET RS=db.EXECUTE(SQL)
%>
<h4 align="left">  管理子论坛</h4>
<p>
<CENTER>
<TABLE border="0" width="95%">
<tr>
<td style="background-color: #FFFFFF">子论坛列表</td>
<td colspan=2 align=right style="background-color: #FFFFFF"><a href="add.asp">添加子论坛</a></td>
</tr>
<TR bgcolor=#E9E9E9 align="center">
<TD width=40%>名称</TD>
<TD width=60% colspan=2>操作</TD>
</TR>
<%
DO WHILE NOT RS.EOF
%>
<TR bgcolor=#E9E9E9 align=center>
<TD><%=RS("forumname")%></TD>
<TD><a href="update.asp?id=<%=rs("id")%>">修改</a></TD>
<TD><a href="delete.asp?id=<%=rs("id")%>">删除</a></TD>
</TR>
<%
RS.MOVENEXT
LOOP
rs.close
set rs=nothing
db.close
set db=nothing
%>
</TABLE>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -