func_prompt.asp

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

<%
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select id,title,intime From cci_pub order by id desc"

Rs.Open Sql,connObj,1,1
%>


             <table width="100%" cellpadding="1" cellspacing="1" class=tableborder1>
                 <tr width="100%" height=25 align="right"><td class=TopLighNav><b>公告信息</b></td></tr>
			  <tr height=23 bgcolor=#FFFFFF> 
			   <td> 
			<%
				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)
			  		i=0
					do while i<5 and i<=Ubound(Ars,2)
						response.Write (i+1)
             			response.Write "、<a href=pubinfo.asp?id=" & ars(0,i) & ">" & trim(ars(1,i)) & "</a>&nbsp;&nbsp;" & formatdatetime(ars(2,i),1)&"<br>"
				    	i=i+1
					loop
			End If
			
			if rs.recordcount>=5 then
				response.Write "<a href=publist.asp>更多...</a>"
			end if
				
			rs.close
				%></td></tr>
            </table>


<%

SQL = "select top 5 a.dowindow,b.title,b.id,b.starttime from cci_oa_tasklist a,cci_oa_flowlist b,cci_oa_wfdefine c where a.id=c.taskid and b.wfid=c.id and b.status=0 and b.startuser=" & session("userid") & " order by b.starttime desc"
Rs.Open Sql,connObj,1,1

%>			
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr  height=25> 
    		<td align="right" class=TopLighNav><b>待阅内容</b></td>
        </tr>
		<tr height=23 bgcolor=#FFFFFF> 
			   <td> 
             <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 5
					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)
			 		i=0
					do while i<5 and i<=Ubound(Ars,2)
						response.Write(i+1)
						response.Write "、<a href=" & ars(0,i) & "?wfid=" & ars(2,i) & ">" & ars(1,i) & "</a>&nbsp;&nbsp;" & formatdatetime(ars(3,i),1)&"<br>"
				  		i=i+1
					loop
			end if
			
			if rs.recordcount>=5 then
				response.Write "<a href=readlist.asp>更多...</a>"
			end if
			
			rs.close				
				%></td></tr>

      </table>
<% 'and b.nextdept=" & session("deptid") & "
if session("stationid")="" then
	Response.Redirect("messageA.asp?msgurl=登陆&rediurl=default.asp&msginfo=您没有登陆或您的权限不够，您无法访问该功能！")
end if
SQL = "select top 5 a.dowindow,b.title,b.id,b.starttime from cci_oa_tasklist a,cci_oa_flowlist b,cci_oa_wfdefine c where a.id=c.taskid and b.wfid=c.id and (b.status=1 or b.status=2)  and b.nextstation=" & session("stationid") & " order by b.starttime desc"
Rs.Open Sql,connObj,1,1
%>			
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr  height=25> 
		
    <td align="right" class=TopLighNav><b>待批内容</b></td>
        </tr>
<tr height=23 bgcolor=#FFFFFF> 
			   <td> 
        <%	
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 5
					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)
			 		i=0
					do while i<5 and i<=Ubound(Ars,2)
						response.Write(i+1)
						response.Write "、<a href=" & ars(0,i) & "?wfid=" & ars(2,i) & ">" & ars(1,i) & "</a>&nbsp;&nbsp;" & formatdatetime(ars(3,i),1)&"<br>"
				  		i=i+1
				loop
				
			end if
			
			if rs.recordcount>=5 then
				response.Write "<a href=approvelist.asp>更多...</a>"
			end if
			
			rs.close				
				%></td></tr>
      </table>
	  
	  <%
SQL = "select top 5 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,b.status"
Rs.Open Sql,connObj,1,1
%>			
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
       <tr  height=25> 
		
    <td align="right" class=TopLighNav><b>收文处理</b></td>
        </tr>
	<tr height=23 bgcolor=#FFFFFF> 
			   <td> 

        <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 5
					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)
			 		i=0
					do while i<5 and i<=Ubound(Ars,2)
						response.Write(i+1)
						if ars(3,i)=0 then
							response.Write "、<a href=recvinfo.asp?id=" & ars(0,i) & "><font color=#ff0000>" & ars(1,i) & "</font></a>"
						else
							response.Write "、<a href=recvinfo.asp?id=" & ars(0,i) & ">" & ars(1,i) & "</a>"	
						end if
						response.Write "&nbsp;&nbsp;" & formatdatetime(ars(2,i),1)&"<br>"
				  		i=i+1
					loop
			end if
			
			if rs.recordcount>=5 then
				response.Write "<a href=recvlist.asp>更多...</a>"
			end if
			
			rs.close				
				%></td></tr>
      </table>