admin_announcemana.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmins%>
<!--#include file="top.asp"-->
<%
typeid=request("typeid")
if typeid="" or typeid>3 then
	errmsg=errmsg+"<li>非法操作！</li>"
	error()
	response.end
end if
sql="select * from Announce where type="&typeid&" order by id desc"
rs.open sql,conn,1,1
%>
<table border="0" width="770" cellspacing="1" cellpadding="1" bgcolor="<%=Tablebackcolor%>" align="center">
  <tr> 
    <td valign=top width="20%" bgcolor="<%=Tabletitlecolor%>"> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top bgcolor="<%=Tablebodycolor%>"> 
      <table border="0" width="98%" cellspacing="1" cellpadding="1" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=Tablebackcolor%>">
        <form method="POST" action="admin_AnnounceSet.asp">
          <tr bgcolor="<%=Tabletitlecolor%>"> 
            <td width="100%" height="20" colspan=6 align=center><b><font color="#FFFFFF">管 
              理 公 告</font></b></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="5%" align="center">ID</td>
            <td width="40%" align="center">主题</td>
            <td width="12%" align="center">作者</td>
            <td width="22%" align="center">发布时间</td>
            <td width="8%" align="center">修改</td>
            <td width="8%" align="center">删除</td>
          </tr>
          <%
do while not rs.eof
%>
          <tr bgcolor="#FFFFFF"> 
            <td width="5%" align="center"><%=rs("ID")%>　</td>
            <td width="40%" align="center"><%=rs("Title")%>　</td>
            <td width="12%" align="center"><%=rs("Author")%>　</td>
            <td width="22%" align="center"><%=rs("DateAndTime")%>　</td>
            <td width="8%" align="center"> 
              <input onClick="javascript:window.open('admin_AnnounceModify.asp?id=<%=rs("ID")%>&typeid=<%=typeid%>','_self','')" type="button" value="修改" name="button1">
            </td>
            <td width="8%" align="center"> 
              <input onClick="javascript:window.open('admin_AnnounceDel.asp?id=<%=rs("ID")%>&typeid=<%=typeid%>','_self','')" type="button" value="删除" name="button2">
            </td>
          </tr>
          <%
rs.movenext
loop
rs.close
%>
          <tr bgcolor="#FFFFFF"> 
            <td colspan=7 align=center> 
              <input onClick="javascript:window.open('admin_AnnounceAdd.asp?typeid=<%=typeid%>','_self','')" type="button" value="添 加">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
<%
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>