www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/admin/gonggao.asp

    <style  type="text/css">  
.text  
{  
   font-size="12px"
   }
</style>
<!--#include file="hs.asp"-->
<%
sql="select cnggtitle,id from zwggao where ltbh='"&ltbh&"'"
set rs=conn.execute(sql)
%>  
<script language=vbscript>
<!--
sub ckopen
window.open "ggfb.asp","公告发布","height=400,width=400","toolbar=no,menubar=no,scrollbar=no,resizable=no,location=no,status=no"
end sub

sub sc(id)
a=msgbox("确定要删除此信息?",1)
if a=1 then
window.location="gonggao.asp?id="&id
end if
end sub

sub xggg(id)
window.open "ggxg.asp?id="&id&"","公告发布","height=400,width=400","toolbar=no,menubar=no,scrollbar=no,resizable=no,location=no,status=no"
end sub
-->
</script>

<BODY>
<p align="center"><font color="#FF0000"><span style="font-size: 20px"><b>论坛公告管理</b></span></font></p>
<div align="center">
<table cellpadding="0" cellspacing="0" width="709" style="border: 1px solid #6699FF" height="64">
	<tr>
		<td height="30" style="background-color: #F1F5FA; border-bottom-style:solid; border-bottom-width:1px" bordercolor="#6699FF" colspan="3">
		<p align="center" class=text onclick="ckopen"><font color="#FF0000"><u>公告发布</u></font></td>
	</tr>
	<tr>
<%if rs.eof then%>
		<td height="32" width="100%">
		<p align="center" class=text>你还没有发布公告信息!!</td>
<%
else
do while not rs.eof
%> 
<tr>
		<td height="32" width="50%"><u><font color="#0000FF" class=text>
		<p align="center" onclick="xggg(<%=rs("id")%>)"><%=rs("cnggtitle")%></font></u></td>
        <td height="32" width="50%"><input type=button style="color: #0000FF; background-color: #E7E7E7" value="删 除" onclick="sc(<%=rs("id")%>)"></td>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>	
</tr>

</table>
</div>
</body>

<%
id=request("id")
if id<>empty then
sql="select *from zwggao where id="&id&" and ltbh='"&ltbh&"'" 
set rscx=conn.execute(sql)
if rscx.eof then
rscx.close
set rscx=nothing
response.write"<script language=vbscript>window.alert'对不起公告不存在!'</script>"
else
sql="delete *from zwggao where id="&id&" and ltbh='"&ltbh&"'" 
conn.execute(sql)
response.redirect"gonggao.asp"
response.end
end if
end if
%>
<%dbclose%>