📄 main1.asp

📁 这是我做的一个OA雏形
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#INCLUDE FILE="data.asp" -->
<!--#INCLUDE FILE="check.asp" -->
<HTML><HEAD><TITLE>圣时代项目进程管理</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="css.css" 
rel=stylesheet>
<META content=180 http-equiv=refresh>
<script>
   function  logout()
   {
if  (confirm("确认退出圣世代系统?"))
{
document.location.href="logout.asp";
}
}
</script>
</HEAD>
<BODY leftMargin=0  topMargin=0>
<DIV ID="overDiv" STYLE="position:absolute; visibility:hide; z-index:1;"></DIV>
<Layer name="linkex" visibility="hide" width=80%>
</Layer>
<SCRIPT LANGUAGE="JavaScript" SRC="overlib.js"></SCRIPT>
<TABLE align=center bgColor=#ff3300 border=0 cellPadding=0 cellSpacing=0 
width=772>
<TBODY>
<tr>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'" width="666">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD>
<TABLE align=center bgColor=#ff3300 border=0 cellPadding=0 cellSpacing=0 
width=772>
<TBODY>
<TR>
<TD height=2></TD></TR></TBODY></TABLE>
<TABLE align=center bgColor=#ff3300 border=0 cellPadding=0 cellSpacing=0 
width=772>
<TBODY>
<TR>
<TD>
<TABLE border=0 cellPadding=4 cellSpacing=1 height=20 
width="100%"><TBODY>
<TR bgColor=#ff6600>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><font color="#ffffff">&nbsp;</font><a href="main1.asp"><FONT 
color=#ffffff>首页</FONT></a></TD>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><a href="file.asp"><font color="#ffffff">进行项目</font></a></TD>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><a href="guoqixiangmu.asp"><font color="#ffffff">过期项目</font></a></TD>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><a href="wcxiangmu.asp"><font color="#ffffff">完成项目</font></a></TD>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><a href="tezhixiangmu.asp"><font color="#ffffff">特指项目</font></a></TD>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><a href="shanchuxiangmu.asp"><font color="#ffffff">删除项目</font></a></TD>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><A 
href="userchk.asp" ><font color="#ffffff">用户管理</font></A></TD>
<TD align=middle onmouseout="this.bgColor = '#FF6600'" 
onmouseover="this.bgColor = '#FF3300'"><a href="javascript:logout()" target=_self><font color="#ffffff">退出系统</font></A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</TD>
<TD width="102">
</TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=5 height=92 
width=774>
<TBODY>
<TR> 
<TD width="222"> 
<p>&nbsp;<img border="0" src="images/dd1.gif" align="center" width="209" height="87">
</TD>
<TD align=right width="530">
<TABLE align=right bgColor=#cccccc border=0 cellPadding=1 
cellSpacing=0 width="96%" VALIGN="TOP">
<TBODY>
<TR>
<TD align=left bgcolor="#FFFFFF">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" ID=Untitled WIDTH=530 HEIGHT=90>
    <param name="_cx" value="13123">
    <param name="_cy" value="2699">
    <param name="FlashVars" value="0">
    <param name="Movie" value="111.swf">
    <param name="Src" value="111.swf">
    <param name="WMode" value="Window">
    <param name="Play" value="0">
    <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 align=center border=0 cellPadding=0 cellSpacing=5 height=100 
width=772>
<TBODY>
<TR>
<TD colSpan=2>
<TABLE align=right bgColor=#cccccc border=0 cellPadding=1 
cellSpacing=0 width="100%" VALIGN="TOP">
<TBODY>
<TR>
<TD align=center>
<TABLE bgColor=#efefef border=0 cellPadding=2 cellSpacing=0 
height=1 width="100%" VALIGN="TOP">
<TBODY>
<TR>
<TD vAlign=top>
<TABLE bgColor=#cccccc border=0 cellPadding=0 
cellSpacing=0 width="100%" VALIGN="TOP">
<TBODY>
 <TR>
<TD height=25>&nbsp;&nbsp;&nbsp;<b>进行项目</b></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD bgColor=#ffffff height=100 
style="PADDING-BOTTOM: 5px; PADDING-LEFT: 10px; PADDING-RIGHT: 5px; PADDING-TOP: 5px" 
vAlign=top>
<TABLE>
<TBODY></TBODY></TABLE>
<table border="0" width="100%">
<tr>
<%
dim rs,strSQL,news
strSQL ="SELECT * FROM soft where userid="&session("Uid")&" or dx=true ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,1,1
    if rs.eof and rs.bof then
response.write "<font color='#ffffff' class='3dfont'>该类别还没有任何文件</font>"
else%>
<td width="9%" align="center"  bgcolor="#FFFFFF"> 开始日期</td>                   
<td width="27%" align="center" bgcolor="#FFFFFF">项目主题</td>
<td width="10%" align="center"  bgcolor="#FFFFFF">指派人</td>
<td width="13%" align="center"  bgcolor="#FFFFFF">责任人</td>
<td width="23%"  align="center"  bgcolor="#FFFFFF">项目内容</td>
<td width="9%" align="center"  bgcolor="#FFFFFF" >截止日期</td>
<td width="9%" align="center"  bgcolor="#FFFFFF" ></td>
</tr>
</table> 
<table border=0 cellspacing="0" cellpadding="0" width="100%" bordercolorlight=#000000 bordercolordark=#ffffff>
<%
count=0 
do while not (rs.eof or rs.bof) 
%> <table border=0.5 cellspacing="0" cellpadding="0" width="100%" bordercolorlight=#000000 bordercolordark=#ffffff>
<tr>
 <td width="9%" align=center bgcolor="#FFFFFF"><%=rs("time")%></td> 
 <td width="27%" align=center bgcolor="#FFFFFF"><%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"))>13 then%><%=left(rs("name"),12)%>...<% else%><%=rs("name")%><%end if%>
<%if rs("dx")=0 then response.write " <FONT COLOR=red >(独)</FONT>" end if%></td>  
  <td width="10%" align="center" bgcolor="#FFFFFF"><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"))>5 then%><%=left(rs("zhipai"),4)%>...<% else%><%=rs("zhipai")%><%end if%></td>                 
<td width="13%" align="center" bgcolor="#FFFFFF"><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"))>8 then%><%=left(rs("size"),7)%>...<% else%><%=rs("size")%><%end if%></td>                 
<td bgcolor="#FFFFFF">  　
<td width="23%" align="center" bgcolor="#FFFFFF" ><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"))>12 then%><%=left(rs("content"),11)%>...<% else%><%=rs("content")%><%end if%></td>
<td width="9%" align="center" bgcolor="#FFFFFF"> <%=rs("time2")%></td >  
  <td width="9%" align="center" bgcolor="#FFFFFF"> </td >
</tr><hr size="1">
 <%rs.movenext 
count=count+1
12 下一页
💿 文件大小 247 K
👤 上传用户 andyandnancy
📂 所属分类企业管理
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -