📄 adduserplan.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/def_color.asp"-->
<!--#include file="../inc/connection.asp"-->
<!--#include file="verson.asp"-->
<%
SelectDate=trim(request("SelectDate"))
if SelectDate="" then SelectDate=date()
StartTime=SelectDate

SelectID=Session("SelectID")
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
if SelectID="" then SelectID=LoginID
UserName=GetTableValue ("tblUser","Name","ID",SelectID)

dim NewID
if Request("cmdUp")<>"" then
	StartTime=replace(trim(request("StartTime")),"'","''")
	EndTime=replace(trim(request("EndTime")),"'","''")
	Title=replace(trim(request("Title")),"'","''")
	Body=replace(trim(request("Body")),"'","''")
	Remark=replace(trim(request("Remark")),"'","''")
	URL=replace(trim(request("URL")),"'","''")
	if endTime="" then endTime=StartTime

	if startTime="" then errStartTime="<img src='../images/error.gif' border=0 height=15 alt='必须输入该项'>"
	if Title="" then errTitle="<img src='../images/error.gif' border=0 height=15 alt='必须输入该项'>"
	if Body="" then errBody="<img src='../images/error.gif' border=0 height=15 alt='必须输入该项'>"

	if startTime<>"" and title<>"" and Body<>"" and (startTime<=endTime) then
		AddPlan()
		AddPlanUser NewID,SelectID,UserName
		response.write "<h3><font FACE=Verdana>Event Added!（给下属安排已经成功添加！）</font></h3><BR>谢谢！<BR>"
		'response.write "还要增加下级到该任务吗？<a href=AddUnder.asp?planID="&NewID&"><img src=""../images/add.gif"" border=0></a><BR><BR>"
		response.write "<a href=plan.asp?SelectDate="&SelectDate&"><img src='../images/return.gif' border=0></a><BR>"
		response.end
	end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/main.css">	 
</head>
<body BGCOLOR="FFFFFF">
<p ALIGN="center">给下属添加日程安排</p>

<form NAME="eventfrm" ACTION="<%=Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST">

<table CELLSPACING="1" CELLPADDING="1" border=0 WIDTH="100%" bgcolor="<%=bgcolor%>">
<tr>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="20%"><b>起始日期</b>
<font COLOR="RED">*</td>
<td VALIGN="TOP" ALIGN="LEFT" WIDTH="80%">
<input class="input"  TYPE="TEXT" SIZE="12" MAXLENGTH="12" NAME="StartTime" value="<%=StartTime%>">
<%=errStartTime%>
</td>
</tr>

<tr>
<td VALIGN="TOP" ALIGN="LEFT"><b>结束日期</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<input class="input"  TYPE="TEXT" SIZE="12" MAXLENGTH="12" NAME="EndTime" value="<%=EndTime%>"> 如果不输,则和&quot;起始日期&quot;一样
</td>
</tr>

<tr>
<td VALIGN="TOP" ALIGN="LEFT"><b>安排标题</b>
<font COLOR="RED"><i>*</i></td>
<td VALIGN="TOP" ALIGN="LEFT"><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Title" value="<%=Title%>">
<%=errTitle %></td>
</tr>

<tr>
<td VALIGN="TOP" ALIGN="LEFT"><b>安排内容</b>
<font COLOR="RED">*</td>
<td VALIGN="TOP" ALIGN="LEFT">
<textarea COLS="48" ROWS="5" NAME="Body" WRAP="PHYSICAL"><%=body%>
</textarea>
<%=errBody %>
</td>
</tr>
<tr>
<td VALIGN="TOP" ALIGN="LEFT"><b>备注</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<textarea COLS=48 ROWS="3" NAME="Remark" WRAP="PHYSICAL"><%=Remark%>
</textarea></td>
</tr>

<tr>
<td VALIGN="TOP" ALIGN="LEFT"><b>相关链接</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="100" NAME="URL" <%if URL="" THEN%>
VALUE="http://"
<%ELSE%>
VALUE="<%=URL%>"
<%END IF%>>
</td>
</tr>

<tr bgcolor=#ffffff>
<td colspan=2 align=center>
<INPUT TYPE="submit" name="cmdUp" value="提  交" class=boldwhite>
<INPUT TYPE="reset" name="reset1" value="重  置" class=boldwhite>
</td>
</tr>
</table>
<INPUT TYPE="hidden" name="SelectDate" value="<%=SelectDate%>">
<BR>
</form>
<a href="plan.asp?selectdate=<%=selectdate%>"><img src="../images/return.gif" border=0></a>

</body>


</html>
<%
sub AddPlan()
	sql="SET NOCOUNT ON;"
	sql=sql&" INSERT INTO tblPlan(AddID, UserID, StartTime,EndTime,Title,Body,Remark,URL,class) VALUES(" & LoginID & _
		","& SelectId & _
		",'" & StartTime & _
		"','"& EndTime & _
		"','"& Title & _
		"','"& Body & _
		"','"& Remark & _
		"','"& URL & _
		"',"& nClass & _
		");"
	sql=sql & "Select @@IDENTITY AS NewID;"
	Set Rstmp=Conn.execute (sql)
	NewID = Rstmp("NewID")
end sub
sub AddPlanUser(PlanID,UserID,UserName)
	sql=sql&" INSERT INTO tblPlanUser(UserID, PlanID,UserName) VALUES(" & UserID & _
		","& PlanId & _
		",'"& UserName & _
		"');"
	Conn.execute (sql)
end sub
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
%>
<!--#include file="../inc/connclose.asp"-->
⌨️ 快捷键说明

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