file.asp

这是我做的一个OA雏形

    <param name="Loop" value="-1">
    <param name="Quality" value="High">
    <param name="SAlign" value>
    <param name="Menu" value="-1">
    <param name="Base" value>
    <param name="AllowScriptAccess" value="always">
    <param name="Scale" value="ShowAll">
    <param name="DeviceFont" value="-1">
    <param name="EmbedMovie" value="0">
    <param name="BGColor" value="003333">
    <param name="SWRemote" value><embed width="480" height="60" src="111.swf" wmode="window" scale="Default" salign="CC" play="true" devicefont="true" loop="true" menu="true" quality="high" bgcolor="#003333" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
</OBJECT>
              </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
if request("style")="name" then
strSQL ="SELECT * FROM soft where name like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="content" then
strSQL ="SELECT * FROM soft where content like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="zhipai" then
strSQL ="SELECT * FROM soft zhipai where name like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="size" then
strSQL ="SELECT * FROM soft where size like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="time" then
strSQL ="SELECT * FROM soft where time like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
else
strSQL ="SELECT * FROM soft where 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="file.asp">
              <FONT COLOR="#ffffff"> [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]     
              <%if page=1 then%>
             <font color="#ffffff"> [首页] [上一页] </font>    
              <% else %>
              [<a href="file.asp?page=1&typeid=<%=typeid%>"><font color="#FF0000">首页</font></a>] [<a href="file.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="file.asp?page=<%=page+1%>&typeid=<%=typeid%>"><font color="#FF0000">下一页</font></a>]     
              [<a href="file.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 >
                    <tr style="padding:1pt;background-color:ffffff"> 
                      <td width="10%" height="20" align=center > <font color="#000000">指派人</font>　 
                      </td> 
<td  align=center><font width="21%" color="#000000">项目主题</font> 　</td>
                      <td width="10%" height="20" align=center > <font color="#000000">开始日期</font>　 
                      </td>
                      <td width="10%" align=center ><font color="#000000"> 
                        截止日期</font></td>
                      <td width="14%" align=center ><font color="#000000">责任人 
                        　</font></td>
                      <td width="21%" align=center ><font color="#000000">项目内容 
                        　</font></td>
<td width="14%" align=center ><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 > 
<td width="10%" align=center>
<A HREF="#" onclick="window.open('jinxing.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="21%" align=center><%if rs("best")=true then response.write " <FONT COLOR=red>*</FONT>" end if%><A HREF="#" onclick="window.open('jinxing.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%><%if rs("dx")=0 then response.write " <FONT COLOR=red>(独)</FONT>" end if%></td>
                        <td width="10%" align=center>
                          <%=rs("time")%>
 </td>
                        <td width="10%" align=center> 
                          <%=rs("time2")%>
                           </td>
                        <td width="14%" align=center><A HREF="#" onclick="window.open('jinxing.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%>
                          　</td>
                        <td width="21%" align=center><A HREF="#" onclick="window.open('jinxing.asp?id=<%=rs("id")%>','','width=420 height=300')" onMouseOver="drs(' <%=rs("content")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs("content"))>11 then%>
                          <%=left(rs("content"),10)%>...
                          <% else%>
                          <%=rs("content")%>
                          <%end if%></td>
<td width="14%" align=center>
<%if Session("Rname")=rs("zhipai") or session("Urule")="a" then%>
                        [<A HREF="#" onclick="window.open('esoft.asp?id=<%=rs("id")%>','','width=430 height=350')"><FONT COLOR="#000000">修</FONT></A>] <%end if%>
                 <%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> <hr size="1">
 </tr>
 <%rs.movenext 
count=count+1
loop 
end if
%>
  </table>  
                        
<form  name="sele"  method="post"  action="file.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> 
                   <a href="#" onclick="window.open('addsoft.asp','','width=400 height=370')" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image9','','images/add_on.gif',1)"><img name="Image9" border="0" src="images/add_off.gif" align="middle"></a>  </td>
                </tr>
              </table></td>
          </tr>
        </form>
      </table></td>
  </tr>
</table>                                        
       </td>                                        
     </tr>                                        
 </table>                          
       </td>                                        
     </tr>                                        
 </table>                                   
      
      <BR></BODY></HTML>