d_khsubfrm.asp

一个很好的在线购物系统

            rs.Fields("clientname")=m_name                        
            rs.Fields("departcode")=m_BelongDepart                        
            rs.fields("taxid")=m_taxid                        
            rs.Fields("Address")=M_Address                        
            rs.Fields("Telophone")=m_Telophone                        
            rs.Fields("fax")=m_fax                        
            rs.Fields("E_mail")=mail                        
            rs.Fields("NetAddress")=m_NetAddress                        
            rs.Fields("Manager")=m_Manager                        
			rs.Fields("type")=m_type                        
			'rs.Fields("level")=m_level                        
			rs.Fields("Area")=m_Area                        
			rs.Fields("Occupation")=m_Occupation                        
			rs.Fields("IncomePerYear")=m_IncomePerYear                        
			rs.Fields("AssetScale")=m_AssetScale                        
			rs.Fields("BenefitStatus")=m_BenefitStatus                        
			rs.Fields("InformationSource")=m_InformationSource                        
			rs.Fields("stuffnum")=m_Careeror                        
			rs.Fields("remark")=m_remark   
			rs.fields("sort")=khlb
				rs.fields("licnum")=zzbh
				rs.fields("shdd")=shdd
  				rs.fields("qysx")=qysx
  				rs.fields("jyxm")=jyxm

			rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
			if request("m_Yes")="0" then                      
  			   rs.fields("tag")="kh"                        
			else                 
			   rs.fields("tag")="hbdealer"                        
		    end if                 
                        
	        rs.Update                           
         end if%>                         
                                 
         <form name=form4>                           
           <%if request("tag")=11 then%>                            
               <%par_id=request("m_id1")%>                        
           <%else%>                        
               <%par_id=request("m_id")%>                        
           <%end if%>                        
           <input type="hidden" name="par_id" value=<%=par_id%>>                        
           <input type="hidden" name="page1" value=<%=request("page1")%>>                        
           <input type="hidden" name="par_name" value=<%=request("par_name")%>>                        
           <input type="hidden" name="par_type" value=<%=request("par_type")%>>                        
           <input type="hidden" name="par_level" value=<%=request("par_level")%>>                        
                                 
         </form>         
                
       
       <script language="vbscript">                        
          window.location="D_khmainfrm.asp?page1="&document.form4.page1.value&"&par_name="&document.form4.par_name.value&"&par_type="&document.form4.par_type.value&"&par_level="&document.form4.par_level.value&""                        
           </script>                        
      <%'Response.Redirect "D_khmainfrm.asp?page1="&Request("page1")&"&par_name="&trim(Request("m_name"))&"&par_type="&trim(Request("m_type"))&"&par_level="&trim(Request("m_level"))&""%>                        
                              
                         
      <%Response.End %>                        
<%end if%>                              
                        
<script language="vbscript">                        
  sub NewKeHu()                        
      window.location="D_khsubFrm.asp?tag2="&document.form2.tag2.value&"&par_name="&document.form2.par_name.value&"&par_level="&document.form2.par_level.value&"&par_type="&document.form2.par_type.value&"&page1="&document.form2.page1.value&""                        
  end sub                        
</script>                        
<script language="vbscript">                        
  sub Editkehu()                        
      window.location="D_khsubFrm.asp?tag3=Edit&par_id="&document.form2.m_id1.value&"&par_name="&document.form2.par_name.value&"&par_level="&document.form2.par_level.value&"&par_type="&document.form2.par_type.value&"&page1="&document.form2.page1.value&""                        
  end sub                        
</script>                        
                        
<script language = "JavaScript">                        
var count1;                                //*********************88选择业务员                        
var count2;                        
count2=0;                        
Stuffarray = new Array();                        
                        
<%count1=0                        
set rs=server.CreateObject("adodb.recordset")                        
  rs.open "SELECT * FROM A_StuffInfo where SaleFlag='1'",pubconn,1,3                        
  if rs.recordcount> 0 then                        
     do while not rs.eof %>                        
        Stuffarray [<%=count1%>] = new Array("<%= trim(rs("DepartCode"))%>","<%= trim(rs("StuffNum"))%>","<%= trim(rs("Name"))%>");                        
       <%count1 = count1 + 1                        
        rs.movenext                        
     loop                        
  end if                        
  rs.close                        
  set rs=nothing%>                        
  count2=<%=count1%>;                        
 function changelocation()                        
  {                        
    document.form1.m_Careeror.length = 0;                        
    var locationid=locationid;                        
    var i;                        
    document.form1.m_Careeror.options[0] = new Option('请选择','');                        
    for (i=0;i < count2; i++)                        
     {                        
       if (Stuffarray [i][0] == document.form1.m_BelongDepart.value)                        
         {                        
            document.form1.m_Careeror.options[document.form1.m_Careeror.length] = new Option(Stuffarray [i][2], Stuffarray [i][1]);                        
                        
         }                        
     }                        
    }                        
    function changelocation2()                        
  {                        
    document.form2.m_Careeror.length = 0;                        
    var i;                        
    document.form2.m_Careeror.options[0] = new Option('请选择','');                        
    for (i=0;i < count2; i++)                        
     {                        
       if (Stuffarray [i][0] == document.form2.m_BelongDepart.value)                        
         {                        
            document.form2.m_Careeror.options[document.form2.m_Careeror.length] = new Option(Stuffarray [i][2], Stuffarray [i][1]);                        
                        
         }                        
     }                        
    }                        
                        
</script>                        
<%'###########################得到销售区域#############################                        
 set AdoRs1=Server.CreateObject("AdoDB.RecordSet")                        
 lcsql="select NumValue from A_ConfigInfo Where Subject='salearea'"                        
 AdoRS1.Open lcSql,PubConn,1,1                        
 Areavalue=Adors1("NumValue")                        
 if not isNull(Areavalue) then                        
 	SaleArea=Split(AreaValue,",") 					                        
 end if                        
 Set Adors1=Nothing%>                        
<%'###########################得到行业#############################                        
 set AdoRs2=Server.CreateObject("AdoDB.RecordSet")                        
 lcsql="select NumValue from A_ConfigInfo Where Subject='carreer'"                        
 AdoRS2.Open lcSql,PubConn,1,1                        
 HYvalue=Adors2("NumValue")                        
 if not isNull(HYvalue) then                        
 	HY=Split(HYValue,",") 					                        
 end if                        
 Set Adors2=Nothing%>