📄 order_profind.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim pp2
Dim id
id = Request("id")
Set pp2=Conn.Execute("Select ID,Class From [Product_Class]")
%>
<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>
</head>
<body text="#000000">
<table width="95%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
  <tr valign="middle" align="center"> 
    <th height="22">商品查询</th>
  </tr>
  <tr valign="middle" align="center"> 
    <td><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
        <tr bgcolor="#FFFFFF"> 
          <td width="50%" height="25" class=forumrow> <div align="center">商品分类查询</div></td>
          <td width="50%" class=forumrow><div align="center">商品列表</div></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td rowspan="3"><div align="center">
<%If pp2.Eof Then
Response.Write "没有任何记录!"
Else
Do While Not pp2.Eof
Response.Write "<p><a href='Order_ProFind2.asp?id="& id &"&pid="& pp2(0) &"'>"& pp2(1) &"</a></p>"
pp2.MoveNext
Loop
End if
%>
            </div></td>
          <td width="50%">热门：<ol>
<%
DIm ho,ho_id
Dim pf
Set ho = Conn.Execute("Select Top 10 Product From [Ku_Out] Order By Out_Shuliang")
Do While Not ho.Eof
ho_id = ho(0)
   Set pf = Conn.Execute("Select Product_ID,Name,GuiGe,Money From [Product] Where Product_ID='"&ho_id&"'")
   If Not pf.Eof Then
   Response.Write "<li><a href='#' onclick=insertsp('"&pf(0)&"||"&pf(1)&"||"&pf(2)&"||"&pf(3)&"');>"& pf(1) &"</a></li><br>"
   End if
   pf.Close
   Set pf=Nothing
ho.MoveNext
Loop
ho.Close
Set ho=Nothing
%>             </ol>
          </td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td>特价：<ol>
 <%
Dim te
Set te = Conn.Execute("Select Top 10 Product_ID,Name,GuiGe,Money From [Product] Order By Money desc")
Do While Not te.Eof
Response.Write "<li><a href='#' onclick=insertsp('"&te(0)&"||"&te(1)&"||"&te(2)&"||"&te(3)&"');>"& te(1) &"</a></li><br>"
te.MoveNext
Loop
te.Close
Set te=Nothing
%>          </ol>
          </td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td>最新：<ol>
<%
Dim ne
Set ne = Conn.Execute("Select Top 10 Product_ID,Name,GuiGe,Money From [Product] Order By ID desc")
Do While Not ne.Eof
Response.Write "<li><a href='#' onclick=insertsp('"&ne(0)&"||"&ne(1)&"||"&ne(2)&"||"&ne(3)&"');>"& ne(1) &"</a></li><br>"
ne.MoveNext
Loop
ne.Close
Set ne=Nothing
%>       
            </ol>
            </td>
        </tr>
<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> 
        <tr bgcolor="#FFFFFF"> 
          <td height="30" colspan="2"> <div align="center"> 
              <input type="button" name="Submit" value="关闭窗口" onClick="javascript:window.close();">
            </div></td>
        </tr>
      </table></td>
  </tr>
</table>
 </body>
</html>
⌨️ 快捷键说明

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