?? order_profind2.asp
字號:
<!--#include file="Conn.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="CSS.css" type=text/css rel=stylesheet>
<BODY text="#000000">
<SCRIPT language=javascript>
function CheckNum(){
if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false;
}
</SCRIPT>
<TABLE border=1 width=98% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>
<TBODY>
<FORM name="Form2" action="?id=<%=id%>&pid=<%=proid%>&action=go" method="post">
<TR bgcolor=#efefef>
<th align=middle colSpan=6 height=25><%=class_na%>的查詢</th>
</TR>
<TR bgcolor=#efefef>
<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">
<br><br><input type="submit" name="Submit" value="查 詢">
</div></td>
</TR> </FORM>
<TR class=forumRow>
<td align=middle bgcolor="#FFFFFF">
<%
Dim bianhao,na,from
Dim sqlstr,rr
bianhao = Trim(Request.Form("bianhao"))
na = Trim(Request.Form("na"))
Set rr=Server.Createobject("Adodb.RecordSet")
If Request.QueryString("action")="go" Then
if bianhao="" and na="" Then
Response.write "<script language='javascript'>alert('請輸入查詢條件!!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
sqlstr = "Select Product_ID,ShopName,GuiGe,ShopUnit From [XX_Products] Where Types="&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 ShopName like '%"&na&"%' "
End if
end if
else
sqlstr = "Select Product_ID,ShopName,GuiGe,ShopUnit From [XX_Products] Where Types="&proid&""
End if
rr.Open sqlstr,Conn,1,1
if rr.bof and rr.eof then
response.write"<tr bgcolor=#efefef><td align=center>對不起沒有找到記錄！</td></tr>"
else
page=request("page")
rr.pagesize=10'每頁顯示記錄數
j=rr.pagesize
Allrecord=rr.Recordcount '得到記錄總數
Allpage=rr.pagecount '得到頁總數
if not isnumeric(page) or page="" then
page=1
else page=clng(page)
end if
if page<1 then
page=1
elseif page>Allpage then
page=allpage
end if
rr.absolutepage=page
%>
<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>
<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"> </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="25%">
<div align="center">規格</div></td>
<td width="25%">
<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(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
if page<2 then
response.write"首頁 "
response.write"上一頁 "
else
response.write"<a href=Order_ProFind2.asp?id="& id &"&pid="&proid &"&bianhao="&bianhao&"&na="&na&">首頁 </a>"
response.write"<a href=Order_ProFind2.asp?page="&page-1&"&id="& id &"&pid="&proid &"&bianhao="&bianhao&"&na="&na&">上一頁 </a>"
end if
if Allpage-page<>0 then
response.write"<a href=Order_ProFind2.asp?page="&page+1&"&id="& id &"&pid="&proid&"&bianhao="&bianhao&"&na="&na&">下一頁 </a>"
response.write"<a href=Order_ProFind2.asp?page="&Allpage&"&id="& id &"&pid="&proid&"&bianhao="&bianhao&"&na="&na&">尾頁 </a>"
else
response.write"下一頁 "
response.write"尾頁 "
End if
end if
%>
</table>
</form></td>
</tr>
</table>
<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>
</td>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -