📄 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>
<h4>  收件箱</h4>
<%
sql="select top 200 guest_id,title,body,writer_id,submit_date,reader_id from guest"
sql=sql & " where reader_id='" & session("user_id") & "'"
sql=sql & " or reader_id='" & session("lesson_id") & "'" '显示本课程
sql=sql & " order by guest_id desc"
SET RS=db.EXECUTE(SQL)
if rs.bof or rs.eof then
response.write "<p> <p align=center>暂时没有信件"
else
%>
<CENTER>
<TABLE border="0" bordercolor="#8800FF" width="95%" cellspacing="2">
<tr align=center>
<td width=10%>序号</td>
<TD width=45%>主题</TD>
<TD width=15%>发件人</TD>
<TD width=20%>时间</TD>
<TD width=15%>操作</TD>
</tr>
<%
dim i
i=0
DO WHILE NOT RS.EOF
i=i+1
%>
<TR bgcolor=#FFFFCC>
<td align=center><%=i%>
<TD><a href="particular.asp?thename=<%=rs("guest_id")%>&thename2=r"><%=RS("title")%></a></TD>
<TD><a href="readd.asp?thename=<%=rs("writer_id")%>"><%=RS("writer_id")%></a></TD>
<TD><%=RS("submit_date")%></TD>
<TD>
<!--教师可以删除所有给本课程的留言和所有人的留言-->
<a href="delete.asp?thename=<%=rs("guest_id")%>&thename2=r">删除</a>
</TD>
</TR>
<%
RS.MOVENEXT
LOOP
%>
</TABLE>
</CENTER>
<%end if %>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -