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='"<bh&"'" 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='"<bh&"'" 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='"<bh&"'" conn.execute(sql) response.redirect"gonggao.asp" response.end end if end if %> <%dbclose%>