📄 order_profind2.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim proid
Dim cl,class_na
Dim id
id = Request("id")
proid = Request("pid")
Set cl = Conn.Execute("Select Class From [Product_Class] Where ID="&proid)
class_na = cl(0)
cl.Close
Set cl=Nothing
%>
<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>
<BODY text="#000000">
<SCRIPT language=javascript>
function CheckNum(){
   if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false; 
   }
</SCRIPT>
<TABLE cellSpacing=1 cellPadding=0 width="98%" align=center border=0 class="tableBorder">
  <TBODY>
   <FORM name="Form2" action="?id=<%=id%>&pid=<%=proid%>&action=go" method="post">
    <TR> 
      <th align=middle colSpan=6 height=25><%=class_na%>的查询</th>
     
    </TR>
    <TR> 
      <td height=25 colSpan=6 align=middle class=forumrow> 
        <div align="center">编号： 
          <input name="bianhao" type="text" id="bianhao" size="10" maxlength="20">
          名称： 
          <input name="na" type="text" id="na" size="10" maxlength="30">
          产地： 
          <input name="from" type="text" id="from" size="12" maxlength="35">
          <br><br><input type="submit" name="Submit" value="查 询">
        </div></td>
    </TR> </FORM>
    <TR class=forumRow> 
    <td align=middle bgcolor="#FFFFFF"> 
<%If Request.QueryString("action")="go" Then
Dim bianhao,na,from
Dim sqlstr,rr

bianhao = Trim(Request.Form("bianhao"))
na = Trim(Request.Form("na"))
from = Trim(Request.Form("from"))


if bianhao="" and na="" and from="" Then
Response.write "<script language='javascript'>alert('请输入查询条件!!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
Else


Set rr=Server.Createobject("Adodb.RecordSet")
sqlstr = "Select Product_ID,Name,GuiGe,Money,Froms From [Product] Where Type="&proid&" "
   If bianhao<>"" Then
      sqlstr = sqlstr & " and Product_ID='"&bianhao&"' "
   End if
   '   If selfenlei<>"" Then
     '    sqlstr = sqlstr & " Time=#"&dates&"# "
     '  End if
           if na<>"" Then
              sqlstr = sqlstr & " and Name like '%"&na&"%' "
           End if
              if from<>"" Then
                 sqlstr = sqlstr & " and Froms like '%"&from&"%' "
              End if
rr.Open sqlstr,Conn,1,1
%>
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><form name="form1" method="post" action="Order_Add.asp">
              <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
                <tr bgcolor="#FFFFFF"> 
                  <td height="10" colspan="6">&nbsp;</td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td width="10%" height="25">
<div align="center">代码</div></td>
                  <td width="20%"> 
                    <div align="center">商品名称</div></td>
                  <td width="20%"> 
                    <div align="center">产地</div></td>
                  <td width="25%"> 
                    <div align="center">规格</div></td>
                  <td width="10%">
<div align="center">零售价</div></td>
                  <td width="10%"><div align="center">选择</div></td>
                </tr>
                <%
If rr.Eof Then
Response.Write "<tr><td colspan=7>没有任何记录!</td></tr>"
Else
Do While Not rr.Eof
%>
                <tr bgcolor="#FFFFFF"> 
                  <td height="25"><div align="center"><%=rr(0)%></div></td>
                  <td><div align="center"><%=rr(1)%></div></td>
                  <td><div align="center"><%=rr(4)%></div></td>
                  <td><div align="center"><%=rr(2)%></div></td>
                  <td><div align="center"><%=rr(3)%></div></td>
                  <td><div align="center"> 
                      <input type="button" name="Submit3" value="选择" onclick="insertsp('<%=rr(0)%>||<%=rr(1)%>||<%=rr(2)%>||<%=rr(3)%>');">
                    </div></td>
                </tr>
<%
rr.MoveNext
Loop
%>
                <tr bgcolor="#FFFFFF"> 
                  <td height="30" colspan="6"> <div align="center">
                      <input type="button" name="Submit2" value="关闭窗口" onClick="javascript:window.close();">
                      <br>
                    </div></td>
                </tr>
<%
End if
rr.Close
Set rr=Nothing
Conn.Close
Set Conn=Nothing
%>
              </table>
              </form></td>
          </tr>
        </table>
<script>
function insertsp(spid){
 var Str;
 var Arr;
 Str = spid;
 Arr = Str.split("||");
 self.opener.form1.spid<%=id%>.value=Arr[0];
 self.opener.form1.pro_news<%=id%>.value=Arr[1]+" , "+Arr[2]+" , "+Arr[3];
}
</script> 
<%
End if
End if%>
    </td>
    </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

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