📄 saveacs.asp
字号:
<!--#include file="../includes/keepHouse.asp"-->
<%
call insureID()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebOffice</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 (ADD_DATE, COMPANY_NAME, AGENT_NAME, PHONE_NUMBER, EMAIL ," _
&"WEB_SITE, SUBMITED, SUBMITE_DATE, CONFIRMED, CONFIRM_DATE, PERSONNEL_ID) " _
&"VALUES ('"&date()&"', '"&request("COMPANY_NAME")&"', '"&request("AGENT_NAME") _
&"', '"&request("PHONE_NUMBER")&"', '"&request("EMAIL")&"', '"&request("WEB_SITE") _
&"', 0, GETDATE(),0,'', "&session("PERSONNEL_ID")&" )"
end if
if request("Submit")="保存/提交" then
sql="INSERT INTO Clients (ADD_DATE, COMPANY_NAME, AGENT_NAME, PHONE_NUMBER, EMAIL ," _
&"WEB_SITE, SUBMITED, SUBMITE_DATE, CONFIRMED, CONFIRM_DATE, PERSONNEL_ID) " _
&"VALUES ('"&date()&"', '"&request("COMPANY_NAME")&"', '"&request("AGENT_NAME") _
&"', '"&request("PHONE_NUMBER")&"', '"&request("EMAIL")&"', '"&request("WEB_SITE") _
&"', 1, GETDATE(),0,'', "&session("PERSONNEL_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 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 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 + -