📄 dx_tolist.asp

📁 功能介绍： 1、产品入库
💻 ASP
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>商品列表</title>
<!--#include file="Inc/Config.asp"-->
<!--#include file="inc/Dx_admin_check.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Css/style.css" rel="stylesheet" type="text/css">
<style>
body {
	background-color:#FFFFFF;
}
</style>
<script language="javascript">
function collapse(img, objName)
{
	var obj;
	obj = document.getElementById(objName);
	if (img.src.indexOf('open') != -1)
	{
		img.src = img.src.replace('open', 'close');
		obj.style.display = 'none';
	}
	else
	{
		img.src = img.src.replace('close', 'open');
		obj.style.display = '';
	}
}

function preview() { 
	bdhtml=window.document.body.innerHTML; 
	sprnstr="<!--startprint-->"; 
	eprnstr="<!--endprint-->"; 
	prnhtml=bdhtml.substr(bdhtml.indexOf(sprnstr)+17); 
	prnhtml=prnhtml.substring(0,prnhtml.indexOf(eprnstr)); 
	window.document.body.innerHTML=prnhtml; 
	window.print(); 
	window.document.body.innerHTML=bdhtml; 
}
</script>
</HEAD>

<BODY>
<%
if session("Dx_Admin")="" then
%>
<br><center><img src="Images/note.gif" align="absmiddle">&nbsp;<font color="#FF0000">你不具备此权限，请与管理员联系！</font></center>
<%  
 	response.end
end if
%>
<script>
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>
<%
dx_business_name = request.QueryString("dx_business_name")
dx_ToList_user = request.QueryString("dx_ToList_user")
'keyword = request.QueryString("keyword")
order1 = request.QueryString("order1")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr>
<td><img src="Images/r_1.gif" alt="" /></td>
<td width="100%" background="Images/r_0.gif">
  <table cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td>&nbsp;入库单列表</td>
	  <td align="right">&nbsp;</td>
    </tr>
  </table>
</td>
<td><img src="Images/r_2.gif" alt="参品详细" /></td>
</tr>
<tr>
<td></td>
<td>
<!--startprint-->
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<form name="Product" action="del.asp" method="get"> 
<input name="n" type="hidden" value="1" />
  <tr align="center">
    <td class="category" width="10">&nbsp;</td>
    <td class="category" height="30"><a href="?order1=<%if request("order1")="dx_ToList_id asc" then%>dx_ToList_id desc<%else%>dx_ToList_id asc<%end if%>&dx_product_class=<%=dx_product_class%>&keyword=<%=keyword%>&dx_product_depot=<%=dx_product_depot%>" class="title">入库编号<%if request("order1")="dx_ToList_id asc" then%><img src="Images/up2.gif" border="0" hspace="2" align="absmiddle"><%else%><img src="Images/down2.gif" border="0" hspace="2" align="absmiddle"><%end if%></a></td>
	<td class="category"><a href="?order1=<%if request("order1")="dx_business_name asc" then%>dx_business_name desc<%else%>dx_business_name asc<%end if%>&dx_product_class=<%=dx_product_class%>&keyword=<%=keyword%>&dx_product_depot=<%=dx_product_depot%>" class="title">进货商<%if request("order1")="dx_business_name asc" then%><img src="Images/up2.gif" border="0" hspace="2" align="absmiddle"><%else%><img src="Images/down2.gif" border="0" hspace="2" align="absmiddle"><%end if%></a></td>
	<td class="category"><a href="?order1=<%if request("order1")="dx_ToList_user asc" then%>dx_ToList_user desc<%else%>dx_ToList_user asc<%end if%>&dx_product_class=<%=dx_product_class%>&keyword=<%=keyword%>&dx_product_depot=<%=dx_product_depot%>" class="title">经办人<%if request("order1")="dx_ToList_user asc" then%><img src="Images/up2.gif" border="0" hspace="2" align="absmiddle"><%else%><img src="Images/down2.gif" border="0" hspace="2" align="absmiddle"><%end if%></a></td>
	<td class="category">债务</td>
	<td class="category"><a href="?order1=<%if request("order1")="dx_ToList_time asc" then%>dx_ToList_time desc<%else%>dx_ToList_time asc<%end if%>&dx_product_class=<%=dx_product_class%>&keyword=<%=keyword%>&dx_product_depot=<%=dx_product_depot%>" class="title">入库日期<%if request("order1")="dx_ToList_time asc" then%><img src="Images/up2.gif" border="0" hspace="2" align="absmiddle"><%else%><img src="Images/down2.gif" border="0" hspace="2" align="absmiddle"><%end if%></a></td>
  </tr>
<%
sql="select * from [dx_ToList_list] where "
if dx_business_name<>"" then
	sql=sql&"dx_business_name='"&dx_business_name&"' and "
end if
if dx_ToList_user<>"" then
	sql=sql&"dx_ToList_user='"&dx_ToList_user&"' and "
end if
if dx_ToList_time<>"" then
	sql=sql&"dx_ToList_time='"&dx_ToList_time&"' and "
end if
sql=left(sql,len(sql)-4)
if order1<>"" then
	sql=sql&" order by "&order1&""
else
	sql=sql&" order by dx_ToList_id desc"
end if

rs.open sql,conn,1,1
if not rs.eof then
	Dx_product_count=9
	rs.pagesize=Dx_product_count
	page_now=1
	if trim(request.QueryString("page"))<>"" then
		page_now=cint(trim(request.QueryString("page")))
	end if
	if page_now>rs.pagecount or page_now<0 then
		page_now=1
	end if
	rs.absolutepage=page_now
		i=1
	while(not rs.eof) and i<Dx_product_count+1
%>
  <tr onMouseOver="this.className='highlight'" onMouseOut="this.className=''" onDblClick="javascript:var win=window.open('Dx_print_buy.asp?dx_ToList_id=<%=rs("dx_ToList_id")%>','详细信息','width=853,height=470,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes'); win.focus()">
    <td align="center"><img src="Images/folder_close.gif" style="cursor:hand" onClick="collapse(this, 'buy<%=i%>')" /></td>
	<td align="center" height="25"><%=rs("dx_ToList_id")%></td>
	<td align="center"><%=rs("dx_business_name")%></td>
	<td align="center"><%=rs("dx_ToList_user")%></td>
	<td align="center">
	<%
	sqlstr="select * from [dx_ToDepot] where dx_ToDepot_list="&rs("dx_ToList_id")
	rst.open sqlstr,conn,1,1
		if rst("dx_ToDepot_debt")=0 then
			response.Write("<font style='color:#009900; font-weight:bold;'>两讫</font>")
		elseif rst("dx_ToDepot_debt")=1 then
			response.Write("<a href='#' onclick=""javascript:if (confirm('欠债是否已经还清!')) location='del.asp?n=3&id="&rst("dx_ToDepot_list")&"'""><font style='color:#FF0000; font-weight:bold;'>欠债</font></a>")
		elseif rst("dx_ToDepot_debt")=2 then
			response.Write("<font style='color:#000000; font-weight:bold;'>已清</font>")
		end if
	rst.close
	%>
	</td>
	<td align="center"><%=rs("dx_ToList_time")%></td>
  </tr>
	<!--详细信息-->
  <tr id="buy<%=i%>" style="display:none;">
    <td colspan="16" class="category">
	  <table align="center" cellpadding="4" cellspacing="1" class="grid" border="1" width="100%">
		<tr align="center">
		  <td width="70">编号</td>
		  <td height="30">商品名称</td>
		  <td height="30">进货数量</td>
		  <td>进价</td>
		</tr>
		<%

		sqlstr="select * from [Product_to_ToDepot] where dx_ToDepot_list="&rs("dx_ToList_id")
		rst.open sqlstr,conn,1,1
		if not rst.eof then
			while not rst.eof
		%>	  
	    <tr>
		  <td align="center"><%=rst("dx_ToDepot_id")%></td>
		  <td align="center"><%=rst("dx_product_model")%></td>
		  <td align="center"><%=rst("dx_ToDepot_buy_count")%></td>
		  <td align="center"><%=rst("dx_ToDepot_buy_price")%></td>
		</tr>
		<%
			rst.movenext
			wend
		else
		response.Write("<div style='text-align:center'>暂无!</div>")
		end if
		rst.close
		%>
	  </table>
	</td>
  </tr>
<%
	rs.movenext
	i=i+1
	wend
else
%>
  <tr align="center" onMouseOver="this.className='highlight'" onMouseOut="this.className=''">
    <td colspan="16" height="25" align="center" style="color:red"><b>没有找到记录</b></td>
  </tr>
<%end if%>
  <tr>
    <td colspan="16" height="30" class="category">
	<table cellpadding=0 cellspacing=0 width="100%">
	<tr>
	<td width="20%" align="left" style="color:#FF0000;">双击查看打印单</td>  
	<td width="80%" align="right">
<%
	if page_now=1 then 
		response.Write("第一页"&vbTab)
	else response.Write("<a href=""?page=1&dx_product_class="&dx_product_class&"&keyword="&keyword&"&dx_product_depot="&dx_product_depot&""">第一页</a>"&vbTab)
	end if
	if page_now>1 and rs.pagecount>1 then 
		response.Write("<a href=""?page="&page_now-1&"&dx_product_class="&dx_product_class&"&keyword="&keyword&"&dx_product_depot="&dx_product_depot&""">上一页</a>"&vbTab)
	else response.Write("上一页"&vbTab)
	end if
	if page_now<rs.pagecount then 
		response.Write("<a href=""?page="&page_now+1&"&dx_product_class="&dx_product_class&"&keyword="&keyword&"&dx_product_depot="&dx_product_depot&""">下一页</a>"&vbTab)
	else response.Write("下一页"&vbTab)
	end if
	if page_now<>rs.pagecount then 
		response.Write("<a href=""?page="&rs.pagecount&"&dx_product_class="&dx_product_class&"&keyword="&keyword&"&dx_product_depot="&dx_product_depot&""">尾页</a>"&vbTab)
    else response.Write("尾页"&vbTab)
	end if 
%>
		<select name="page" onChange="javascript:location.href='?dx_product_class=<%=dx_product_class%>&keyword=<%=keyword%>&dx_product_depot=<%=dx_product_depot%>&page='+this.options[this.selectedIndex].value">
		<%
		for p = 1 to rs.pagecount
		%>
		  <option <%if page_now=p then%>selected="selected"<%end if%> value="<%=p%>"><%=p%></option>
		<%
		next
		rs.close
		%>
		</select>
		<!--<input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form)" style="border:0"> 全选
		<input type="submit" value="删 除" onClick="return confirm('此操作无法恢复！！！请慎重！！！\n\n部分有关联的数据将无法删除!\n\n确定要删除所选择的商品记录吗？')" class="button">-->
	</td>
  </tr>
</table></td></tr>

</form>   
</table>
<!--endprint-->
</td>
<td></td>
</tr>
<tr>
<td><img src="Images/r_4.gif" alt="" /></td>
<td></td>
<td><img src="Images/r_3.gif" alt="" /></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -