📄 calendar.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!-- #include file ="../inc/connection.asp" -->
<!-- #include file ="../inc/tree1.asp" -->
<!-- #include file ="const.asp" -->
<!-- #include file ="verson.asp" -->
<%
SelectID=trim(request("SelectID"))
if SelectID="" then SelectID=Session("LoginID")
Session("SelectID")=SelectID
strSelectName=GetTableValue ("tblUser","Name","ID",SelectID)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Schedule for <%= strMonthName & " " & intThisYear %></title>
<LINK rel="stylesheet" type="text/css" href="../css/main.css">
<form name="returnform" action="plan.asp" method="post" target="PlanMain">
	    <Script language="JavaScript">
	      returnform.submit();
	    </Script>
</form>
</head>
<body BGCOLOR="#EEEEEE" TEXT="#0000FF" LEFTMARGIN="3" LINK="#000000" VLINK="#000000">
<div align=center><font color=#996600><b>当前查看：<%=strSelectName%></b></font></div>
<table ALIGN="CENTER" BORDER="1" CELLSPACING="0" CELLPADDING="2" BGCOLOR="White" BORDERCOLOR="Gray">
<tr><td>
	<table WIDTH="140" BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFFFF">
		<tr HEIGHT="18" BGCOLOR="Silver">
			<td WIDTH="20" HEIGHT="18" ALIGN="LEFT" VALIGN="MIDDLE"><a HREF="<%=sScript%>?month=<%=IntPrevMonth %>&amp;year=<%=IntPrevYear %>"><img SRC="../images/prev.gif" WIDTH="10" HEIGHT="18" BORDER="0" ALT="Previous Month"></a></td>
			<td WIDTH="120" COLSPAN="5" ALIGN="CENTER" VALIGN="MIDDLE" CLASS="SOME"><%= strMonthName & " " & intThisYear %></td>
			<td WIDTH="20" HEIGHT="18" ALIGN="RIGHT" VALIGN="MIDDLE"><a HREF="<%=sScript %>?month=<%=IntNextMonth %>&amp;year=<%=IntNextYear %>"><img SRC="../images/next.gif" WIDTH="10" HEIGHT="18" BORDER="0" ALT="Next Month"></a></td>
		</tr>
	  <tr>
			<td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">日</td>
			<td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">一</td>
			<td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">二</td>
			<td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">三</td>
			<td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">四</td>
			<td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">五</td>
			<td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">六</td>
	  </tr>
	  <tr><td HEIGHT="1" ALIGN="MIDDLE" COLSPAN="7"><img SRC="../images/line.gif" HEIGHT="1" WIDTH="140" BORDER="0"></td></tr>

	<!--#include file ="showcal.asp" --> 

	</table>
	</td></tr>
</table>
<!-- #include file="form.asp" -->
<%if trim(SelectID)<>trim(Session("LoginID")) then%>
<div align=center><a href="calendar.asp?selectID=<%=Session("LoginID")%>">切换自己<b>(<%=GetTableValue ("tblUser","Name","ID",Session("LoginID"))%>)</b></a></div>
<%end if%>
查看下属或安排任务<%Atree "tblUser","_self","calendar.asp"%>
</body>
</html>
<!-- #include file="../inc/connclose.asp" -->
<%
Function HavePlan(SelectDate)
HavePlan=false
if isdate(SelectDate) then
	set rstmp=Server.CreateObject("ADODB.RecordSet")
	sql="select id from tblPlan where class="& nClass &" and StartTime<='"& SelectDate &"' and EndTime>='"& SelectDate &"' and (UserID="& SelectID &" or AddID="& SelectID &")"
	rstmp.open sql,Conn
	if not rstmp.eof then
		HavePlan=true
	else
		HavaPlan=false
	end if
	rstmp.close
	set rstmp=nothing
else
HavePlan=false
end if
end Function

Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
		Rstmp.open strSql,Conn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		'set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function
%>
⌨️ 快捷键说明

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