⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 kuguan_bupro.asp

📁 have playing search print and many very good contcent
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->

<%
Dim ye,ke,xe,j,Sql
Dim rss,ord_id,len_id,zero,i
Dim isadmin,kk_id,kk_na,kk
Dim cus
Dim pro_id,pro_na,pro_gg,pro_money
Set xe=Server.Createobject("Adodb.RecordSet")
Sql="Select Product_ID,Name,GuiGe,Money From [Product]"
xe.Open Sql,Conn,1,1
Do While Not xe.Eof
pro_id = pro_id & xe(0) & "||"
pro_na = pro_na & xe(1) & "||"
pro_gg = pro_gg & xe(2) & "||"
pro_money = pro_money & xe(3) & "||"
xe.MoveNext
Loop
xe.Close
Set xe=Nothing

Set rss=Conn.Execute("Select Bu_ID From [BuChuang] Order By ID Desc")
ord_id = rss(0)
ord_id = Clng(ord_id)+1
len_id = Len(ord_id)
If len_id<5 Then 
   For i=1 To (5-len_id)
      zero = zero & "0"
   Next
ord_id = zero & ord_id
End if
rss.Close
Set rss=Nothing

isadmin = Manage_Level(adl)
If isadmin = "业务员" Then
Set kk=Conn.Execute("Select ID,User_Name From [HQ_User] Where User_Name='"&adu&"' and Levels='"&adl&"'")
kk_id=kk(0)
kk_na=kk(1)
kk.Close
Set kk=Nothing
End if
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
<script src="Js/AddOrder.js"></script> 
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<script language="JavaScript">
<!--

function chk(theForm){ 
if (theForm.bianhao.value == ""){
                alert("请输入申请单编号!");
                theForm.bianhao.focus();
                return (false);
        } 
if (theForm.spid1.value == ""){
                alert("请选择商品代码!");
                theForm.spid1.focus();
                return (false);
        } 

if (theForm.pro_sl1.value == ""){
                alert("请输入补仓个数!");
                theForm.pro_sl1.focus();
                return (false);
        } 
if (theForm.pro_mone1.value == ""){
                alert("请输入备注!");
                theForm.pro_mone1.focus();
                return (false);
}
}

function CheckNum(){
   if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false; 
   }

function pronews(id) { window.open("Order_ProFind.asp?id="+id,"","height=500,width=550,left=350,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}

//-->
</script>
<body text="#000000">
<table cellpadding="6" cellspacing="1" border="0" width="98%" class="tableBorder" align=center>
  <form action="KuGuan_BuPro2.asp" method=post id=form1 name=form1 onSubmit="return chk(this)">
    <tr bgcolor=ffffff> 
      <th width="100%" height=12 align="center" bgcolor="ffffff">添加补仓申请单</th>
    </tr>
    <tr bgcolor=ffffff> 
      <td class=forumrow>申请单编号: 
        <input name="bianhao" type="text" id="bianhao" value="<%=ord_id%>" size="10" maxlength="20" readonly></td>
    </tr>
    <tr bgcolor=ffffff> 
      <td bgcolor="ffffff" class=forumrow> <table width="100%" border="0" cellpadding="4" cellspacing="2">
          <tr> 
            <td><input name="spsl" type="text" id="spsl" value="1" size="5" maxlength="10" onKeyPress="javascript:CheckNum();"> 
              <input type="button" name="Submit4" onclick="setid();" value=" 点 击 " > 
              <font color="#FF0000">(添加超过1种商品,请先输入要添加的种类数量.) </font> </td>
          </tr>
        </table>
        <br> <SCRIPT language=javascript>
function setid()
{
	  var str;
	  str="";
	  if(!window.form1.spsl.value)
	   window.form1.spsl.value=1;
 	  for(var i=1;i<=window.form1.spsl.value;i++){
	     str+="<table width=100% border=0 cellpadding=2 cellspacing=0>";
         str+="<tr>"; 
         str+="<td width=4%>"; 
         str+="<div align=center>"+i+"</div></td>";
         str+="<td width=20%>"; 
         str+="<div align=center>"; 
         str+="<input name='spid"+i+"' type='text' size=10 maxlength=20 onKeyUp=ProNews('<%=pro_id%>','<%=pro_na%>','<%=pro_gg%>','<%=pro_money%>',document.form1.spid"+i+".value,document.form1.pro_news"+i+");>";
          str+="<input type='button' name='Submit3' value='查询' onClick='javascript:pronews("+i+");'>";
          str+="</div></td>";
          str+="<td width=29%>"; 
          str+="<div align='center'> ";
          str+="<input name='pro_news"+i+"' type='text' size='35' maxlength='60' readonly>";
          str+="</div>";
           str+="</td>";
           str+="<td width='9%'>";
            str+="<div align='center'> ";
            str+="</div></td>";
            str+="<td width=9%>"; 
           str+="<div align=center>"; 
           str+="<input name='pro_sl"+i+"' type=text onKeyPress=javascript:CheckNum(); size=10 maxlength=12>";
            str+="</div></td>";
             str+="<td>"; 
            str+="<div align=center> ";
            str+="<input name='pro_mone"+i+"' type=text size='30' maxlength='60'>";
            str+="</div></td>";
            str+="</tr></table>";
		 }
	  window.upid.innerHTML=str+"<br>";
}
</SCRIPT> <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
          <tr> 
            <td width="4%" class=forumrow> <div align="center">项目</div></td>
            <td width="20%" class=forumrow> <div align="center">商品</div></td>
            <td width="10%" class=forumrow> <div align="center">商品名称</div></td>
            <td width="8%" class=forumrow> <div align="center">规格</div></td>
            <td width="10%" class=forumrow> <div align="center">零售价</div></td>
            <td width="9%" class=forumrow>&nbsp; </td>
            <td width="10%" class=forumrow> <div align="center">补仓个数</div></td>
            <td width="29%" class=forumrow><div align="center">备注</div></td>
          </tr>
          <tr> 
            <td colspan="8" class=forumrow id=upid> <table width="100%" border="0" cellpadding="2" cellspacing="0">
                <tr> 
                  <td width="4%"> <div align="center">1</div></td>
                  <td width="20%"> <div align="center"> 
                      <input name="spid1" type="text" id="spid1" size="10" maxlength="20" onKeyUp="ProNews('<%=pro_id%>','<%=pro_na%>','<%=pro_gg%>','<%=pro_money%>',document.form1.spid1.value,document.form1.pro_news1);">
                      <input type="button" name="Submit3" value="查询" onClick="javascript:pronews(1);">
                    </div></td>
                  <script language="JavaScript">
function ProNews(pid,pna,pgg,pmon,spid,pnews)
{
    var str1;
	var str2;
	var str3;
	var str4;
	var arr_str1;
	var arr_str2;
	var arr_str3;
	var arr_str4;
	var aa;
	str1 = pid;
	str2 = pna;
	str3 = pgg;
	str4 = pmon;
	arr_str1 = str1.split("||");
	arr_str2 = str2.split("||");
	arr_str3 = str3.split("||");
	arr_str4 = str4.split("||");

      for(var i=0;i<=arr_str1.length;i++){
		 if(spid==arr_str1[i]){
	        pnews.value=arr_str2[i]+" , "+arr_str3[i]+" , "+arr_str4[i];}
	  }
	  
}
</script>
                  <td width="29%"> <div align="center"> 
                      <input name="pro_news1" type="text" id="pro_news1" size="35" maxlength="60" readonly>
                    </div></td>
                  <td width="9%">&nbsp; </td>
                  <td width="9%"> <div align="center"> 
                      <input name="pro_sl1" type="text" onKeyPress="javascript:CheckNum();" id="pro_sl1" size="10" maxlength="12">
                    </div></td>
                  <td> <div align="center"> 
                      <input name="pro_mone1" type="text" id="pro_mone1" size="30" maxlength="60">
                    </div></td>
                </tr>
              </table></td>
          </tr>
        </table></td>
    </tr>
    <tr bgcolor=ffffff> 
      <td bgcolor="ffffff" class=forumrow> <div align="right"> </div>
        <div align="center"> 
          <input type="submit" name="Submit" value="添 加">
          <input type="reset" name="Submit2" value="清 空">
        </div></td>
    </tr>
  </form>
</table>
</html>

⌨️ 快捷键说明

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