editact_ok.asp

来自「客户管理crm xitong ,希望能给你带来帮助」· ASP 代码 · 共 42 行

<!--#include file="../function/connect.asp"-->
<!--#include file="../function/function.asp"-->
<%
	if request("submit")<>"" then
		close=request("close")
		act_title=getstring(request("act_title"))
		act_type=request("act_type")
		act_client=request("act_client")
		act_contact=request("act_contact")
		act_chance=request("act_chance")
		if act_chance="" then
			act_chance="0"
		end if
		act_priority=request("act_priority")
		act_begin_date=request("act_begin_date") &" "& request("dayhour")
		if request("act_end_date") & "" <> "" then
			act_end_date=request("act_end_date") &" "& request("dayhourend")
		end if
		act_notice=request("act_notice")
		act_desc=getstring(request("act_desc"))
		IsPublic=getstring(request("IsPublic"))
		strsql="update acts set "
		strsql=strsql & " act_title='"& act_title & "',"
		strsql=strsql & " act_type='" & act_type & "',"
		strsql=strsql & " act_client='" & act_client & "',"
		strsql=strsql & " act_contact='" & act_contact & "',"
		strsql=strsql & " act_chance='" & act_chance & "',"
		strsql=strsql & " act_priority='" & act_priority & "',"
		strsql=strsql & " act_begin_date='" & act_begin_date & "',"
		if act_end_date<>"" then
		strsql=strsql & " act_end_date='" & act_end_date & "',"
		else
		strsql=strsql & " act_end_date=null,"
		end if
		strsql=strsql & " act_notice='" & act_notice & "',"
		strsql=strsql & " IsPublic='" & IsPublic & "',"
		strsql=strsql & " act_desc='" & act_desc & "' where act_id=" & request("act_id")
		objconn.execute strsql
		response.write "<script>top.document.location.reload();</script>"
		response.end
	end if
%>