📄 khdd.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
end if

if myform.xsbm.value="" then
     MsgBox "销售部门不能为空！", 64, "Oh no!"
     focusto(3)
     Exit Sub
end if
   
if myform.m_khid1.value="" then
     MsgBox "客户不能为空！", 64, "Oh no!"
     focusto(5)
     Exit Sub
end if

if myform.ywy.value="" then
     MsgBox "业务员不能为空！", 64, "Oh no!"
     focusto(7)
     Exit Sub
end if

if len(myform.f_spxh.value)<>6 then
     MsgBox "商品编码应为6位！", 64, "Oh no!"
     focusto(9)
     Exit Sub
end if

if myform.spsl.value="" then
     MsgBox "商品数量不能为空！", 64, "Oh no!"
     focusto(9)
     Exit Sub
end if

if myform.hsje.value="0" then
     MsgBox "您的数据输入不完整,请重新输入！", 64, "Oh no!"
     focusto(13)
     Exit Sub
end if

              
 myform.submit
end sub

Sub focusto(x)
    '将游标定位于表单(Form)的某个栏位
    document.myform.elements(x).focus()
End Sub

    sub click1()
   ddbh=document.myform.ddbh.value    
   dyear=document.myform.dyear.value        
    dmonth=document.myform.dmonth.value
    dday=document.myform.dday.value
    ddate=dyear+"-"+dmonth+"-"+dday    
    bcbz=document.myform.bcbz.value   
   window.open "pubselectkh.asp?ddbh="+ddbh+"&ddate="+ddate+"&bcbz="+bcbz,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"     
   end sub
   
    sub click2()
    ddbh=document.myform.ddbh.value
    dyear=document.myform.dyear.value        
    dmonth=document.myform.dmonth.value
    dday=document.myform.dday.value
    ddate=dyear+"-"+dmonth+"-"+dday
    
    xsbm=document.myform.xsbm.value
    khxh=document.myform.M_khid1.value
    khmc=document.myform.m_name.value
    ywy=document.myform.ywy.value
    bcbz=document.myform.bcbz.value 
    window.open "pubselectsp.asp?ddbh="+ddbh+"&ddate="+ddate+"&xsbm="+xsbm+"&khxh="+khxh+"&khmc="+khmc+"&ywy="+ywy+"&bcbz="+bcbz,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"     
    end sub
    
    
  </script> 
</head>

 <body onload=zkch() bgcolor="#FFFFFF">
 
       
<table border="0" cellpadding="0" cellspacing="0" width="103%" height="38">
  <tr>
    <td width="100%" height="38"><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>         
   <center>                                                  
<form method="POST" action="xzsl.asp" name="myform" target="_blank">                      
<input type="hidden" value=<%=bmbh%> name=bmbh>                                                     
                                                     
   </center>                                            
<center>   
         
<table border="1" width="599" cellspacing="0" bgcolor="#F7F4E5">                                                                    
  <tr>                                                                    
    <td width="12%" align="right" bordercolor="#F7F4E5"><font size="2">需求单号</font></td>                                                                   
    <td width="104" bordercolor="#F7F4E5">   
   <%if ddbh<>"" then %>   
    <input type="text" name="ddbh" size="15" value="<%=ddbh%>" readonly style="background-color: #EDEFEF">    
    <%else     
    djh=getdj("f_tblintent","ordernum","X")%>                                          
  <input type="text" name="ddbh" size="15" readonly style="background-color: #EDEFEF" value="<%=djh%>">   
  <%end if%>   
  </td><td width="14%" align="right" bordercolor="#F7F4E5"><font size="2">预计购买日期</font></td>                                                                     
    <td width="301" colspan="3" bordercolor="#F7F4E5">                                                                     
        <%if ddate<>"" then  
        dyear=left(trim(ddate),4)  
        %>      
    <input type=text name=dyear value=<%=dyear%> class="botton" size="4">  
    <%else%>                                   
<input type=text name=dyear value=<%=year(date())%> class="botton" size="4">    
<%end if%>             
    年     
              <select name=dmonth >    
              <%if ddate<>"" then   
              dmonth=mid(ddate,6,2) 
              else 
               dmonth=month(date()) 
               if len(dmonth)=1 then 
               dmonth="0"&dmonth 
               end if 
				end if%>   
              <option value=<% =dmonth%> selected> <% =dmonth %> </option>   
                <% for i=1 to 12
⌨️ 快捷键说明

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