sc.asp

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

<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>

<%

neirong=Trim(Request("neirong"))
tablename=Trim(Request("name"))
if not (neirong ="" or tablename="") then
 set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_xsdan where "&tablename&" like '%"& neirong &"%'   Order by id desc "
      rs.PageSize = 25    
      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="595" height="34" border="0" cellpadding="1" cellspacing="0">
       <tr class="back_southidc">
         <td width="159"><div align="center">销售单编号</div></td>
         <td width="157"><div align="center">商品名称</div></td>
         <td width="149"><div align="center">客户名</div></td>
         <td width="68"><div align="center">日期</div></td>
         <td width="52"><div align="center">数量</div></td>
         <td width="52"><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> <%=rs("xsdanhao")%></td>
         <td> 

		  <%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
	  %> 
		 
		 
		 
		 </td>
         <td>
		 <%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
	  %>
		 
		 
		 </td>
         <td><div align="center"><%=rs("xsriqi")%>	</div></td>
         <td><div align="center"><%=rs("xsshuliang")%></div></td>
         <td><div align="center"><%=rs("xsjiage")%></div></td>
       </tr>
	   
  
       <%  
     rs.movenext
    next
   %>
     </table>
	 </div>
	 <p>    
      
  

   

       </table>
     </p>
	 <div align="center"><span class="blue">
  <%if rs.pagecount > 0 then%>
  </span>
</div>
<td width="15%" align="left" class="blue"><div align="center" class="blue">当前页<%=intpage%>/<%=rs.PageCount%></div></td>
<div ><span class="blue">
  <%else%>
  </span>
</div>
<td width="12%" align="left" class="blue"><div align="center"><BR>
  尚无任何记录</div></td>
<div align="center"><span class="blue">
  <%end if%>
  </span>
</div>
<td width="73%" align="right"> <div align="center">
  <p class="blue"><a href="sc.asp?page=1&neirong=<%=neirong%>&name=<%=tablename%>">首页</a>| 
      <%if pre then%>
      <a href="sc.asp?page=<%=intpage -1%>&neirong=<%=neirong%>&name=<%=tablename%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="sc.asp?page=<%=intpage +1%>&neirong=<%=neirong%>&name=<%=tablename%>">下页</a> |
      <%end if%>
      <a href="sc.asp?page=<%=rs.PageCount%>&neirong=<%=neirong%>&name=<%=tablename%>">尾页</a> </p>
  </div>
  <p class="blue">&nbsp;  </p>
</html>
<%
else  %>
<script language="javascript">
<!--
window.history.go(-1)
-->
</script> <%
end if%>