sk_crm_client_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 sclass_folder,SK_sclass,temprs,tempsql
  SK_sclass=Request.Form ("SK_sclass")
  '--------------------------------------------------------                                  
	set temprs=server.createobject("adodb.recordset")                                                     
	tempsql="select * from SK_sclass where sclass_id = "&SK_sclass&" "                                                     
	temprs.open tempsql,conn,1,3                                                          
 '--------------------------------------------------------  

 sclass_folder=temprs("sclass_folder")
 temprs.Close 

%>
 <%
 dim time
 '-------------------------------------------------------- 
    com_name=Request.Form ("com_name")
	com_ename=Request.Form ("com_ename")
    com_diqu=Request.Form ("com_diqu")
    com_phone=Request.Form ("com_phone")
    com_fax=Request.Form ("com_fax")
    com_email=Request.Form ("com_email")
    com_address=Request.Form ("com_address")
    com_address2=Request.Form ("com_address2")
    com_address3=Request.Form ("com_address3")
    com_zip=Request.Form ("com_zip")
    com_fuzeren=Request.Form ("com_fuzeren")
    com_job=Request.Form ("com_job")
    com_hangye=Request.Form ("com_hangye")
    com_product=Request.Form ("com_product")
    com_guimo=Request.Form ("com_guimo")
    com_web=Request.Form ("com_web")
	com_mobile=Request.Form ("com_mobile")
	com_msn=Request.Form ("com_msn")
	com_icq=Request.Form ("com_icq")
	com_skype=Request.Form ("com_skype")
	com_qq=Request.Form ("com_qq")
    zy=Request.Form ("zy")
    content=Request.Form ("content")
    time=Request.Form ("time")
    SK_mclass=Request.Form ("SK_mclass")
    SK_sclass=Request.Form ("SK_sclass")
    com_kongzhi=session("name")
   %>
   

   <% 
 '--------------------------------------------------------                                  
	set rs=server.createobject("adodb.recordset")                                                     
	sql="select * from SK_customer where id is null "                                                      
	rs.open sql,conn,1,3                                                          
    rs.AddNew 
 '--------------------------------------------------------  
    rs("com_name")=com_name
	rs("com_ename")=com_ename
    rs("com_diqu")=com_diqu
    rs("com_phone")=com_phone
    rs("com_fax")=com_fax
    rs("com_email")=com_email
    rs("com_address")=com_address
    rs("com_address2")=com_address2
    rs("com_address3")=com_address3
    rs("com_zip")=com_zip
    rs("com_fuzeren")=com_fuzeren
    rs("com_job")=com_job
    rs("com_hangye")=com_hangye
    rs("com_product")=com_product
    rs("com_guimo")=com_guimo
    rs("com_web")=com_web
    rs("zy")=zy
    rs("com_kongzhi") = com_kongzhi
    rs("content")=content
	rs("com_mobile")=com_mobile
	rs("com_msn")=com_msn
	rs("com_icq")=com_icq
	rs("com_skype")=com_skype
	rs("com_qq")=com_qq
	rs("time")=time
    rs("vest_s")=SK_sclass
    rs("vest_m")=SK_mclass
 '--------------------------------------------------------   
    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
%>