func_recvlist.asp

企业办公简单管理系统,可以发布信息以及论坛

<SCRIPT LANGUAGE="JavaScript">
<!--
	function MM_jumpMenu(targ,selObj,restore)
	{ //v3.0
	  	eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
	  	if (restore) selObj.selectedIndex=0;
	}
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%

set rs = Server.CreateObject("ADODB.Recordset")


SQL = "select a.id,a.title,a.sendtime,b.status from cci_oa_file a,cci_oa_filedest b where a.id=b.srcid and b.userid=" & session("userid") & " order by a.sendtime desc"

Rs.Open Sql,connObj,1,1

%>				
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr> 
		
    <th  height="25" align="center"> <b><%=site_title%>收文处理</b> 
      <div align="right"></div></th>
        </tr>
       
        <tr> 
          <td  align="center" valign="top" bgcolor="#FFFFFF" > 
                  
             <table width="100%" cellpadding="1" cellspacing="1" class=tableborder1>
              <tr align="center" height=25> 
                
          <td class=TopLighNav  width="50" ><b>序号</b></td>
		  <td class=TopLighNav><b>标题</b></td>
		  <td width="120" class=TopLighNav><b>时间</b></td>
		   <td width="120" class=TopLighNav><b>状态</b></td>
              </tr>
              <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 20
					Rs.pagesize = page_size
					page_count = Rs.pagecount
					Page = Request.QueryString("page")
					If Isnull(Page) or (Not Isnumeric(Page)) Then
						aPage = 1
					Else
						aPage = Cint(page)
						If aPage < 1 Then
							aPage = 1
						ElseIf aPage > Cint(page_count) Then
							aPage = page_count
						End If
					End If
					Rs.Absolutepage = aPage
					Ars = Rs.Getrows(page_size)
			  
					For i = 0 To Ubound(Ars,2)
				%>
              <tr bgcolor=#FFFFFF align="center"  height= 20> 
			  <td><%=i+1%></td>
                <td><a href="recvinfo.asp?id=<%=ars(0,i)%>"><%=Ars(1,i)%></a></td>
				<td><%=formatdatetime(ars(2,i),1)%></td>
				<td><%
					if ars(3,i)=0 then
						response.Write("<font color=#ff0000>未阅</font>")
					else
						response.Write("已阅")
					end if
				%></td>
   	          </tr>
              <%
			    
				Next
			Else
				Response.Write("<tr><td bgcolor=#FFFFFF align=center colspan=4>目前没有接收到任何公文!</td></tr>")
			End If
			rs.close
				%>
            </table>
                
                </td>
              </tr>
              
                <tr bgcolor="#EEEEEE">  <form name="form1">
                  <td height="24" align="right" bgcolor="#ffffff" >
                    <%
						If sumcount > 0 Then
					%>
                            [共有 
                            <% = sumcount %>
                            条记录 页: 
                            <% = aPage %>
                            / 
                            <% = page_count %>
                            ] 
<%
	if Cint(aPage) > 1 then	
%>
                            [<a href="recvlist.asp?page=<% = aPage - 1 %>">上一页</a>] 
<%
	else
	response.write "[上一页]"
	end if
	if (Cint(aPage) < Cint(page_count)) then
%>
                            [<a href="recvlist.asp?page=<% = aPage + 1 %>">下一页</a>] 
<%
	else
	response.write "[下一页]"
	end if
%>
                            跳到
							<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
		For i = 1 to page_count
		If i = aPage Then			
%>
		<option value="recvlist.asp?page=<% = i %>" selected><% = i %></option>
<%
		else
%>
		<option value="recvlist.asp?page=<% = i %>"><% = i %></option>
<%
		End If
		Next
%>
                            </select>页
<%
	Else
	Response.Write("&nbsp;")
	End If
%>
                  </td> </form>
                </tr>
             
          
      </table>