📄 saveactivity.asp

📁 Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel

💻 ASP

字号:

<%

%>
<!--#include file='../conn.asp'-->
<!--#include file='../IsUser.asp'-->
<%
	T_ActivityID = request.form("ActivityID")
	T_ActivityTopic  = replace(request.form("T_ActivityTopic"),"'","''")
	T_ActivityClientID = request.form("T_ActivityClientID")
	T_ActivityTouchManID = request.form("T_ActivityTouchManID")
	T_ActivitySort = replace(request.form("T_ActivitySort"),"'","''")
	T_ActivityDate =replace(request.form("T_ActivityDate"),"'","''")
	T_ActivityOverDate  =replace(request.form("T_ActivityOverDate"),"'","''")
	T_ActivityPriority =replace(request.form("T_ActivityPriority"),"'","''")
	T_ActivityDetail =replace(request.form("T_ActivityDetail"),"'","''")
	T_ActivityCreatorID=request.form("T_ActivityCreatorID")
	T_CreatorSectionID=request.form("T_CreatorSectionID")
	Check_Open     =request.form("Check_Open")
	if Check_Open="Open" then		'判断是否公开
	OpenFlag = 1
	else
	OpenFlag = 0
	end if

	T_ActivityOperatorID=request.form("T_ActivityOperatorID")
	T_ActivityCreateDate=request.form("T_ActivityCreateDate")
	T_ActivityUpdateDate=Date
  %>
<%
if T_ActivityID <> 0 then
sql= "update Activity set ActivityTopic='"&T_ActivityTopic&"',ActivityClientID="&T_ActivityClientID&",ActivityTouchManID="&T_ActivityTouchManID&",ActivitySort='"&T_ActivitySort&"',ActivityDate='"&T_ActivityDate&"',ActivityOverDate='"&T_ActivityOverDate&"',ActivityPriority='"&T_ActivityPriority&"',ActivityDetail='"&T_ActivityDetail&"',ActivityCreatorID="&T_ActivityCreatorID&",ActivityCreateDate='"&T_ActivityCreateDate&"',ActivityOpenFlag="&OpenFlag&",ActivityRevisorID="&T_ActivityOperatorID&",ActivityReviseDate='"&T_ActivityUpdateDate&"' where ActivityID= '" & T_ActivityID & "'"
else
sql="insert into Activity (ActivityTopic,ActivityClientID,ActivityTouchManID,ActivitySort,ActivityDate,ActivityOverDate,ActivityPriority,ActivityDetail,ActivityCreatorID,ActivityCreateDate,ActivityOpenFlag,ActivityRevisorID,ActivityReviseDate)  values  ('"&T_ActivityTopic&"',"&T_ActivityClientID&","&T_ActivityTouchManID&",'"&T_ActivitySort&"','"&T_ActivityDate&"','"&T_ActivityOverDate&"','"&T_ActivityPriority&"','"&T_ActivityDetail&"',"&T_ActivityCreatorID&",'"&T_ActivityCreateDate&"',"&OpenFlag&","&T_ActivityOperatorID&",'"&T_ActivityUpdateDate&"')"
end if
conn.execute( sql )    '执行数据库更新
if T_ActivityID = 0 then
	set rs=conn.execute("select top 1 ActivityID from Activity where ActivityCreatorID="&User_ID&" order by ActivityID desc")
T_ActivityID = rs("ActivityID")
rs.close
end if
%>
<html>
<head>
<title>添加新活动</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<LINK 
href="../css.css" type=text/css rel=stylesheet>
</head>

<body>

<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="100%" height="197" align="center">
<table border="0" cellspacing="0" cellpadding="0" height="85" bgcolor="#99ccff" width="100%">
<tr>
<td align="center">
<a href="Activity.asp?Activityid=<%=T_ActivityID%>" class=linkblue2>保存活动信息成功！！单击返回</a>
<%
	response.write "<script>"
	response.write "setTimeout("&Chr(34)&"location.replace('Activity.asp?ActivityID="&T_ActivityID&"')"&Chr(34)&",2000)"
	response.write "</script>"
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -