📄 order_profind2.asp

📁 生成防伪码,并导出为EXCEL表格,可查寻
💻 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">&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="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"首页&nbsp;"
response.write"上一页&nbsp;"
else
response.write"<a href=Order_ProFind2.asp?id="& id &"&pid="&proid &"&bianhao="&bianhao&"&na="&na&">首页&nbsp;</a>"
response.write"<a href=Order_ProFind2.asp?page="&page-1&"&id="& id &"&pid="&proid &"&bianhao="&bianhao&"&na="&na&">上一页&nbsp;</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&">下一页&nbsp;</a>"
response.write"<a href=Order_ProFind2.asp?page="&Allpage&"&id="& id &"&pid="&proid&"&bianhao="&bianhao&"&na="&na&">尾页&nbsp;</a>"
else
response.write"下一页&nbsp;"
response.write"尾页&nbsp;"
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 + -