shanchuxiangmu.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="774" 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 shanchu where name like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="content" then
strSQL ="SELECT * FROM shanchu where content like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="zhipai" then
strSQL ="SELECT * FROM shanchu zhipai where name like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="size" then
strSQL ="SELECT * FROM shanchu where size like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
elseif request("style")="time" then
strSQL ="SELECT * FROM shanchu where time like '%"&keyword&"%' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
else
strSQL ="SELECT * FROM shanchu 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="shanchuxiangmu.asp">
              <FONT COLOR="#ffffff"> [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]       
              <%if page=1 then%>
             <font color="#ffffff"> [首页] [上一页] </font>        
              <% else %>
              [<a href="shanchuxiangmu.asp?page=1&typeid=<%=typeid%>"><font color="#FF0000">首页</font></a>] [<a href="shanchuxiangmu.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="shanchuxiangmu.asp?page=<%=page+1%>&typeid=<%=typeid%>"><font color="#FF0000">下一页</font></a>]       
              [<a href="shanchuxiangmu.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"> 指派人　 </td>               
 <td width="18%" align=center>项目主题 　</td>
                  <td width="10%" align=center height="25"> 开始日期　 </td>
                  <td width="10%" align=center height="25%"> 截止日期</td>
                  <td width="13%" align=center height="25%">责任人 　</td>
                  <td width="18%" align=center height="25%">项目内容 　</td>
<td width="21%" align=center height="25%">删除说明 　</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('sc.asp?id=<%=rs("id")%>','','width=420 height=470')" 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="18%" align=center><%if rs("best")=true then response.write " <FONT COLOR=red>*</FONT>" end if%><A HREF="#" onclick="window.open('sc.asp?id=<%=rs("id")%>','','width=420 height=470')" 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("time"))>13 then%>
<%=left(rs("time"),10)%>...
<% else%>
<%=rs("time")%>
<%end if%>
</td>
<td width="10%" align=center><% if len(rs("time2"))>13 then%>
<%=left(rs("time2"),10)%>...
<% else%>
<%=rs("time2")%>
<%end if%>
</td>
<td width="13%" align=center><A HREF="#" onclick="window.open('sc.asp?id=<%=rs("id")%>','','width=420 height=470')" onMouseOver="drs(' <%=rs("size")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs("size"))>8 then%>
<%=left(rs("size"),7)%>...
<% else%>
<%=rs("size")%>
<%end if%>
</td>
<td width="18%" align=center><A HREF="#" onclick="window.open('sc.asp?id=<%=rs("id")%>','','width=420 height=470')" 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="21%" align=center><% if rs("zhipai")=session("Rname") then%><A HREF="#" onclick="window.open('sc.asp?id=<%=rs("id")%>','','width=420 height=470')" onMouseOver="drs(' <%=rs("shanchu")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs("shanchu"))>9 then%>
<%=left(rs("shanchu"),8)%>...
<% else%>
<%=rs("shanchu")%><%end if%>
<%end if%></td>
</tr><hr size="1">
<%rs.movenext 
count=count+1
loop 
end if
%></table>
                  
<form  name="sele"  method="post"  action="shanchuxiangmu.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%>
                                <%end if%>
                              </td>
                </tr>
              </table></td>
          </tr>
        </form>
      </table></td>
  </tr>
</table>                                        
       </td>                                        
     </tr>                                        
 </table>                                   
 <BR></BODY></HTML>