📄 addplan.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
LoginID=trim(session("LoginID"))
if LoginID="" then response.end
UserName=GetTableValue ("tblUser","Name","ID",LoginID)
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")),"'","''")
dengji=trim(request("dengji"))
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 (cdate(startTime)<=cdate(endTime)) then
AddPlan()
AddPlanUser NewID,LoginID,UserName
response.write "<h3><font FACE=Verdana>任务已经添加成功！</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>
<script src="../inc/Popup.js"></script>
<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" value="<%=StartTime%>">
<%=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" value="<%=EndTime%>">
<a href=# title="选择日期" onClick="fPopUpDlg('../inc/calendar.htm', document.eventfrm.EndTime, 'winpop', 234, 261);return false"><img src="../images/datetime.gif" border=0></a>如果不输,则和"起始日期"一样
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>重要程度</b></td>
<td VALIGN="TOP" ALIGN="LEFT">
<select name="dengji">
<option value=0>未指定
<option value=1>低
<option value=2>中
<option value=3>高
</select>
</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" NAME="Title" value="<%=Title%>">
<%=errTitle %></td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>任务内容</b>
<font COLOR="RED">*</td>
<td VALIGN="TOP" ALIGN="LEFT">
<textarea COLS="43" ROWS="5" NAME="Body" WRAP="PHYSICAL"><%=body%>
</textarea>
<%=errBody %>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td VALIGN="TOP" ALIGN="LEFT"><b>备注</b>
</td>
<td VALIGN="TOP" ALIGN="LEFT">
<textarea COLS=43 ROWS="3" NAME="Remark" WRAP="PHYSICAL"><%=Remark%>
</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" <%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=font9boldwhite>
<INPUT TYPE="reset" name="reset1" value="重 置" class=font9boldwhite>
</td>
</tr>
</table>
<BR>
<INPUT TYPE="hidden" name="SelectDate" value="<%=SelectDate%>">
</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,dengji) VALUES(" & LoginID & _
","& LoginId & _
",'" & StartTime & _
"','"& EndTime & _
"','"& Title & _
"','"& Body & _
"','"& Remark & _
"','"& URL & _
"',"& nClass & _
","& dengji & _
");"
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 + -