📄 editfinish.asp

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

LoginID=trim(session("LoginID"))
if LoginID="" then response.end
UserName=GetTableValue ("tblUser","Name","ID",LoginID)

set rs=server.createobject("adodb.recordset")
sql="select * from tblPlan where ID="& Planid
rs.open sql,Conn
if not rs.eof then
	sStartTime=trim(rs("StartTime"))
	sEndTime=trim(rs("EndTime"))
	sTitle=trim(rs("Title"))
	sBody=trim(rs("Body"))
	sRemark=trim(rs("Remark"))
	sURL=trim(rs("URL"))
	sFinish=trim(rs("finish"))
	AddID=trim(rs("AddID"))
	UserID=trim(rs("UserID"))

end if
rs.close
set rs=nothing

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")),"'","''")
	Finish=trim(request("Finish"))
	if startTime="" then StartTime=sStartTime
	if entTime="" then endTime=StartTime
	if Finish="" or not isnumeric(Finish) then errFinish="<img src='../images/error.gif' border=0 height=15 alt='必须输入0-100的整数'>"
	if Finish>100 then Finish=100
	if Finish<0 then Finish=0

	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) and isnumeric(Finish) then
		EditPlan(PlanID)
		if trim(AddID)<>trim(UserID) and Finish=100 then
			FromID=LoginID
			FromName=UserName
			ToID=AddID
			ToName=GetTableValue ("tblUser","Name","ID",AddID)
			Subject=FromName&"的任务完成通知"
			Body=ToName&"您好！"&chr(13)&"这是系统的自动邮件通知，您给"&FromName&"安排的 "&sStartTime&"——"&sEndTime&" 的任务： "& sTitle&" 已经完成！"&chr(13)&chr(13)&chr(13)&chr(13)& "                                    系统自动邮件通知！"&Now()
			SendMail FromID,FromName,ToID,ToName,Subject,Body,AttachFile
		end if
		response.write "<h3><font FACE=Verdana>Event Updated!（任务进度已经成功修改！）</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 bgcolor=#FFFFFF>
<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" readonly value="<%=sStartTime%>">
<%=errStartTime%>
</td>
</tr>

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

<tr bgcolor=#FFFFFF>
<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" readonly NAME="Title" value="<%=sTitle%>">
<%=errTitle %></td>
</tr>

<tr bgcolor=#FFFFFF>
<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" readonly><%=sbody%>
</textarea>
<%=errBody %>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>备注</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<textarea COLS=48 ROWS="3" NAME="Remark" WRAP="PHYSICAL" readonly><%=sRemark%>
</textarea></td>
</tr>

<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>相关链接</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="100" NAME="URL" readonly <%if URL="" THEN%>
VALUE="http://"
<%ELSE%>
VALUE="<%=URL%>"
<%END IF%>>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>完成进度</b>
<font COLOR="RED">*
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<input class="input"  TYPE="TEXT" SIZE="3" MAXLENGTH="3" NAME="Finish" VALUE="<%=sFinish%>">%
<%=errFinish %>
</td>
</tr>

<tr bgcolor=#ffffff>
<td colspan=2 align=center>
<INPUT TYPE="submit" name="cmdUp" value="修  改" class=font9boldwhite onclick="return CheckData();">
<INPUT TYPE="reset" name="reset1" value="重  置" class=font9boldwhite>
</td>
</tr>
</table>
<INPUT TYPE="hidden" name="planid" value="<%=planid%>">
<INPUT TYPE="hidden" name="SelectDate" value="<%=SelectDate%>">
</form>
<BR>
<a href="plan.asp?selectdate=<%=selectdate%>"><img src="../images/return.gif" border=0></a>

</body>
</html>
<script language=javascript>
function CheckData()
{
	if((isNaN(jtrim(document.eventfrm.Finish.value))) || (jtrim(document.eventfrm.Finish.value))>100)
	{
		alert("请输入正确的进度。\n必须是0-100的数字.")
		document.eventfrm.Finish.focus();
		return false;
	}
	
	return true;
	
}
</script>
<script language=javascript src="../inc/jtrim.js"></script>
<%
sub EditPlan(PlanID)
	sql=" Update tblPlan set StartTime='"& StartTime &"',EndTime='"& EndTime &"',Title='"& Title &"',Body='"& Body &"',Remark='"& Remark &"',URL='"& URL&"',Finish="& Finish &" where ID="& PlanID
	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


Sub SendMail(FromID,FromName,ToID,ToName,Subject,Body,AttachFile)
	sql="INSERT INTO tblMailIn(FromID, ToID, FromName, ToName, Subject, Body, AttachFile) VALUES(" &  FromID & _
		","& ToId & _
		",'" & FromName & _
		"','"& ToName & _
		"','"& Subject & _
		"','"& Body & _
		"','"& AttachFile & _
		"')"		
		'response.write sql&"<BR>"
		Conn.execute (sql)		
End Sub
%>
<!--#include file="../inc/connclose.asp"-->
⌨️ 快捷键说明

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