📄 addact_ok.asp

📁 本系统是基于B/S结构的客户关系管理系统. 测试管理员和密码是super 用户名super 密码super 前台和后台是一次性同时登陆的系统工能介绍: 客户管理---------- 添

💻 ASP

字号:

<!--#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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -