sk_crm_cust_save.asp

为你节约成本,让你的企业在信息时代助上一臂之力!!! 真正做到无纸办公,全自动化信息办公,不受地点的限制,只要你能上网就能随时随地掌握公司动向.

<!--#include file="conn.asp" -->
<%
if session("name")="" or session("dd")="" then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
end if
if session("quanxian")="1"  then
Response.Write("<script>alert(""对不起,你的权限不够！"");history.back();</script>")
response.end
end if
%>

 <%

 dim time,city
 '-------------------------------------------------------- 
    name=Request.Form ("name")
    sex=Request.Form ("sex")
    zhiwu=Request.Form ("zhiwu")
    company=Request.Form ("company")
    mobile=Request.Form ("mobile")
    homephone=Request.Form ("homephone")
    email=Request.Form ("email")
    oicq=Request.Form ("oicq")
     city=Request.Form ("city")
    msn=Request.Form ("msn")
    qq=Request.Form ("qq")
    skype=Request.Form ("skype")
    zy=Request.Form ("zy")
    content=Request.Form ("content")
    time=Request.Form ("time")
    SK_mclass=session("dd")
     fax=Request.Form ("fax")
     cust_s=Request.Form ("cust_s")
     kongzhi=session("name")
 '-------------------------------------------------------- 
     dim temprs,tempsql       
                                 
	set temprs=server.createobject("adodb.recordset")
	tempsql="select com_phone from SK_customer where id="&cust_s&" and vest_m="&session("dd")
	temprs.open tempsql,conn,1,3     
	
             com_phone=temprs("com_phone")                                            
    set temprs=nothing
   
   %>


   <% 
 '--------------------------------------------------------                                  
	set rs=server.createobject("adodb.recordset")                                                     
	sql="select * from SK_cust_user where id is null "                                                      
	rs.open sql,conn,1,3                                                          
    rs.AddNew 
 '--------------------------------------------------------  
    rs("name")=name
    rs("sex")=sex
    rs("zhiwu")=zhiwu
    rs("city")=city
    rs("mobile")=mobile
    rs("homephone")=homephone
    rs("email")=email
    rs("msn")=msn
    rs("zy")=zy
    rs("fax")=fax
    rs("content")=content
    rs("time")=time
     rs("oicq")=oicq
	 rs("qq")=qq
	  rs("skype")=skype
    rs("cust_s")=cust_s
    rs("vest_m")=SK_mclass
     rs("kongzhi")= kongzhi
 '--------------------------------------------------------   
    rs.Update 
    rs.Close 
    set rs=nothing
    
 %>

<%
Response.Write("<script>alert(""恭喜你,修改成功！"");history.back();</script>")
response.Redirect "SK_CRM_client_list.asp?SK_mclass=78&s=1"
response.end
%>