guoqixiangmu.asp

这是我做的一个OA雏形

</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<table width="774" align=center border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#CCCCCC"> 
<td height=20 colspan="2" class="heading">　<font color="#000000"><b>过期项目</b></font> 
</td>
</tr>
<tr> 
<td width="1" valign="top"> <br> </td>
<td valign="top" > <table width="100%" border="0" cellspacing="0" cellpadding="0"><tr >
<td width="10"><td align="right" width="100%">
<table width="100%" border=0 align="center" cellspacing="1" >
<tr > 
<td bgcolor="#FFFFFF">
<%
dim keyword
keyword=request("selecttext")
dim page
page=request("page")
PageSize = 10
dim rs,strSQL,news,guoqitian
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
if request("style")="name" then
strSQL ="SELECT * FROM soft where remindtime<'"&shijian&"' and name like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="content" then
strSQL ="SELECT * FROM soft where remindtime<'"&shijian&"' and content like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="zhipai" then
strSQL ="SELECT * FROM soft where remindtime<'"&shijian&"' and zhipai like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="size" then
strSQL ="SELECT * FROM soft where remindtime<'"&shijian&"' and size like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="time" then
strSQL ="SELECT * FROM soft where remindtime<'"&shijian&"' and time like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
else
strSQL ="SELECT * FROM soft where remindtime<'"&shijian&"' and time2 like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,1,1
rs.PageSize = PageSize
totalfilm=rs.recordcount

pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
if rs.eof and rs.bof then
response.write "<font color='#ffffff' class='3dfont'>该类别还没有任何文件</font>"
else
%>            
<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr bgcolor="#303430"><form method=Post action="guoqixiangmu.asp">
<FONT COLOR="#ffffff"> [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]         
<%if page=1 then%>
<font color="#ffffff"> [首页] [上一页] </font>           
<% else %>
[<a href="guoqixiangmu.asp?page=1&typeid=<%=typeid%>"><font color="#FF0000">首页</font></a>] [<a href="guoqixiangmu.asp?page=<%=page-1%>&typeid=<%=typeid%>"><font color="#FF0000">上一页</font></a>]         
<%end if%>
<%if rs.pagecount-page<1 then%>        
<font color="#ffffff"> [下一页] [尾页] </font>        
<%else%>
[<a href="guoqixiangmu.asp?page=<%=page+1%>&typeid=<%=typeid%>"><font color="#FF0000">下一页</font></a>]         
[<a href="guoqixiangmu.asp?page=<%=rs.pagecount%>&typeid=<%=typeid%>"><font color="#FF0000">尾页</font></a>]</FONT> 
<%end if%>        
<input type='text' name='page' size=2 maxlength=10 style="font-size:9pt;color:#FFFFFF;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000" value="<%=page%>" align=center>        
<INPUT TYPE="hidden" name=type value="<%=typeid%>">        
<input style="border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal" type='submit'  value=' Goto '   size=2>
                          
</table><tr> 
            <td>
<table border=0 cellspacing="0" cellpadding="0" width="100%" bordercolorlight=#000000 bordercolordark=#ffffff height="20">
<tr style="padding:1pt;background-color:ffffff"> 
<td width="10%" align=center height="25"><font color="#000000"> 
指派人</font></td>
<td idth="20%" align=center><font color="#000000">项目主题 　</font></td>
<td width="10%" align=center height="25"><font color="#000000"> 
开始日期</font></td>
<td width="10%" align=center height="25%"><font color="#000000"> 
截止日期</font></td>
<td width="7%" align=center height="25%"><font color="#000000"> 
过期天数</font></td>
<td width="13%" align=center height="25%"><font color="#000000">责任人 
</font></td>
<td width="22%" align=center height="25%"><font color="#000000">项目内容 
</font></td>
<td width="8%" align=center height="25%"><font color="#000000">操作 
</font></td>
</tr>
<%
count=0 
do while not (rs.eof or rs.bof) and count<rs.PageSize 
%>
<table border=0 cellspacing="0" cellpadding="0" width="100%" bordercolorlight=#000000 bordercolordark=#ffffff>
<tr style="padding:1pt;background-color:ffffff"> 
<td width="10%" align=center>
<A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs("id")%>','','width=420 height=300')" onMouseOver="drs('<%=rs("zhipai")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs("zhipai"))>4 then%><%=left(rs("zhipai"),3)%>...<% else%><%=rs("zhipai")%><%end if%></td>                     
<td width="20%" align=center><%if rs("best")=true then response.write " <FONT COLOR=red>*</FONT>" end if%><A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs("id")%>','','width=420 height=300')" onMouseOver="drs(' <%=rs("name")%>'); return true;" onMouseOut="nd(); return true;">
<% if len(rs("name"))>10 then%>
<%=left(rs("name"),9)%>... 
<% else%>
<%=rs("name")%> 
<%end if%> 
</a><%if rs("dx")=0 then response.write " <FONT COLOR=red>(独)</FONT>" end if%>
</td>
<td width="10%" align=center>
<% if len(rs("time"))>13 then%>
<%=left(rs("time"),10)%>... 
<% else%>
<%=rs("time")%> 
<%end if%> 
</td>
<td width="10%" align=center> 
<% if len(rs("time2"))>11 then%>
<%=left(rs("time2"),10)%>... 
<% else%>
<%=rs("time2")%> 
<%end if%> 
</td>
<td width="7%" align=center> 
<%=DateDiff("d",date(),rs("time2"))%>  
</td>
<td width="13%" align=center><A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs("id")%>','','width=420 height=300')" onMouseOver="drs(' <%=rs("size")%>'); return true;" onMouseOut="nd(); return true;">
<% if len(rs("size"))>7 then%>
<%=left(rs("size"),6)%>... 
<% else%>
<%=rs("size")%> 
<%end if%> 
</a></td>
<td width="22%" align=center><A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs("id")%>','','width=420 height=300')" onMouseOver="drs(' <%=rs("content")%> '); return true;" onMouseOut="nd(); return true;">
<% if len(rs("content"))>13 then%>
<%=left(rs("content"),10)%>... 
<% else%>
<%=rs("content")%> 
<%end if%> 
</a>
</td>
<td width="8%" align=center> 
  <%if Session("Rname")=rs("zhipai") or session("Urule")="a" then%>   [<A HREF="#" onclick="window.open('fulfil.asp?id=<%=rs("id")%>','','width=430 height=300')"><FONT COLOR="#000000">完</FONT></A>] <%end if%>
   <%if Session("Rname")=rs("zhipai") or session("Urule")="a" then%>    [<A HREF="#" onclick="window.open('shanchu.asp?id=<%=rs("id")%>','','width=430 height=400')"><FONT COLOR="#000000">删</FONT></A>] <%end if%>
</td>
</tr><hr size="0.5">
<%rs.movenext 
count=count+1
loop 
end if
%></table>
                  
 <form  name="sele"  method="post"  action="guoqixiangmu.asp"  onsubmit="return  ckse()">
          <tr > 
            <td bgcolor="#FFFFFF" colspan="4"> <table width="100%" cellpadding="0" cellspacing="0" border="0">
                <tr> 
                   <td bgcolor="#BFBFBF" width="6%"> 查询：</td>  
            <td height=20 width="10%" bgcolor="#BFBFBF"> 
              <select name="style">
                  <option value="name" selected>项目主题</option>
                  <option value="content">项目内容</option>
                  <option value="zhipai">指派人</option>
                  <option value="size">责任人</option>
                  <option value="time">开始日期</option>
                  <option value="time2">截止日期</option>
                  
                </select>
            </td>
	  <td bgcolor="#BFBFBF" width="5%" >为</td>
                  <td bgcolor="#BFBFBF" width="30%"> <input type="text" name="selecttext" size="35" maxlength="37"> 
                  </td>
                  <td width="49%"><a href="javascript:document.sele.submit();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image8','','images/search_on.gif',1)"><img name="Image8" border="0" src="images/search_off.gif" align="middle"></a> 
                    <%if session("Urule")="a" then%> &nbsp; <%end if%> </td>
                </tr>
              </table></td>
          </tr>
        </form>
      </table></td>
  </tr>
</table>                                        
       </td>                                        
     </tr>                                        
 </table>                                   
 <BR></BODY></HTML>