📄 e_return.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
           shang2[<%=count%>]=new Array("<%= trim(rst("prodcode"))%>","<%= trim(rst("standard"))%>","<%= trim(rst("unit"))%>","<%= trim(rst("ProdName"))%>");
           <%count = count + 1
             rst.movenext
             loop
     end if 
     rst.close
     set rst=nothing
      %>
   Pcount=<%=count%>;
    
  function key2()
     {
   
      if (document.form1.khxh.value=="")
      {
       alert("请先输入客户！");   //要先输入客户
       document.form1.cpbm.value="";
       document.form1.khxh.focus();
      }
     
        //取商品名称 
                           
          for (l=0;l<Pcount;l++)
          {
               if(document.form1.cpbm.value.substring(0,4)==shang1[l][0])
              {
               document.form1.ggxh.value=shang1[l][1]; 
               break;
              }
               else
               {
               document.form1.ggxh.value="";
               } 
        
         }
         for (t=0;t<Pcount;t++)
         { 
            if(document.form1.cpbm.value==shang2[t][0])
            {
               document.form1.cpmc.value=shang2[t][3];  
               document.form1.ggxh.value=shang1[l][1]+"-"+shang2[t][1];
           
               break;
            }
            else
             {
               
               document.form1.cpmc.value="";              
             }
          }  
          
          
            
   }    //key2事件响完成

</script>
<script language="javascript">
function jian()
	
    {
     var tag;
     tag=0;
   
     if ((document.form1.khxh.value=="")||(document.form1.khmc.value==""))
       {
         alert("客户不能为空！");
         document.form1.khxh.value="";
         document.form1.khxh.focus();
         tag=1;  
         return(false);
        }
    
        if (tag==0)
        {
          document.form1.submit();
        }
   

    } 
</script>
 
 <script language="vbscript">
 sub xzkh()
   '选择客户时，新开一个窗口
     djbh=document.form1.djbh.value
     window.open "E_returnClient.asp?djbh="+djbh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
 end sub
 sub cpxz()
     djbh=document.form1.djbh.value
     khxh=document.form1.khxh.value
     lxr=document.form1.lxr.value
    window.open "E_returnCP.asp?djbh="+djbh+"&khxh="+khxh+"&lxr="+lxr,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
 end sub
 sub khxx()
  khxh=document.form1.khxh.value
  window.open "E_Clientdetail.asp?khxh="+khxh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
 end sub

</script> 
<script language="vbscript">
'以下判断只有为数字型才能输入
sub sl_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.sl.value,"Num",window.event.keyCode)
end sub
</script> 

<body bgcolor="#FFFFFF" >
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15"> 
      </font>     
     <font size="2">质量反馈信息    
     </font>    
     </b><hr width="40%" size="1" align="left">                 
                       
    </td>                 
  </tr>                 
</table>                 
          
             
           
<form method="POST" action="E_returnInfo.asp" name="form1" >            
            
           
<table border="1" width="100%" cellspacing="0" height="24"  bgcolor="#F7F4E5">             
  <tr>          
          
          
    <td width="84" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" >                                                                    
      
     <p align="right">      
     单据编号      
      
     </p>      
      
    </td>                                                                            
    <td width="229" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5">                                                                            
                                                                                  
                                                                          
    <p align="left">       
    <input type="text" name="djbh" size="15"<%if djbh<>"" then%> value="<%=djbh%>" <%end if %> value="<%=getdj("E_infoReturn","billid","R")%>">           
           
    <td width="79" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5" >                                                                                                                                                                                                 
     <font size="2">制单人     
     </font>     
    </td>                                                                                                                                                                                                     
    <td width="312" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5">                                                                                                                                                                                                  
    <input type="text" name="zdr" size="15" readonly style="background-color: #edefef" tabindex="9" value="<%=Session("StuffName")%>" >                                                                                                                                                                                                                                   
                                                                                                                                                                                                                                   
    </td>                                                                                                                                                                                                     
          
  </tr>          
  <tr>          
          
          
          
    <td width="84" height="23" align="right" bgcolor="#F7F4E5" bordercolor="#F7F4E5">                                                                    
     <font size="2">客户序号                                                                    
     </font>
⌨️ 快捷键说明

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