saveclient.asp

Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel

<%

%>
<!--#include file='../conn.asp'-->
<!--#include file='../IsUser.asp'-->
<%
	T_ClientID = request.form("T_ClientNameID")
	T_ClientName  = replace(request.form("T_ClientName"),"'","''")
	T_ClientEmail =replace(request.form("T_ClientEmail"),"'","''")
	T_ClientNation=replace(request.form("T_ClientNation"),"'","''")
	T_ClientPro   =replace(request.form("T_ClientPro"),"'","''")
	T_ClientHpage =replace(request.form("T_ClientHpage"),"'","''")
	T_ClientNcode =replace(request.form("T_ClientNcode"),"'","''")
	T_ClientCity  =replace(request.form("T_ClientCity"),"'","''")
	T_ClientAcode =replace(request.form("T_ClientAcode"),"'","''")
	T_ClientPcode =replace(request.form("T_ClientPcode"),"'","''")
	T_ClientIncome=Clng(request.form("T_ClientIncome"))
	T_ClientEmpNum=Clng(request.form("T_ClientEmpNum"))
	T_ClientTel   =replace(request.form("T_ClientTel"),"'","''")
	T_ClientFax   =replace(request.form("T_ClientFax"),"'","''")
	T_ClientAdd   =replace(request.form("T_ClientAdd"),"'","''")
	T_ClientTaxName=replace(request.form("T_ClientTaxName"),"'","''")
	T_ClientTaxNum =replace(request.form("T_ClientTaxNum"),"'","''")
	T_ClientTaxANum=replace(request.form("T_ClientTaxANum"),"'","''")
    T_ClientTaxABank=replace(request.form("T_ClientTaxABank"),"'","''")
	T_ClientTaxAAdd=replace(request.form("T_ClientTaxAAdd"),"'","''")
	T_ClientTaxATel=replace(request.form("T_ClientTaxATel"),"'","''")
	T_ClientABank  =replace(request.form("T_ClientABank"),"'","''")
	T_ClientANum   =replace(request.form("T_ClientANum"),"'","''")
	T_ClientCreatorID=request.form("T_ClientCreatorID")
	T_ClientSectionID=request.form("T_ClientSectionID")
	Check_Open     =request.form("Check_Open")
	if Check_Open="Open" then		'判断是否公开
	OpenFlag = 1
	else
	OpenFlag = 0
	end if
	T_ClientOperatorID=request.form("T_ClientOperatorID")
	T_ClientCreateDate=request.form("T_ClientCreateDate")
	T_ClientUpdateDate=Date
  %>
<%
if T_ClientID <> 0 then
sql= "update client set ClientName='"&T_ClientName&"',ClientNation='"&T_ClientNation&"',ClientNationCode='"&T_ClientNcode&"',ClientProvince='"&T_ClientPro&"',ClientCity='"&T_ClientCity&"',ClientAreaCode='"&T_ClientAcode&"',ClientMailCode='"&T_ClientPcode&"',ClientAddress='"&T_ClientAdd&"',ClientPhoneNum='"&T_ClientTel&"',ClientFaxNum='"&T_ClientFax&"',ClientEmail='"&T_ClientEmail&"',ClientHomepage='"&T_ClientHpage&"',ClientYearIncome="&T_ClientIncome&",ClientEmpNum="&T_ClientEmpNum&",ClientAccountBank='"&T_ClientABank&"',ClientAccountNum='"&T_ClientANum&"',ClientTaxName='"&T_ClientTaxName&"',ClientTaxCode='"&T_ClientTaxNum&"',ClientTaxBank='"&T_ClientTaxABank&"',ClientTaxAccNum='"&T_ClientTaxANum&"',ClientTaxAddress='"&T_ClientTaxAAdd&"',ClientTaxPhoneNum='"&T_ClientTaxATel&"',ClientCreatorID="&T_ClientCreatorID&",ClientCreateDate='"&T_ClientCreateDate&"',ClientOpenFlag="&OpenFlag&",ClientRevisorID="&T_ClientOperatorID&",ClientReviseDate='"&T_ClientUpdateDate&"' where ClientID= '" & T_ClientID & "'"	
'更新数据库数据
else
sql="insert into Client (ClientName,ClientNation,ClientNationCode,ClientProvince,ClientCity,ClientAreaCode,ClientMailCode,ClientAddress,ClientPhoneNum,ClientFaxNum,ClientEmail,ClientHomepage,ClientYearIncome,ClientEmpNum,ClientAccountBank,ClientAccountNum,ClientTaxName,ClientTaxCode,ClientTaxBank,ClientTaxAccNum,ClientTaxAddress,ClientTaxPhoneNum,ClientCreatorID,ClientCreateDate,ClientOpenFlag,ClientRevisorID,ClientReviseDate)  values  ('"&T_ClientName&"','"&T_ClientNation&"','"&T_ClientNcode&"','"&T_ClientPro&"','"&T_ClientCity&"','"&T_ClientAcode&"','"&T_ClientPcode&"','"&T_ClientAdd&"','"&T_ClientTel&"','"&T_ClientFax&"','"&T_ClientEmail&"','"&T_ClientHpage&"',"&T_ClientIncome&","&T_ClientEmpNum&",'"&T_ClientABank&"','"&T_ClientANum&"','"&T_ClientTaxName&"','"&T_ClientTaxNum&"','"&T_ClientTaxABank&"','"&T_ClientTaxANum&"','"&T_ClientTaxAAdd&"','"&T_ClientTaxATel&"',"&T_ClientCreatorID&",'"&T_ClientCreateDate&"',"&OpenFlag&","&T_ClientOperatorID&",'"&T_ClientUpdateDate&"' )"
end if
'添加数据到数据库
conn.execute( sql )    '执行数据库更新
if T_ClientID = 0 then
	set rs=conn.execute("select top 1 ClientID from Client where ClientCreatorID="&User_ID&" order by ClientID desc")
	T_ClientID = rs("ClientID")
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="client.asp?clientid=<%=T_ClientID%>" class=linkblue2>保存客户信息成功！！单击返回</a>
<%
	response.write "<script>"
	response.write "setTimeout("&Chr(34)&"location.replace('client.asp?ClientID="&T_ClientID&"')"&Chr(34)&",2000)"
	response.write "</script>"
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>

</body>
</html>