g_lost.asp

一个很好的在线购物系统

            document.form1.mjg1.value="";
       
           }  
          }  
      } //change1事件完成
  
   function change2()
     {
      var spxh2;
      spxh2=document.form1.mxh2.options[document.form1.mxh2.selectedIndex].value
    
      var flag;
      flag=0; 
      for (m=0;m<num;m++)
        {  
          if(zsm[m][0]==spxh2)   
           {      
            document.form1.mjg2.value=zsm[m][1];
            flag=1; 
            break;       
            }
         if (flag==0)
          {
         
            document.form1.mjg2.value="";
       
           }  
          }  
      } //change2事件完成
  function change3()
     {
      var spxh3;
      spxh3=document.form1.mxh3.options[document.form1.mxh3.selectedIndex].value
    
      var flag;
      flag=0; 
      for (m=0;m<num;m++)
        {  
          if(zsm[m][0]==spxh3)   
           {      
            document.form1.mjg3.value=zsm[m][1];
            flag=1; 
            break;       
            }
         if (flag==0)
          {
         
            document.form1.mjg3.value="";
       
           }  
          }  
      } //change2事件完成
  

  
</script>
<script language = "VBScript">
'**************只有数字型的才能输入
sub tjg1_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.tjg1.value,"Num",window.event.keyCode)
end sub
sub tjg2_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.tjg2.value,"Num",window.event.keyCode)
end sub
'sub tjg3_onkeypress
'		window.event.keyCode=PublicKeyAscii(document.form1.tjg3.value,"Num",window.event.keyCode)
'end sub

'*******************
sub cpxh_onkeyup
    if document.form1.khxh.value=""  then
       document.form1.cpxh.value=""
       alert("请先选择客户！")
       exit sub
    end if
      
end sub    

sub maker_onkeyup
    if document.form1.khxh.value="" or document.form1.cpxh.value=""  then
       document.form1.maker.value=""
       alert("请先选择客户与产品！")
       exit sub
    end if
      
end sub    
Sub jian()  '字段检验是否为空
 
    if form1.khxh.value="" then       
        MsgBox "客户序号不能为空！", 64, "提示："
        focusto(0)
        Exit Sub
    end if 
    if form1.khmc.value="" then       
        MsgBox "客户名称不能为空！", 64, "提示："
        focusto(2)
        Exit Sub
    end if 
     
    if form1.cpxh.value="" then       
        MsgBox "产品序号不能为空！", 64, "提示："
        focusto(3)
        Exit Sub
    end if 
     
    if form1.cpmc.value="" then       
        MsgBox "产品名称不能为空！", 64, "提示："
        focusto(4)
        Exit Sub
    end if 
  
   
    if form1.Ryear.value="" then       
        MsgBox "报告年份不能为空！", 64, "提示："
        focusto(7)
        Exit Sub
    end if 

    if form1.Rmonth.value="" then       
        MsgBox "报告月份不能为空！", 64, "提示："
        focusto(8)
        Exit Sub
    end if 
    if form1.Rdate.value="" then       
        MsgBox "报告日期不能为空！", 64, "提示："
        focusto(9)
        Exit Sub
    end if 
        
    if form1.Jyear.value="" then       
        MsgBox "交货年份不能为空！", 64, "提示："
        focusto(11)
        Exit Sub
    end if 
    if form1.Jmonth.value="" then       
        MsgBox "交货月份不能为空！", 64, "提示："
        focusto(12)
        Exit Sub
    end if 
    if form1.Jdate.value="" then       
        MsgBox "交货日期不能为空！", 64, "提示："
        focusto(13)
        Exit Sub
    end if 
    if form1.fkfs1.value="" then       
        MsgBox "请选择一种我方报价的付款方式！", 64, "提示："
        focusto(14)
        Exit Sub
    end if 
    if form1.maker.value="" then     
        MsgBox "请输入制造商的信息！", 64, "提示："
        focusto(22)
        Exit Sub
    end if 
   if form1.Qyear.value="" then       
        MsgBox "签约年份不能为空！", 64, "提示："
        focusto(23)
        Exit Sub
    end if 

    if form1.Qmonth.value="" then       
        MsgBox "签约月份不能为空！", 64, "提示："
        focusto(24)
        Exit Sub
    end if 
    if form1.Qdate.value="" then       
        MsgBox "签约日期不能为空！", 64, "提示："
        focusto(25)
        Exit Sub
    end if 
    if form1.fkfs2.value="" then       
        MsgBox "签约付款方式不能为空！", 64, "提示："
        focusto(26)
        Exit Sub
    end if 

    if (form1.txh1.value="") and (form1.txh2.value="")  then     
        MsgBox "请输入一种签约产品型号！", 64, "提示："
        focusto(27)
        Exit Sub
    end if 
    if form1.zy.value="" then     
         MsgBox "请选择一种丢失主要原因！", 64, "提示："
         focusto(35)
         Exit Sub
    end if 
   form1.submit
End Sub
Sub focusto(x)
    '将游标定位于表单(Form)的某个栏位
    document.form1.elements(x).focus()
End Sub
sub khclick()
   window.open "G_Clientinfo3.asp","客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
end sub 
sub cpclick()
    khxh=document.form1.khxh.value
    khmc=document.form1.khmc.value
    window.open "G_CpInfo.asp?khxh="+khxh+"&khmc="+khmc,"产品信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub  
</script>
<body bgcolor="#FFFFFF" >
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" height="5"><b><font size="3"><img border="0" src="../pic/it_22.gif"> 
      </font><font size="2">订单丢失报告</font></b><hr width="40%" size="1" align="left">               
                     
    </td>               
  </tr>               
</table>           
        
        
        
        
<form method="POST" action="G_lostInfo.asp" name="form1"  >          
  <%                                      
   '读入通过按扭选中的客户的序号和名称                                     
   khxh=request("khxh")                                   
         if khxh<>"" then           
            set myrst=Server.CreateObject("adodb.RecordSet")           
            sql="select *  from D_ClientInfo where ClientNum='"&khxh&"'"            
            myrst.open sql,Pubconn,1          
            if not myrst.eof then                                    
              aa=khxh    ' 传回的客户序号值                                     
              bb=myrst("ClientName")  ' 传回的客户名称值                                     
              cc=myrst("level")    ' 传回的客户类型值                                     
                        
            end if                                         
         end if                                        
   %>                              
         
<table border="1" width="100%" cellspacing="0" height="60%" bgcolor="#F7F4E5">           
  <tr>        
    <td width="116" height="1.5%" align="right" colspan="2" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">             
     <font size="2">客户序号</font>                                                                      
    </td>                
    <td width="179" height="1%" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                
            
     <p align="left">           
      <%if khxh<>"" then%>         
      <input type="text" name="khxh" value="<%=khxh%>" size="16">        
      <%else%>        
     <input type="text" name="khxh" size="16" tabindex="1"  value="<%=aa%>" onkeyup="key1()">        
     <%end if %>        
      <input type="button" value="..." onclick="khclick()"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >               
               
            
               
    </td>                               
    <td width="60" height="1%" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                           
     <font size="2">客户名称</font>                           
    </td>                               
    <td width="225" height="1%" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                            
     <%if khmc<>"" then%>          
     <input type="text" size="29" name="khmc" value="<%=khmc%>"  readonly style="background-color: #edefef">        
     <%else%>                                                                  
     <input type="text" name="khmc" size="29" tabindex="3" value="<%=bb%> " readonly style="background-color: #edefef">                            
      <%end if %>                                                                    
    </td>