index.asp

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

ASP
50
字号
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
	<TITLE> 重要公告 </TITLE>
		<link rel="stylesheet" href="../../../system/all.css">
</HEAD>

<BODY BGCOLOR="#FFFFFF">
	<h4>管理重要公告</h4>
	<%
	dim lesson_id,rs,sql
	lesson_id=request.querystring("lesson_id")
	
	Sql="select * from news where type='TZ' order by id desc"
	SET RS=db.EXECUTE(SQL)
	%>
	<center>
	<TABLE border="0"  width="95%">
		<tr>
			<td   style="background-color: rgb(255,255,255)">重要公告列表</td>
			<td colspan=3 align=right   style="background-color: rgb(255,255,255)"><a href="add.asp">添加</a></td>
		</tr>
		<Tr  align="center">
			<TD width=30%>标题</TD>
			<TD width=20%>日期</TD>
			<TD width=50% colspan=2>操作</TD>
		</Tr>
		<%
		do while not rs.eof
			
			response.write "<tr  align='center'>"
			%>
			<td>
			<a href="#" onClick="open('particular.ASP?id=<%=rs("id")%>','','resizable=0,scrollbars=1,status=no,toolbar=no,location=no,menu=no,width=500,height=300,left=150,top=150')"><%=rs("title")%></a>
			</td>
			<%
			response.write "<td>"& rs("submit_date") & "</td>"
			response.write "<td><a href='update.ASP?id=" & rs("id") & "' >修改</a></td>"
			response.write "<td><a href='delete.ASP?id=" & rs("id") & "' >删除</a></td>"
			response.write "</tr>"
			rs.movenext
		loop
		%>
	</table>
	</CENTER>
	<p>
	<p>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?