📄 noticelook.asp

📁 公文下发和上报管理：　在发布和上报文件时
💻 ASP
字号:
<!--#include file="asp/opendb.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if


%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title></title>
</head>
<body bgcolor="#eeeeee" topmargin="5" leftmargin="5">
<center>
<br>
<%
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
if request("action")="show" then
sql="select filepath2,filename2  from meetdate where id="&request("id")
rs.Open sql,conn,1,3
if not rs.EOF and not rs.BOF then
                  filepath=rs("filepath2")
                  filename2=rs("filename2")
                 if filename2="" then
                 Response.Write " 此页无法正常显示!!"
                 else
          
                filename=filepath&filename2
               server.execute filename
          Response.End 
           end if
           end if
           end if
if oabusyuserlevel="supermanage" then
sql="select * from meetdate order by id desc"

else
sql="select * from meetdate where fbdw='"&oabusyusername&"' order by id desc"
end if
rs.open sql,conn,1
if not rs.eof and not rs.bof then
rs.pagesize=20
page=request("page")
if not isnumeric(page) then
	page=1
end if
page=clng(page)
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="noticelook.asp"
rs.absolutepage=page
%><center><b>会议情况管理</center><p>
  <table border="1" cellpadding="0" cellspacing="0" width="570">
    <tr> 
      <td align=center width="227"><b><font color="#0000FF">会议名称(详情请点击)</font></b></td>
      <td align=center width="77"><b><font color="#0000FF">签收情况</font></b></td>
      <td align=center width="95"><b><font color="#0000FF">签到情况</font></b></td>
      <td align=center width="99"><b><font color="#0000FF">反馈情况</font></b></td>
      <td align=center width="60"><b><font color="#0000FF">发布日期</font></b></td>
    </tr>
    <%
for ipage=1 to rs.pagesize
%>
    <tr> 
      <td width="227"><a href="noticelook.asp?action=show&id=<%=rs("id")%>" ><%=rs("meetname")%></a></td>
      <td align="center" width=77><a href="qdqs.asp?id=<%=rs("id")%>&action=qs">点击查看</a></td>
      <td align="center" width=95> 
        <%if rs("qdyn")=1 then
        if rs("fbqdao")=1 then%>
       <a href="qdqs.asp?id=<%=rs("id")%>&action=qd">签到情况</a> 
        <%else%>
       <font color="#ff0000"> 未发签到单 </font>
        <%end if
        else
        Response.Write "不用签到"
        end if%>
      </td>
      <td align="center" width=99><a href="meetfk1.asp?id=<%=rs("id")%>">点击查看</a></td>
      <td align="center" width=60><%=rs("jointime")%></td>
    </tr>
    <%
rs.movenext
if rs.eof then exit for
next
%>
  </table>
<table border=0 width=550>
<tr><form action=<%=href%> method=get>
<td align="center">
<%
response.write "<a href=" & href & "?page=1"& ">第一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page-1) & ">上一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page+1)& ">下一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & rs.pagecount  & ">最后一页</a>"
%>
</td>


<td align="center">第<%=page%>/<%=rs.pagecount%>页</td></form></tr></table><br>



<%
else
%>
<br><br><br>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td width="400" align="center"><font size="4" color="red">对不起,没有相关纪录</font></td></tr></table>
<%
end if
%>
</center>


</body>
</html>
⌨️ 快捷键说明

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