wcxiangmu.asp

这是我做的一个OA雏形

    </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
if request("style")="name" then
strSQL ="SELECT * FROM fulfil where name like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="content" then
strSQL ="SELECT * FROM fulfil where content like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="zhipai" then
strSQL ="SELECT * FROM fulfil zhipai where name like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="size" then
strSQL ="SELECT * FROM fulfil where size like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="time3" then
strSQL ="SELECT * FROM fulfil where time3 like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="time2" then
strSQL ="SELECT * FROM fulfil where time2 like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
else
strSQL ="SELECT * FROM fulfil where time 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
jia1=mid(rs("time2"),1,4)+mid(rs("time2"),6,2)+mid(rs("time2"),9,2)
jia2=mid(rs("time"),1,4)+mid(rs("time"),6,2)+mid(rs("time"),9,2)
jia=jia1-jia2
jian2=mid(rs("time3"),1,4)+mid(rs("time3"),6,2)+mid(rs("time3"),9,2)
jian=jia2-jia1
    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="wcxiangmu.asp">
              <FONT COLOR="#ffffff"> [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]       
              <%if page=1 then%>
              <font color="#ffffff"> [首页] [上一页] </font>      
              <% else %>
              [<a href="wcxiangmu.asp?page=1&typeid=<%=typeid%>"><font color="#FF0000">首页</font></a>] [<a href="wcxiangmu.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="wcxiangmu.asp?page=<%=page+1%>&typeid=<%=typeid%>"><font color="#FF0000">下一页</font></a>]       
              [<a href="wcxiangmu.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></td></tr>
          <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="9%" align=center height="25"><font color="#000000"> 
                        指派人　 </font></td>                  
<td width="19%" 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="13%" align=center height="25%"><font color="#000000"> 
                        截止日期</font></td>
                      <td width="13%" align=center height="25%"><font color="#000000">责任人 
                        　</font></td>
                      <td width="18%" 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="9%" align=center>
 <A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs("id")%>','','width=420 height=320')" 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="19%" align=center><%if rs("best")=true then response.write " <FONT COLOR=red>*</FONT>" end if%><A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs("id")%>','','width=420 height=320')" onMouseOver="drs(' <%=rs("name")%>'); return true;" onMouseOut="nd(); return true;">
<% if len(rs("name"))>9 then%>
                          <%=left(rs("name"),8)%>...
                          <% else%>
                          <%=rs("name")%>
                          <%end if%><%if rs("dx")=0 then response.write " <FONT COLOR=red>(独)</FONT>" end if%>
                        </td>
<td width="10%" align=center>
                          <% if len(rs("time3"))>11 then%>
                          <%=left(rs("time3"),10)%>...
                          <% else%>
                          <%=rs("time3")%>
                          <%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="13%" align=center><%=rs("time2")%><font color="#FF0000">(<%=DateDiff("d",rs("wc"),rs("jz"))%>)</font></td>
                        <td width="13%" align=center><A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs("id")%>','','width=420 height=320')" 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%>
                          　</td>
                        <td width="18%" align=center><A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs("id")%>','','width=420 height=320')" onMouseOver="drs(' <%=rs("content")%>'); return true;" onMouseOut="nd(); return true;">
                          <% if len(rs("content"))>10 then%>
                          <%=left(rs("content"),9)%>...
                          <% else%>
                          <%=rs("content")%>
                          <%end if%>
                        </td>
<td width="8%" align=center>
                          <%if Session("Rname")=rs("zhipai") or session("Urule")="a" then%>
                        [<A HREF="#" onclick="window.open('tezhi1.asp?id=<%=rs("id")%>','','width=430 height=420')"><FONT COLOR="#000000">特</FONT></A>] <%end if%>
 <%if Session("Rname")=rs("zhipai") or session("Urule")="a" then%>  [<A HREF="#" onclick="window.open('shanchu1.asp?id=<%=rs("id")%>','','width=430 height=400')"><FONT COLOR="#000000">删</FONT></A>] 
                        <%end if%>
</td>   
</tr><hr size="1">
                    <%rs.movenext 
count=count+1
loop 
end if
%></table>
                  
<form  name="sele"  method="post"  action="wcxiangmu.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="time3">开始日期</option>
                  <option value="time2">截止日期</option>
                  <option value="time">完成日期</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%>
                                <%end if%>
                              </td>
                </tr>
              </table></td>
          </tr>
        </form>
      </table></td>
  </tr>
</table>                                        
       </td>                                        
     </tr>                                        
 </table>                                   
<BR></BODY></HTML>