⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 annouce_xiugai.asp

📁 一个考勤评分系统
💻 ASP
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权:野马原创                    ''''
''''联系:ctplr@163.com          ''''
''''说明:需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<link href=../css.css rel=stylesheet>
<body background="../back.gif" style='cursor:url("Mouse.ani")'>
<%
if request("action")="gonggaoxiugai"  then 
if session("qx")>=3 then
response.write "对不起,您没有操作权限!"
else
%>
  <%
t=request("id")
sql="select * from annouce where id="&t
rs.open sql,cn,1,1
title=rs("title")
 text=rs("text")
zuozhe=rs("zuozhe")
ftime=rs("time")
id=rs("id")
%>


<center>
<p align=center>修改公告

<form action=annouce_do.asp?action=update method=post name=frm>
<table border=0 width=80%>
<tr><td width=20% align=center bgcolor=#eeeeee><font color=blue>标题</td><td align=center bgcolor=#ffeeee =3><input type=text size=100 class=bbox name=title value=<%=title%> background="../images/NavBG.gif"></td></tr>
<tr><td colspan=2 align=center background="../images/NavBG.gif" bgcolor=#ffeeee><font color=blue>发布者 :<input type=text size=10 name=zuozhe class=bbox value=<%=zuozhe%> >发布时间<input type=text size=30 class=bbox value=<%=ftime%>  name=time></td></tr>

<tr><td align=center bgcolor=#eeeeee><font color=blue>请输入内容</td><td align=center bgcolor=#ffeeee>
<!--#include file="ubb.asp"--><!--#include file=ubb1.asp-->


<textarea name=text rows=15 cols=80><%=replace(replace(text,"<br>",""),"&nbsp;","")%></textarea></td></tr>
<tr><td align=center bgcolor=#ffaa00 colspan=2 align=right><input type=hidden  value=<%=id%> name=id><input type=submit class=ibox value=确定修改><input type=reset class=ibox></font></td></tr>
</table>
</form>
</p> 
<%end if%>
 <%end if%>
<%
if request("action")="taskxiugai"  then 
if session("qx")>=3  then
response.write "对不起,您没有操作权限!"
else
%>
  <%
t=request("id")
sql="select * from task where id="&t
rs.open sql,cn,1,1
title=rs("title")
 text=rs("text")
zuozhe=rs("zuozhe")
ftime=rs("time")
id=rs("id")
%>


<center>
<p align=center>修改任务设置

<form action=annouce_do.asp?action=taskupdate&id=<%=id%> method=post name=frm>
<table border=0 width=80%>
<tr><td align=center bgcolor=#ffeeee width=20%><font color=blue>标题</td><td align=center bgcolor=#ffaa00 =3><input type=text size=100 class=bbox name=title value=<%=title%>></td></tr>
<tr><td colspan=2 align=center background="../images/NavBG.gif" bgcolor=#ffeeee><font color=blue>发布者 :<input type=text size=10 name=zuozhe class=bbox value=<%=zuozhe%> >发布时间<input type=text size=30 class=bbox value=<%=ftime%>  name=time></td></tr>

<tr><td align=center bgcolor=#eeeeee><font color=blue>请输入内容</td><td align=center bgcolor=#ffeeee>
<!--#include file="ubb.asp"--><!--#include file=ubb1.asp-->


<textarea name=text rows=15 cols=80><%=replace(replace(text,"<br>",""),"&nbsp;","")%></textarea></td></tr>
<tr><td align=center bgcolor=#ffeeee colspan=2 align=right> <input type=submit class=ibox value=确定修改><input type=reset class=ibox></font></td></tr>
</table>
</form>
</p> 
<%end if%>
 <%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -