sk_crm_cust_editsave.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

%>

 <%     
 
 '-------------------------------------------------------- 
    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")
    SK_mclass=session("dd")
    fax=Request.Form ("fax")
    cust_s=Request.Form ("cust_s")
    
    
     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


	dim rs,sql                                   
	set rs=server.createobject("adodb.recordset")                                                     
	sql="select * from SK_cust_user where id="&request("id")&""
	rs.open sql,conn,1,3     
	

                                                     
 '--------------------------------------------------------  
    rs("name")=name
    rs("sex")=sex
    rs("city")=city
    rs("zhiwu")=zhiwu
    rs("mobile")=mobile
    rs("homephone")=homephone
    rs("email")=email
    rs("msn")=msn
    rs("qq")=qq
    rs("skype")=skype
    rs("zy")=zy
    rs("fax")=fax
    rs("content")=content
    rs("oicq")=oicq
    rs("cust_s")=cust_s
    rs("vest_m")=SK_mclass
 '--------------------------------------------------------
    
    
    
    
        rs.Update
      
    rs.Close 
    set rs=nothing
 %>
<%
Response.Write("<script>alert(""恭喜你,操作成功！"");history.back();</script>")
response.end
%>