📄 save.asp
字号:
<!--#include file="../includes/db.asp"-->
<%
call insureID()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>办公自动化系统</title>
</head>
<body>
<%
'根据不同要求进行不同操作
if (request("action")="Add") then
call saveAdd()
response.end
elseif (request("action")="Confirm") then
call saveConfirm()
response.end
elseif (request("action")="Submit") then
call saveSubmit()
response.end
else
call trigErr()
end if
'保存添加
sub saveAdd()
dim SUBMITED
dim SUBMIT_DATE
if request("Save")="保存/不提交" then
sql="INSERT INTO Clients_info (Client_date, Company_name, AGENT_NAME, Tel, EMAIL ," _
&"Web, SUBMITED, SUBMITE_DATE, CONFIRMED, CONFIRM_DATE, User_id) " _
&"VALUES ('"&date()&"', '"&request("COMPANY_NAME")&"', '"&request("AGENT_NAME") _
&"', '"&request("Tel")&"', '"&request("EMAIL")&"', '"&request("Web") _
&"', 0, GETDATE(),0,'', "&session("User_id")&" )"
end if
if request("Submit")="保存/提交" then
sql="INSERT INTO Clients_info (Client_date, Company_name, AGENT_NAME, Tel, EMAIL ," _
&"Web, SUBMITED, SUBMITE_DATE, CONFIRMED, CONFIRM_DATE, User_id) " _
&"VALUES ('"&date()&"', '"&request("COMPANY_NAME")&"', '"&request("AGENT_NAME") _
&"', '"&request("Tel")&"', '"&request("EMAIL")&"', '"&request("Web") _
&"', 1, GETDATE(),0,'', "&session("User_id")&" )"
else
call trigErr()
end if
call openDB()
conn.execute(sql)
response.write "添加成功! <<<a href=""Browse.asp"">返回</a>"
call closeDB()
end sub
'保存审核
sub saveConfirm()
sql="UPDATE Clients_info SET CONFIRMED = 1 " _
&"WHERE (CLIENT_ID = "&request("CLIENT_ID")&")"
call openDB()
conn.execute(sql)
response.write "该客户资料已通过审核! <a href=""Browse.asp""><<返回</a>"
call closeDB()
end sub
'保存提交
sub saveSubmit()
sql="UPDATE Clients_info SET SUBMITED = 1 " _
&"WHERE (CLIENT_ID = "&request("CLIENT_ID")&")"
call openDB()
conn.execute(sql)
response.write "该客户资料已提交! <a href=""Browse.asp""><<返回</a>"
call closeDB()
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -