📄 d_salekhsubfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
           <input type="hidden" name=par_id value=<%=par_id%>>
           <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")%>>
           <input type="hidden" name="page1" value=<%=request("page1")%>>
         </form>
         <script language="vbscript">
           window.location="D_SaleKHsubFrm.asp?tag=2&par_id="&document.form4.par_id.value&"&page1="&document.form4.page1.value&"&par_name="&document.form4.par_name.value&"&par_level="&document.form4.par_level.value&"&par_type="&document.form4.par_type.value&""
         </script>
             <%'Response.Redirect "D_SaleKHsubFrm.asp?tag=2&par_id="&trim(Request("m_id1"))&"&page1="&Request("page1")&"&par_name="&Request("par_name")&"&par_level="&Request("par_level")&"&par_type="&Request("par_type")&""%>
         <%'else%>
             <%'Response.Redirect "D_SaleKHsubFrm.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")&""%>
         <%'end if%>
         <%Response.End %>
<%end if%>





<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<script language="vbscript">
  sub NewKeHu()
      window.location="D_SaleKHsubFrm.asp?tag2="&document.form2.tag2.value&"&m_name="&document.form2.par_name.value&"&m_level="&document.form2.par_level.value&"&m_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' 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 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%>

 

<BODY  bgcolor="#FFFFFF">
<script language="vbscript">
  sub Editkehu()
      window.location="D_SalekhsubFrm.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>

<%if Request("B1")="新建" or Request("tag2")="continue" then%><%''''''''''''B1表示新建客户，来自D_SaleKHMainFrm.asp%>

<script language="javascript">    
       function SaveZYry2()    
    {    
    var i;    
    var tag=0;    
        
    if (document.form1.m_name.value=="")    
    {    
      alert("客户名称不能为空！");    
      tag=1;        
    }    
    if (tag==0)    
    document.form1.submit();      
        
    }    
</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;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -