📄 task.asp
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:214297587 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=../css.css rel=stylesheet>
<body background="../back.gif" style='cursor:url("Mouse.ani")'>
<%
if session("qx")>=3 then
response.write "对不起，您没有操作权限！"
else
%><center>
<p align=center>增加任务
<form action=annouce_do.asp?action=taskadd method=post name=frm>
<table border=1 width=80% bordercolor=#3399ff bgcolor=#ffeeee>
<tr><td align=center bgcolor=#eeeeee width=20%><font color=blue>标题</td><td align=center bgcolor=#eeeeee =3><input type=text size=100 class=bbox name=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=<%=session("name")%> >发布时间<input type=text size=30 class=bbox value=<%=date%> 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></textarea></td></tr>
<tr><td align=center bgcolor=#ffeeee colspan=2 align=right> <input type=submit class=ibox><input type=reset class=ibox></font></td></tr>
</table>
</form>
</p>
<p align=center>已有的任务 [每页显示<%=backtask%>条数据]
<p>
<%
num=backtask
rs.PageSize=num
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from task "
rs.open sql,cn,1,1
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
if (rs.eof and rs.bof) then
response.write "没有记录"
else
response.write"<table bordercolor=#3399ff bgcolor=#ffeeee border=1>"
response.write "<tr><td align=center bgcolor=#eeeeee>标题</td><td align=center width=25% bgcolor=#eeeeee> 发布者</td><td align=center bgcolor=#eeeeee>发布时间</td><td align=center bgcolor=#eeeeee>操作</td></tr>"
do while not rs.eof and num>0
title=rs("title")
text=rs("text")
zuozhe=rs("zuozhe")
ftime=rs("time")
id=rs("id")
%>
<!--#include file="qx.asp"-->
<tr><td align=center><a href=../taskview.asp?title=<%=title %>&id=<%=id%>><%=title %></a></td> <td align=center><%=zuozhe%></td><td align=center> <%=ftime%></td><td align=center><a href=annouce_xiugai.asp?action=taskxiugai&id=<%=id%>>修改</a><% if session("qx")=1 then %>/<a href=annouce_do.asp?action=taskdel&id=<%=id%>&title=<%=title%> onclick="{if(confirm('想清楚了吗？\n\n真的删除吗?')){return true;}return false;}">删除</a><%end if%></td></tr>
<% rs.movenext
num=num-1
loop
response.write"</table>"
end if
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=task.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=task.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=task.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=task.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
%>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -