📄 plan_index.asp
字号:
<%
'功能：我的日程日历
%>
<!--#include file="../inc/Secure.asp"-->
<!-- #include file ="../inc/conn.asp" -->
<!--#include file="../inc/Const.asp"-->
<!-- #include file ="const.inc" -->
<%
SelectID=Session("LoginID")
if SelectID="" then SelectID=0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
</head>
<body topmargin="10" leftmargin="10">
<!--#include file="plan_menu.html"-->
<hr width="100%" size=1 color="#000000">
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="tdTop">
<div align="LEFT">
<table cellspacing="0" cellpadding="0" class="tdTop">
<tr>
<td width="20" height="18" align="LEFT" valign="MIDDLE"><a href="<%=sScript%>?month=<%=IntPrevMonth %>&year=<%=IntPrevYear %>"><img src="../images/prev.gif" width="10" height="18" border="0" alt="Previous Month"></a></td>
<td align="CENTER" valign="MIDDLE" class="AWhite"><%= strMonthName & " " & intThisYear %></td>
<td width="20" height="18" align="RIGHT" valign="MIDDLE"><a href="<%=sScript %>?month=<%=IntNextMonth %>&year=<%=IntNextYear %>"><img src="../images/next.gif" width="10" height="18" border="0" alt="Next Month"></a> </td>
<td><!-- #include file="form.inc" --></td>
</tr>
</table>
</div>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">日</td>
<td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">一</td>
<td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">二</td>
<td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">三</td>
<td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">四</td>
<td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">五</td>
<td align="CENTER" WIDTH="14%" class="td1" valign="BOTTOM">六</td>
</tr>
<!--#include file ="showcal.inc" -->
</table>
</td>
</tr>
</table>
<%
Function ShowPlan(SelectDate)
set rstmp=Server.CreateObject("ADODB.RecordSet")
sql="select id,finish from tbioaPlan where StartDate<DATEADD(dd, 1, '"& SelectDate &"') and Enddate>'"& SelectDate &"' and UserID="& SelectID
'response.write sql
rstmp.open sql,oConn
if not rstmp.eof then
dim finished,notfinish,total:finished=0:notfinish=0:total=0
do while not rstmp.eof
if(trim(rstmp("finish"))=100) then finished=finished+1 else notfinish=notfinish+1
total=total+1
rstmp.movenext
loop
ShowPlan="<table width=100% class='tdonmouseout' onmouseout=className='tdonmouseout' onmouseover=className='tdonmouseover' onclick=document.location='plan_list.asp?selectdate="& SelectDate &"' title='查看列表'><tr><td align=center><font color=404040>日程总数:"& total &"</font><br> <font color=8080B0>已完成:"& finished &"</font><br> <font color=A03030>未完成:"& notfinish &"</font><br></td></tr></table>"
else
ShowPlan="<font color=8080B0>未安排日程</font>"
end if
rstmp.close
set rstmp=nothing
end Function
%>
<!--#include file="../inc/conn_close.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -