WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

admin_announce.asp：源码内容

							<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
	if not supermaster or session("flag")="" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call txl_error()
	else
			call top()
		if request("action")="AddAnn" then
			call addann()
		elseif request("action")="SaveAnn" then
			call saveann()
		elseif request("action")="EditAnn" then
			call EditAnn()
		elseif request("action")="SaveEdit" then
			call SaveEdit()
		elseif request("action")="Savemana" then
			call Savemana()
		elseif request("action")="delann" then
			call delann()
		else
			call main()
		end if
		conn.close
		set conn=nothing
	end if
sub main()
%>
<FORM METHOD=POST ACTION="?action=Savemana">
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr>
<th width="5%" id=TableTitleLink height=25>ID</th>
<th width="55%" id=TableTitleLink>标题</th>
<th width="20%" id=TableTitleLink>日期</th>
<th width="10%" id=TableTitleLink>操作</th>
<th width="10%" id=TableTitleLink>选定</th>
</tr>
<%
set rs=conn.execute("select * from txlnews order by addtime desc")
do while not rs.eof
%>
<tr>
<td width="5%" align=center height=25 class=txlrow><%=rs("id")%></td>
<td width="55%" class=txlrow><a href="?action=EditAnn&id=<%=rs("id")%>"><%=htmlencode(rs("title"))%></a></td>
<td width="20%" align=center class=txlrow><%=rs("addtime")%></td>
<td width="10%" align=center class=txlrow><a href="?action=delann&id=<%=rs("id")%>" onclick="{if(confirm('您确定执行的操作吗?')){return true;}return false;}"><u>删除</u></a></td>
<td width="10%" align=center class=txlrow><input type="radio" name="id" value="<%=rs("id")%>" <%if rs("active")=1 then response.write "checked"%>></td>
</tr>
<%
rs.movenext
loop
set rs=nothing
%>
<tr>
<td class=txlrow colspan=5 align=right>选择首页要显示的公告

						