📄 annouce.asp
字号:
<!--
菜菜考勤评分系统V1.0
www.pcicai.cn
fireflymano@163.com
还望多指教！
菜菜网CMSV1.0发布正在筹备中，请关注 www.pcicai.cn
小飞@蝙蝠 QQ 285305740
-->
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<link href=../css.css rel=stylesheet>
<body background=../back.gif>
<%
if session("qx")>=3 then
response.write "对不起，您没有操作权限！"
else
%><center>
<p align=center>增加公告
<form action=annouce_do.asp?action=add method=post name=frm>
<table border=0 width=80%>
<tr><td align=center bgcolor=#ffaa00 width=20%><font color=blue>标题</td><td align=center bgcolor=#ffaa00 =3><input type=text size=100 class=bbox name=title></td></tr>
<tr><td align=center bgcolor=#ffaa00 colspan=2><font color=blue>发布者 :<input type=text size=10 name=zuozhe class=bbox value=<%=session("name")%> >发布时间<input type=text size=30 class=bbox value=<%=date%> name=time></td></tr>
<tr><td align=center bgcolor=#ffaa00><font color=blue>请输入内容</td><td align=center bgcolor=#ffaa00>
<!--#include file="ubb.asp"--><!--#include file=ubb1.asp-->
<textarea name=text rows=15 cols=80></textarea></td></tr>
<tr><td align=center bgcolor=#ffaa00 colspan=2 align=right> <input type=submit class=ibox><input type=reset class=ibox></font></td></tr>
</table>
</form>
</p>
<p align=center>当前的公告
<p>
<%
sql="select * from annouce "
rs.open sql,cn,1,1
if rs.eof then
response.write"<font color=red>没有记录"
else
response.write"<table>"
response.write "<tr><td bgcolor=#ffaa00 align=center>标题</td><td bgcolor=#6699ff align=center width=25% > 发布者</td><td bgcolor=#99aaaa align=center>发布时间</td><td bgcolor=#ffaa88 align=center>操作</td></tr>"
do while not rs.eof
title=rs("title")
text=rs("text")
zuozhe=rs("zuozhe")
ftime=rs("time")
id=rs("id")
%>
<!--#include file="qx.asp"-->
<tr><td bgcolor=#ffaa00 align=center><a href=../annouceview.asp?title=<%=title %>><%=title %></a></td> <td bgcolor=#6699ff align=center><%=zuozhe%></td><td bgcolor=#99aaaa align=center> <%=ftime%></td><td bgcolor=#ffaa88 align=center><a href=annouce_xiugai.asp?action=gonggaoxiugai&id=<%=id%>>修改</a><% if session("qx")=1 then %>/<a href=annouce_do.asp?action=del&id=<%=id%>&title=<%=title%> onclick="{if(confirm('想清楚了吗？\n\n真的删除吗?')){return true;}return false;}">删除</a><%end if%></td></tr>
<% rs.movenext
loop
response.write"</table>"
end if
rs.close
set rs=nothing
%>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -