📄 order_profind.asp
字号:
<!--#include file="Conn.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="css.css" type=text/css rel=stylesheet>
</head>
<body text="#000000">
<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>
<tr valign="middle" align="center" bgcolor=#efefef>
<th height="22">商品查询</th>
</tr>
<tr valign="middle" align="center" bgcolor=#efefef>
<td><table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
<tr bgcolor=#efefef>
<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><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 ne
Set ne = Conn.Execute("Select Top 30 Product_ID,ShopName,GuiGe,ShopUnit From [XX_Products] 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.Spnum.value=Arr[0];
self.opener.form1.Spname.value=Arr[1];
self.opener.form1.Unit.value=Arr[3];
self.opener.form1.Spgg.value=Arr[2];
}
</script>
<tr bgcolor=#efefef>
<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 + -