www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_mb.asp

    <%
if session("dj")<>"1" then
   Response.Write "<BR><BR><BR><BR><center>权限不足,你没有此功能的管理权限"
   Response.end
end if
%>

<!--#include file = admin_chk.asp -->
<style>
<!--
a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body         { font-family: 宋体; color: #000000; font-size: 9pt }
p            { color: #000000; font-family: 宋体; font-size: 9pt }
td           { font-size: 9pt; font-family: 宋体; color: #000000 }
input        { font-size: 9pt; font-family: 宋体; color: #000000 }

-->
</style>
<!--#include file = admin_conn.asp -->
<body bgcolor="#ffffff">

<div align="center">
<br><a href="admin_mb_add.asp">增加新闻模版</a>   <a href="admin_mb_so.asp">搜索模版管理</a>  <a href="admin_mb_tg.asp">投稿模版管理</a><br><br>

	<table border="1" width="600" id="table1" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#CCCCCC">
<%
sql = "select * from newsmb where lx='1' order by id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
for i=0 to rs.recordcount
%>
		<tr>
			<td bgcolor="#F5F5F5"><%=rs("title")%></td>
			<td bgcolor="#F5F5F5" width="269" align="center"><a href="admin_mb_view.asp?id=<%=rs("id")%>" target=_blank>查看</a> <a href="admin_mb_add.asp?id=<%=rs("id")%>&lx=<%=rs("lx")%>">修改</a> <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_mb_del2.asp?id=<%=rs("id")%>">删除</a></td>
		</tr>
<%
rs.movenext
if rs.eof then exit for
next
else 
 response.write "<tr><td>还没有记录!</td></tr>"
end if
%>
	</table>