d_zyrysubfrm1.asp

一个很好的在线购物系统

          rs.Fields("Department")=m_Department            
          rs.Fields("HeadShip")=m_HeadShip            
          rs.Fields("Telephone")=m_Telephone            
          rs.Fields("MobileTelephone")=m_MobileTelephone            
		  rs.Fields("CallTelephone")=M_CallTelephone            
		  rs.Fields("Character")=m_Character            
		  rs.Fields("AffectPower")=m_AffectPower            
		  rs.Fields("AttionPoint")=m_AttionPoint            
		  rs.Fields("MemorializeDay")=m_MemorializeDay            
		  rs.Fields("Remark")=m_Remark      
		  rs.Fields("OnOrOff")="1"         
	      rs.Update                  
                   
       end if%>            
       <form name=form4>             
       <%if request("tag")=11 then%>               
           <%m_linkman=request("m_name")%>                   
       <%else%>            
           <%m_linkman=request("m_linkman")%>            
       <%end if%>            
          <input type="hidden" name="index" value=<%=request("index")%>>            
          <input type="hidden" name="page1" value=<%=request("page1")%>>            
          <input type="hidden" name="page2" value=<%=request("page2")%>>            
          <input type="hidden" name="m_clientnum" value=<%=Request("m_clientnum")%>>            
          <input type="hidden" name="m_linkman" value=<%=m_linkman%>>            
          <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_zyrysubfrm1.asp?index="&document.form4.index.value&"&tag=4&page1="&document.form4.page1.value&"&page2="&document.form4.page2.value&"&m_clientnum="&document.form4.m_clientnum.value&"&m_linkman="&document.form4.m_linkman.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_zyrysubfrm.asp?index="&request("index")&"&tag=4&page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&m_clientnum="&Request("m_clientnum")&"&m_linkman="&Request("m_name")&"&par_name="&Request("par_name")&"&par_type="&Request("par_type")&"&par_level="&Request("par_level")&""%>            
                    
          <%'Response.Redirect "D_zyrysubfrm.asp?tag=4&index="&request("index")&"&page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&m_clientnum="&Request("m_clientnum")&"&m_linkman="&Request("m_linkman")&"&par_name="&Request("par_name")&"&par_type="&Request("par_type")&"&par_level="&Request("par_level")&""%>            
                  
       <%Response.End%>            
<%end if%>            
            
<%'###########################得到职务#############################            
 set AdoRs1=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='headtag'"            
 AdoRS1.Open lcSql,PubConn,1,1            
 Areavalue=Adors1("NumValue")            
 if not isNull(Areavalue) then            
 	headtag=Split(AreaValue,",") 					            
 end if            
 Set Adors1=Nothing%>            
<%'###########################得到部门#############################            
 set AdoRs2=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='depar'"            
 AdoRS2.Open lcSql,PubConn,1,1            
 HYvalue=Adors2("NumValue")            
 if not isNull(HYvalue) then            
 	depar=Split(HYValue,",") 					            
 end if            
 Set Adors2=Nothing%>            
<%'###########################得到采购关注点#############################            
 set AdoRs3=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='attention'"            
 AdoRS3.Open lcSql,PubConn,1,1            
 infovalue=Adors3("NumValue")            
 if not isNull(infovalue) then            
  	attention=Split(infoValue,",") 					            
 end if            
 Set Adors3=Nothing%>            
 <%'###########################得到性格#############################            
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='charter'"            
 AdoRS4.Open lcSql,PubConn,1,1            
 statevalue=Adors4("NumValue")            
 if not isNull(statevalue) then            
 	charter=Split(stateValue,",") 					            
 end if            
 Set Adors4=Nothing%>            
<%'###########################得到影响力#############################            
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='effect'"            
 AdoRS4.Open lcSql,PubConn,1,1            
 statevalue=Adors4("NumValue")            
 if not isNull(statevalue) then            
 	effect=Split(stateValue,",") 					            
 end if            
 Set Adors4=Nothing%>            
            
<script language="vbscript">            
  sub Editkehu()            
      window.location="D_zyrysubfrm1.asp?tag3=Edit&index="&document.form1.index.value&"&par_name="&document.form1.par_name.value&"&par_type="&document.form1.par_type.value&"&par_level="&document.form1.par_level.value&"&m_clientnum="&document.form1.m_clientnum.value&"&m_linkman="&document.form1.m_name.value&"&page1="&document.form1.page1.value&"&page2="&document.form1.page2.value&""            
  end sub            
</script>            
            
            
            
<%'''''''''''''''''''''''''新建重要人员'''''''''''''''''''''''''''''%>            
<%if Request("B2")="新建" or Request("tag1")="jump" then%>            
                
  <script language="javascript">            
       function SaveZYry()            
    {            
    var i;            
    var tag=0;            
                
    if (document.form1.m_linkman.value=="")            
    {            
      alert("客户姓名不能为空！");            
      tag=1;                
    }            
    if (tag==0)            
    document.form1.submit();              
                
    }            
</script>            
                     
         <%function getName(aa)            
             set rs1=server.CreateObject("adodb.recordset")             
             if rs1.State=1 then rs1.Close            
             rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3            
             if rs1.RecordCount<=0 then             
                getName=""            
             else            
                getName=rs1.Fields("clientname")            
             end if            
          end function%>                 
               
      <form name="form1"  method="post" action="D_zyrysubFrm.asp?m_clientnum=<%=trim(Request("par_id"))%>&tag=5">             
         <%m_id=trim(Request("par_id"))%>