⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 savetouchman.asp

📁 Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel
💻 ASP
字号:
<%

%>
<!--#include file='../conn.asp'-->
<!--#include file='../IsUser.asp'-->
<%
	T_TouchManID = request.form("T_TouchManID")
	T_TouchManName  = replace(request.form("T_TouchManName"),"'","''")
	T_TouchManEmail =replace(request.form("T_TouchmanEmail"),"'","''")
	T_TouchManClient=request.form("T_TouchManClient")
	T_MainTouchMan   =request.form("T_MainTouchman")
	T_TouchManHobby = replace(request.form("T_TouchManHobby"),"'","''")
	T_TouchManSection =replace(request.form("T_TouchManSection"),"'","''")
	T_TouchManCity  =replace(request.form("T_TouchManCity"),"'","''")
	T_TouchManDuty =replace(request.form("T_TouchManDuty"),"'","''")
	T_TouchManMPhone =replace(request.form("T_TouchManMPhone"),"'","''")
	T_TouchManOPhone =request.form("T_TouchManOPhone")
	T_TouchManHPhone=request.form("T_TouchManHPhone")
	T_TouchManFax   =replace(request.form("T_TouchManFax"),"'","''")
	T_TouchManAddress   =replace(request.form("T_TouchManAddress"),"'","''")
	T_TouchManEspDay=replace(request.form("T_TouchManEspDay"),"'","''")
	T_TouchManOthers =replace(request.form("T_TouchManOthers"),"'","''")
	T_TouchManCreatorID=request.form("T_TouchManCreatorID")
	T_CreatorSectionID=request.form("T_CreatorSectionID")
	Check_Open     =request.form("Check_Open")
	if Check_Open="Open" then		'判断是否公开
	OpenFlag = 1
	else
	OpenFlag = 0
	end if

	if T_MainTouchMan = "1" then
		TouchManMain = 1
	else
		TouchManMain = 0
	end if

	T_TouchManOperatorID=request.form("T_TouchManOperatorID")
	T_TouchManCreateDate=request.form("T_TouchManCreateDate")
	T_TouchManUpdateDate=Date
  %>
<%
if T_TouchManID<>0 then
sql= "update TouchMan set TouchManName='"&T_TouchManName&"',TouchManClientID="&T_TouchManClient&",TouchManSection='"&T_TouchManSection&"',TouchManDuty='"&T_TouchManDuty&"',TouchManMPhone='"&T_TouchManMPhone&"',TouchManOPhone='"&T_TouchManOPhone&"',TouchManHPhone='"&T_TouchManHPhone&"',TouchManFax='"&T_TouchManFax&"',TouchManEmail='"&T_TouchManEmail&"',TouchManHobby='"&T_TouchManHobby&"',TouchManEspDay='"&T_TouchManEspDay&"',TouchManAddress='"&T_TouchManAddress&"',TouchManOthers='"&T_TouchManOthers&"',TouchManCreatorID="&T_TouchManCreatorID&",TouchManCreateDate='"&T_TouchManCreateDate&"',TouchManOpenFlag="&OpenFlag&",TouchManRevisorID="&T_TouchManOperatorID&",TouchManReviseDate='"&T_TouchManUpdateDate&"',TouchManMain="&TouchManMain&" where TouchManID= '" & T_TouchManID & "'"
else
sql="insert into TouchMan (TouchManName,TouchManClientID,TouchManSection,TouchManDuty,TouchManMPhone,TouchManOPhone,TouchManHPhone,TouchManFax,TouchManEmail,TouchManHobby,TouchManEspDay,TouchManAddress,TouchManOthers,TouchManCreatorID,TouchManCreateDate,TouchManOpenFlag,TouchManRevisorID,TouchManReviseDate,TouchManMain)  values  ('"&T_TouchManName&"',"&T_TouchManClient&",'"&T_TouchManSection&"','"&T_TouchManDuty&"','"&T_TouchManMPhone&"','"&T_TouchManOPhone&"','"&T_TouchManHPhone&"','"&T_TouchManFax&"','"&T_TouchManEmail&"','"&T_TouchManHobby&"','"&T_TouchManEspDay&"','"&T_TouchManAddress&"','"&T_TouchManOthers&"',"&T_TouchManCreatorID&",'"&T_TouchManCreateDate&"',"&OpenFlag&","&T_TouchManOperatorID&",'"&T_TouchManUpdateDate&"',"&TouchManMain&")"
end if
conn.execute( sql )    '执行数据库更新
if T_TouchManID = 0 then
set rs=conn.execute("select top 1 TouchManID from TouchMan where TouchManCreatorID="&User_ID&" order by TouchmanID desc")
T_TouchManID = rs("TouchManID")
rs.close
end if
%>
<html>
<head>
<title>保存联系人信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<LINK 
href="../css.css" type=text/css rel=stylesheet>
</head>

<body>

<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="100%" height="197" align="center">
<table border="0" cellspacing="0" cellpadding="0" height="85" bgcolor="#99ccff" width="100%">
<tr>
<td align="center">
<a href="TouchMan.asp?TouchManid=<%=T_TouchManID%>" class=linkblue2>保存联系人信息成功!!单击返回</a>
<%
	response.write "<script>"
	response.write "setTimeout("&Chr(34)&"location.replace('TouchMan.asp?TouchManID="&T_TouchManID&"')"&Chr(34)&",2000)"
	response.write "</script>"
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -