📄 annouce_do.asp

📁 通用考勤系统
💻 ASP
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：ctplr@163.com          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="check.asp"-->
<!--#include file="CHAR.ASP"-->

<!--#include file="conn.asp"-->
<link href=left.css rel=stylesheet>
<body  >
<%

if request("action")="update"  then 
aid=request.form("id")
sql="select * from annouce where id="&aid
rs.open sql,cn,3,3

rs("title")=request("title")
rs("text")=htmlencode2(replace(replace(request("text"),"<br>",""),"&nbsp;",""))
rs("zuozhe")=request("zuozhe")
rs("time")=request("time")

rs.update
rs.close
response.write "<script>location.href='annouce.asp';</script></script>"
end if





if request("action")="jianjieupdate" then 
id=request("id")
sql="select * from webset "
rs.open sql,cn,3,3


rs("jianjie")=htmlencode2(replace(replace(request("text"),"<br>",""),"&nbsp;",""))


rs.update
rs.close
response.redirect "jianjie.asp"
end if

if request("action")="add" then 
 if (request("title"))=empty then 
response.write "<script>alert('请填写标题！');history.back()</script>"

elseif (request("text"))=empty then 
response.write "<script>alert('请填写内容！');history.back()</script>"

elseif (request("zuozhe"))=""  then 
response.write "<script>alert('请填写发布人！');history.back()</script>"

elseif (request("time"))=empty then 
response.write "<script>alert('请填写发布时间！');history.back()</script>"

else

sql="select * from annouce  "
rs.open sql,cn,3,3
rs.addnew
rs("title")=request("title")
rs("text")=htmlencode2(request("text"))
rs("zuozhe")=request("zuozhe")
rs("time")=request("time")

rs.update
rs.close
response.write "<script>location.href='annouce.asp';</script>"

end if
 end if
if request("action")="del" then 
t=request("id")

sql="delete from annouce where id="&t
cn.Execute sql
cn.close
response.write "<script>location.href='annouce.asp';</script>"

end if
                                        ''''''''''删除所有
if request("action")="alldel" then 
 if request.form("chknum").count=0 then                                   
          response.write "<script>alert('没有选中任何项目！！');history.back();</script>"' 
   else   
             for i=1 to request.form("chknum").count  
               pxh=request.form("chknum")(i)  
                sql="delete from annouce where id="&pxh
                cn.Execute sql
       next
   cn.close
  end if
response.write "<script>location.href='annouce.asp';</script>"
end if


if request("action")="taskupdate"  then 
aid=request("id")
sql="select * from task where id="&aid
rs.open sql,cn,3,3

rs("title")=request("title")
rs("text")=htmlencode2(replace(replace(request("text"),"<br>",""),"&nbsp;",""))
rs("zuozhe")=request("zuozhe")
rs("time")=request("time")

rs.update
rs.close
response.write "<Script>location.href='annouce.asp';</script>"

end if


 
if request("action")="xieyi" then 
  if (request("text"))=empty then 
response.write "<font color=red>请填写内容</font>::<a href='javascript:history.back()'>返回</a>"
 else
sql="select * from webset "
rs.open sql,cn,3,3
rs("signxieyi")=htmlencode2(replace(replace(request("text"),"<br>",""),"&nbsp;",""))
 rs.update
rs.close
response.write "<Script>location.href='signatt.asp';</script>"

end if

 end if
 

%>
⌨️ 快捷键说明

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