addact_ok.asp
来自「客户管理crm xitong ,希望能给你带来帮助」· ASP 代码 · 共 55 行
ASP
55 行
<!--#include file="../function/connect.asp"-->
<!--#include file="../function/function.asp"-->
<html>
<head>
<title>国家</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
close=request("close")
if request("submit")<>"" then
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")
act_end_date=request("act_end_date") &" "& request("dayhourend")
act_notice=request("act_notice")
IsPublic=getstring(request("IsPublic"))
act_desc=getstring(request("act_desc"))
strsql="insert into acts(act_title,act_type,act_client,act_contact,act_chance,act_priority,act_begin_date,act_end_date,act_notice,IsPublic,act_owner,act_desc) values('"
strsql=strsql & act_title & "','"
strsql=strsql & act_type & "','"
strsql=strsql & act_client & "','"
strsql=strsql & act_contact & "','"
strsql=strsql & act_chance & "','"
strsql=strsql & act_priority & "','"
if request("act_end_date") & "" <>"" then
strsql=strsql & act_begin_date & "','"
strsql=strsql & act_end_date & "','"
else
strsql=strsql & act_begin_date & "',"
strsql=strsql & "null" & ",'"
end if
strsql=strsql & act_notice & "','"
strsql=strsql & IsPublic & "','"
strsql=strsql & session("loginuser") & "','"
strsql=strsql & act_desc & "')"
objconn.execute strsql
strsql="select @@identity as act_id"
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
act_id=objrs.fields("act_id")
response.write "<script>top.document.location.href='act_edit.asp?act_id=" & act_id & "'</script>"
response.end
end if
%>
</head>
<body>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?