g_state.asp

一个很好的在线购物系统

   for (p=0;p<tt;p++)
          {  
            if(document.form1.khxh.value==zhang[p][0])   
              {      
                str=zhang[p][1]+"/"+str;
                tag=1;
                
              }  
          }   
          if (tag==0)
          {
          document.form1.txtcont.value="";                    
          }
          else
           {
           document.form1.txtcont.value=str;
           }

          

         //以下为调出库中存在这样的客户的状态记录， 否则为空

          for (n=0;n<tj;n++)
          {  
            if(document.form1.khxh.value==shu1[n][0])   
              {  
               
                document.form1.year1.value = shu4[n][0];    //报告年份
                document.form1.month1.options[0] = new Option(shu4[n][1],shu4[n][1]);
                document.form1.month1.options[0].selected=true;
                 
                document.form1.date1.options[0] = new Option(shu4[n][2],shu4[n][2]);
                document.form1.date1.options[0].selected=true;

                document.form1.txtcont.value = shu5[n][0];
             
                document.form1.selMea.options[0] = new Option(shu7[n][0],shu7[n][0]);
                document.form1.selMea.options[0].selected=true;
                
                document.form1.txtdetail.value = shu8[n][0];
                
                document.form1.selkh.options[0] = new Option(shu9[n][0],shu9[n][0]);
                document.form1.selkh.options[0].selected = true;

                
                document.form1.seldc.options[0] = new Option(shu10[n][0],shu10[n][0]);
                document.form1.seldc.options[0].selected=true;
                
                
                document.form1.selwt.options[0] = new Option(shu11[n][0],shu11[n][0]);
                document.form1.selwt.options[0].selected=true;

                document.form1.selfa.options[0] = new Option(shu12[n][0],shu12[n][0]);
                document.form1.selfa.options[0].selected=true;

                document.form1.seltj.options[0] = new Option(shu13[n][0],shu13[n][0]);
                document.form1.seltj.options[0].selected=true;

                document.form1.selperson.options[0] = new Option(shu14[n][0],shu14[n][0]);
                document.form1.selperson.options[0].selected=true;
                
                document.form1.selbr.options[0] = new Option(shu15[n][0],shu15[n][0]);
                document.form1.selbr.options[0].selected=true;
                   
                document.form1.seljy.options[0] = new Option(shu16[n][0],shu16[n][0]);
                document.form1.seljy.options[0].selected=true;

                document.form1.selqy.options[0] = new Option(shu17[n][0],shu17[n][0]);
                document.form1.selqy.options[0].selected=true;
                
                document.form1.year3.value=shu19[n][0];    //安装年份
                document.form1.month3.options[0] = new Option(shu19[n][1],shu19[n][1]);
                document.form1.month3.options[0].selected=true;
 
                document.form1.date3.options[0] = new Option(shu19[n][2],shu19[n][2]);
                document.form1.date3.options[0].selected=true;


               
               document.form1.selchance.options[0] = new Option(shu20[n][0],shu20[n][0]);
               document.form1.selchance.options[0].selected=true;


                  tag=1;
                  break;
                     
              }  
          }   
          if (tag==0)
          {
              
            
              document.form1.month1.options[0] = new Option('','');
              document.form1.month1.options[0].selected=true;
              document.form1.date1.options[0] = new Option('','');
              document.form1.date1.options[0].selected=true;

             
              document.form1.txtcont.value = "";
            
              document.form1.selMea.options[0] = new Option('','');
              document.form1.selMea.options[0].selected=true;

              document.form1.txtdetail.value = "";
              
              document.form1.selkh.options[0] = new Option('','');
              document.form1.selkh.options[0].selected = true;
               
              document.form1.seldc.options[0] = new Option('','');
              document.form1.seldc.options[0].selected=true;
              
              document.form1.selwt.options[0] = new Option('','');
              document.form1.selwt.options[0].selected=true;

              document.form1.selfa.options[0] = new Option('','');
              document.form1.selfa.options[0].selected=true;

              document.form1.seltj.options[0] = new Option('','');
              document.form1.seltj.options[0].selected=true;

              document.form1.selperson.options[0] =new Option('','');
              document.form1.selperson.options[0].selected =true;
               
              document.form1.selbr.options[0] = new Option('','');
              document.form1.selbr.options[0].selected=true;
              
             document.form1.seljy.options[0] = new Option('','');
             document.form1.seljy.options[0].selected=true;

             document.form1.selqy.options[0] = new Option('','');
             document.form1.selqy.options[0].selected=true;
             
            
             document.form1.month3.options[0] = new Option('','');
             document.form1.month3.options[0].selected=true;
             
             document.form1.date3.options[0] = new Option('','');
             document.form1.date3.options[0].selected=true;
             
             document.form1.selchance.options[0] = new Option('','');
             document.form1.selchance.options[0].selected=true;

          
          }
      

          
     }  //key1事件完毕
     
   
  </script>  
<script language="vbscript"> 
   
    
Sub jian()  '字段检验是否为空
    if form1.khxh.value="" then       
        MsgBox "客户序号不能为空！", 64, "提示："
        focusto(0)
        Exit Sub
    end if 
    if form1.khmc.value="" then       
        MsgBox "客户名称不能为空！", 64, "提示："
        focusto(1)
        Exit Sub
    end if 
 
   
 
    if form1.year1.value="" then       
        MsgBox "报告年份不能为空！", 64, "提示："
        focusto(5)
        Exit Sub
    end if 
    if form1.month1.value="" then       
        MsgBox "报告月份不能为空！", 64, "提示："
        focusto(6)
        Exit Sub
    end if 
    if form1.date1.value="" then       
        MsgBox "日期不能为空！", 64, "提示："
        focusto(7)
        Exit Sub
    end if 
    if form1.selkh.value="" and form1.seldc.value="" and form1.selwt.value="" and form1.selfa.value="" and form1.seltj.value="" and form1.selperson.value="" and form1.selbr.value="" AND form1.seljy.value="" AND form1.selqy.value=""then       
        MsgBox "请至少选择一种状态！", 64, "提示："
        'focusto(8)
        Exit Sub
    end if 

 '    if form1.seldc.value="" then