d_khindexsubfrm.asp

一个很好的在线购物系统

             
              <%'Response.Redirect "D_KHindexsubFrm.asp?tag=2&par_id="&trim(Request("m_id"))&"&page1="&Request("page1")&"&par_name="&Request("par_name")&"&par_level="&Request("par_level")&"&par_type="&Request("par_type")&""%>
          <%Response.End %>
<%end if%>



<script language="vbscript">
  sub NewKeHu()
      window.location="D_KHindexsubFrm.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_KHindexsubFrm.asp?tag3=Edit&m_requestintent="&document.form2.m_requestintent.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&"&par_id="&document.form2.m_id1.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' and delflag='0'",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 locationid=locationid;
    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%>
<%'###########################得到信息来源#############################
 set AdoRs3=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='infosource'"
 AdoRS3.Open lcSql,PubConn,1,1
 infovalue=Adors3("NumValue")
 if not isNull(infovalue) then
 	info=Split(infoValue,",") 					
 end if
 Set Adors3=Nothing%>
 <%'###########################得到资产规模#############################
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='statescale'"
 AdoRS4.Open lcSql,PubConn,1,1
 statevalue=Adors4("NumValue")
 if not isNull(statevalue) then
 	state=Split(stateValue,",") 					
 end if
 Set Adors4=Nothing%>
<%'###########################得到效益状况#############################
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='benefitstatus'"
 AdoRS4.Open lcSql,PubConn,1,1
 statevalue=Adors4("NumValue")
 if not isNull(statevalue) then
 	benefit=Split(stateValue,",") 					
 end if
 Set Adors4=Nothing%>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">

<title></title><link href="../cread.css" rel="stylesheet" type="text/css">  

<%if Request("B1")="新增" or Request("tag2")="continue" then%><%''''''''''''B1表示新建客户，来自D_KHindexmainFrm.asp%>
<script language="vbscript">
   function CheckLength(bb)
        if len(bb)>15 then
           aa="数据输入过长!"
           msgbox aa                
        end if
   end function
</script>
<script language="vbscript">
   function CheckLength2(bb)
        if len(bb)>60 then
           aa="数据输入过长!"
           msgbox aa                
        end if
   end function
</script>

<script language="javascript">
   function datacheck()
    {
    var i;
    var tag=0;
    if (document.form1.m_id.value=="")
    {
      alert("客户序号不能为空！");
      tag=1;    
    }
    if (document.form1.m_name1.value=="")
    {
      if (tag==0)
      alert("客户名称不能为空！");
      tag=1;
    } 
    if (document.form1.m_Area.value=="")
    {
      if (tag==0)
      alert("区域不能为空！");
      tag=1;
    } 
     if (document.form1.m_Occupation.value=="")
    {
      if (tag==0)
      alert("行业不能为空！");
      tag=1;
    } 
    if (document.form1.m_InformationSource.value=="")
    {
      if (tag==0)
      alert("信息来源不能为空！");
      tag=1;
    } 
    if (document.form1.m_Careeror.value=="")
    {
      if (tag==0)
      alert("业务员不能为空！");
      tag=1;
    }