xsdan.asp

现代化的企业越来越重视科学技术

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">

<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../other/Check_Sql.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
 

<%
'response.buffer=true

Id=Trim(Request("bianmaId"))


if Id= "" then 
response.write "输入错误！"
else 
set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_xsdan where xsdanhao ='"&id&"' Order by id desc "
      rs.PageSize = 10   
      rs.CursorLocation = 3
      rs.Open sql,conn,0,2,1   
      pre = true
      last = true
      page = trim(Request.QueryString("page"))
      
      if len(page) = 0 then
                  intpage = 1
                  pre = false
      else
          if cint(page) =< 1 then
               intpage = 1
               pre = false
          else
              if cint(page) >= rs.PageCount then
                  intpage = rs.PageCount
                  last = false
              else
                   intpage = cint(page)
             end if
         end if
      end if
    if not rs.eof then
         rs.AbsolutePage = intpage
    end if
				

%>
<div align="center">
  <table width="902" height="34" border="0" cellpadding="1" cellspacing="0">
    <tr class="back_southidc">
      <td width="88" height="14"><div align="center">销售单编号</div></td>
      <td width="123"><div align="center">商品编号</div></td>
      <td width="160"><div align="center">商品名称</div></td>
      <td width="107"><div align="center">客户编码</div></td>
      <td width="142"><div align="center">客户名称</div></td>
      <td width="90"><div align="center">数量</div></td>
      <td width="90"><div align="center">价格</div></td>
      <td width="86"><div align="center"></div></td>
    </tr>
	
	 <%    
   for i=1 to rs.PageSize
     if rs.EOF or rs.BOF then exit for
  %>
    <tr class="tr_southidc">
      <td><div align="center"><%=rs("xsdanhao")%></div></td>
      <td><div align="center"><%=rs("xsspbianhao")%></div></td>
      <td><div align="center">
	  
	  
<%daima2=rs("xsspbianhao")
	  
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_shangpin where shangpinbianma='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("shangpinname")
		else
		response.write "无"
		end if
		rst.close
		set rst= nothing
	  %> 
  	
	  </div></td>
      <td><div align="center"><%=rs("xskehubianhao")%></div></td>
      <td><div align="center">
	  <%daima2=rs("xskehubianhao")
	  
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_kehuziliao where kehubianhao='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("kehuname")
		else
		response.write "无"
		end if
		rst.close
		set rst= nothing
	  %> 
	  </div></td>
      <td><div align="center"><%=rs("xsshuliang")%></div></td>
      <td><div align="center"><%=rs("xsjiage")%></div></td>
      <td><div align="center"><%=rs("rkjiagehe")%></div></td>
    </tr>
 
       <%  
     rs.movenext
    next
	
   %>
  </table>
</div>
 
<p>
  <%
rs.close
	set rs=nothing
	call endconn()
end if '判断日期%>
</p>
<p>&nbsp;</p>
<div align="center"><a href="#" onclick=history.go(-1)>　　返　　回　</a>
</div>