?? 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 + -