📄 checkcalendar.asp
字号:
<!--#INCLUDE FILE="data.asp" -->
<!--#INCLUDE FILE="check.asp" -->
<%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
se=cstr(year(nowtime))+"-"+right("0"+cstr(month(nowtime)),2)+"-"+right("0"+cstr(day(nowtime)),2)
strSQL ="SELECT * FROM soft where (userid="&session("Uid")&" and daoshitime2<'"&shijian&"') ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,conn,3,3
%>
<html><head><title>自动提醒</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="oa.css" rel=stylesheet>
</head>
<BODY>
<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=left>
<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>
<%
if rs.eof and rs.bof then
response.write "<font color='#ffffff' class='3dfont'>该类别还没有任何文件</font>"
else%>
<td width="40%" align="center" bgcolor="#FFFFFF">项目主题</td>
<td width="20%" align="center" bgcolor="#FFFFFF">责任人</td>
<td width="40%" 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 (rs.eof or rs.bof)
%> <table border=0 cellspacing="0" cellpadding="0" width="100%" bordercolorlight=#000000 bordercolordark=#ffffff>
<td width="40%" 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=320')" 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="20%" align="center" bgcolor="#FFFFFF"><A HREF="#" onclick="window.open('jinxing.asp?id=<%=rs("id")%>','','width=420 height=320')" 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="40%" align="center" bgcolor="#FFFFFF" ><A HREF="#" onclick="window.open('jinxing.asp?id=<%=rs("id")%>','','width=420 height=320')" 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>
</tr><hr size="1">
<%ss=Dateadd("d",rs("timetx"),se)
rs("daoshitime1")=ss
rs("daoshitime2")=cstr(year(rs("daoshitime1")))+right("0"+cstr(month(rs("daoshitime1"))),2)+right("0"+cstr(day(rs("daoshitime1"))),2)
%>
<%rs.movenext
count=count+1
if count>100 then exit do
loop
end if
%>
</TABLE><p>
</TABLE></TD></TR></TBODY></TABLE></TD>
</tr>
</body></html>
<%rs.close
set rs=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -