index.asp

来自「与asp相关的技术　如数据库和网页设计很有用的哦」· ASP 代码 · 共 57 行

ASP

57 行

<%
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>&nbsp&nbsp收件箱</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>&nbsp<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>

index.asp - 源码说明

本页面展示了「与asp相关的技术　如数据库和网页设计很有用的哦」中的 index.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?