📄 main1.asp
字号:
if count>5 then exit do
loop
end if
rs.close
set rs=nothing
%>
</table>
</center>
<p align="right"><a class="link" target="_blank" href="file.asp"><font color="#3399FF">更多项目...</font></a> </TABLE>
</div>
</div>
</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top width="100%">
<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> <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>
<TBODY>
<TR>
<TD>
<%
dim rs1,strSQL1,news1
strSQL1 ="SELECT * FROM fulfil where userid="&session("Uid")&" or dx=true ORDER BY id DESC"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open strSQL1,Conn,1,1
if rs1.eof and rs1.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>
<%
count1=0
do while not (rs1.eof or rs1.bof)
%> <table border=0 cellspacing="0" cellpadding="0" width="100%" bordercolorlight=#000000 bordercolordark=#ffffff>
<tr><td width="9%" align=center bgcolor="#FFFFFF"><%=rs1("time")%></td>
<td width="27%" align=center bgcolor="#FFFFFF"><%if rs1("best")=true then response.write " <FONT COLOR=red>*</FONT>" end if%><A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs1("id")%>','','width=420 height=320')" onMouseOver="drs('<%=rs1("name")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs1("name"))>13 then%><%=left(rs1("name"),12)%>...<% else%><%=rs1("name")%><%end if%>
<%if rs1("dx")=0 then response.write " <FONT COLOR=red>(独)</FONT>" end if%></td>
<td width="10%" align="center" bgcolor="#FFFFFF"><A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs1("id")%>','','width=420 height=320')" onMouseOver="drs(' <%=rs1("zhipai")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs1("zhipai"))>4 then%><%=left(rs1("zhipai"),3)%>...<% else%><%=rs1("zhipai")%><%end if%></td>
<td width="13%" align="center" bgcolor="#FFFFFF"><A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs1("id")%>','','width=420 height=320')" onMouseOver="drs(' <%=rs1("size")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs1("size"))>8 then%><%=left(rs1("size"),7)%>...<% else%><%=rs1("size")%><%end if%></td>
<td bgcolor="#FFFFFF">
<td width="23%" align="center" bgcolor="#FFFFFF" ><A HREF="#" onclick="window.open('wancheng.asp?id=<%=rs1("id")%>','','width=420 height=320')" onMouseOver="drs('<%=rs1("content")%>'); return true;" onMouseOut="nd(); return true;"> <% if len(rs1("content"))>11 then%><%=left(rs1("content"),10)%>...<% else%><%=rs1("content")%><%end if%></td>
<td width="9%" align="center" bgcolor="#FFFFFF"> <%=rs1("time2")%></td >
<td width="9%" align="center" bgcolor="#FFFFFF"> <%=rs1("time")%></td >
</tr><hr size="1">
<%rs1.movenext
count1=count1+1
if count1>5 then exit do
loop
end if
rs1.close
set rs1=nothing
%>
</TABLE><p>
<DIV align=right> <a class="link" href="wcxiangmu.asp" target="_blank"><font color="#3399FF">更多项目...</font></a> </DIV></TABLE></TD></TR></TBODY></TABLE></TD>
</tr><tr> <TD vAlign=top>
<TABLE align=right bgColor=#cccccc border=0 cellPadding=1
cellSpacing=0 height="100%" width="100%" VALIGN="TOP">
<TBODY>
<TR>
<TD align=left>
<TABLE bgColor=#efefef border=0 cellPadding=2 cellSpacing=0
height="100%" width="100%" VALIGN="TOP">
<TBODY>
<TR>
<TD height=1 vAlign=top>
<TABLE bgColor=#cccccc border=0 cellPadding=0
cellSpacing=0 width="100%" VALIGN="TOP">
<TBODY>
<TR>
<TD
height=25> <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 border=0>
<TBODY>
<TR>
<TD>
<%
dim rs2,strSQL2,news2,nowtime,shijian
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
strSQL2 ="SELECT * FROM soft where remindtime<'"&shijian&"' and (userid="&session("Uid")&" or dx=true) ORDER BY id DESC"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open strSQL2,Conn,1,1
guoqitian=shijian-rs2("remindtime")
if rs2.eof and rs2.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>
<%
count2=0
do while not (rs2.eof or rs2.bof)
%> <table border=0 cellspacing="0" cellpadding="0" width="100%" bordercolorlight=#000000 bordercolordark=#ffffff>
<tr>
<td width="9%" align=center bgcolor="#FFFFFF"><%=rs2("time")%></td>
<td width="27%" align=center bgcolor="#FFFFFF"><%if rs2("best")=true then response.write " <FONT COLOR=red>*</FONT>" end if%><A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs2("id")%>','','width=420 height=300')" onMouseOver="drs(' <%=rs2("name")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs2("name"))>13 then%><%=left(rs2("name"),12)%>...<% else%><%=rs2("name")%><%end if%>
<%if rs2("dx")=0 then response.write " <FONT COLOR=red>(独)</FONT>" end if%></td>
<td width="10%" align="center" bgcolor="#FFFFFF"><A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs2("id")%>','','width=420 height=300')" onMouseOver="drs(' <%=rs2("zhipai")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs2("zhipai"))>5 then%><%=left(rs2("zhipai"),4)%>...<% else%><%=rs2("zhipai")%><%end if%></td>
<td width="13%" align="center" bgcolor="#FFFFFF"><A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs2("id")%>','','width=420 height=300')" onMouseOver="drs(' <%=rs2("size")%>'); return true;" onMouseOut="nd(); return true;"><% if len(rs2("size"))>8 then%><%=left(rs2("size"),7)%>...<% else%><%=rs2("size")%><%end if%></td>
<td bgcolor="#FFFFFF">
<td width="23%" align="center" bgcolor="#FFFFFF" ><A HREF="#" onclick="window.open('guoqi.asp?id=<%=rs2("id")%>','','width=420 height=320')" onMouseOver="drs(' <%=rs2("content")%>'); return true;" onMouseOut="nd(); return true;"> <% if len(rs2("content"))>11 then%><%=left(rs2("content"),10)%>...<% else%><%=rs2("content")%><%end if%></td>
<td width="9%" align="center" bgcolor="#FFFFFF"> <%=rs2("time2")%></td >
<td width="9%" align="center" bgcolor="#FFFFFF"> <%=DateDiff("d",date(),rs2("time2"))%> </td >
</tr><hr size="1">
<%rs2.movenext
count2=count2+1
if count2>5 then exit do
loop
end if
rs2.close
set rs2=nothing
%>
</table>
</center>
<p align="right"><a class="link" target="_blank" href="guoqixiangmu.asp"><font color="#3399FF">更多项目...</font></a> </TABLE>
</div>
</div>
</TD></TR></TBODY></TABLE></TD></TR> <TR>
<TD colSpan=2>
<TABLE align=right bgColor=#cccccc border=0 cellPadding=1
cellSpacing=0 width="100%" VALIGN="TOP">
<TBODY>
<TR>
<TD align=left> </TD>
</TR></TBODY></TABLE><BR><BR></BODY>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -