📄 jdingdan.asp

📁 下了就能用不信你看一下一定能用的
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../Inc/syscode.asp"-->
<html>
<head>
<title>进货单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/test.css" rel="stylesheet" type="text/css">
<link href="../css/body.css" rel="stylesheet" type="text/css">
<link href="../css/calendar-blue.css" rel="stylesheet" type="text/css">
<script src="../Js/Calendar.js"></script>
<script language="JavaScript">
<!--

function ckmodi(){
if (document.ck_id.id.value==""){
alert('请选择要修改的记录！');
return false;
}
window.open("jdingdan_modi.asp?id=" + document.ck_id.id.value,"opener","width=750,height=385,resizable=no,scrollbars=no,statue=no,toolbar=no,menubar=no,location=no,left=150,top=80");
}

function ckview(id,bill_bh){
window.open("mingxidingdan_view.asp?stock_id="+id+"&bill_bh="+bill_bh,"_blank","height=385,width=750,resizable=no,scrollbars=no,statue=no,toolbar=no,menubar=no,location=no,left=150,top=80");
}
//-->
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>

<body topmargin="0" leftmargin="0">

<table width="100%" border="0" bgcolor="#E8E8E8">
<form name="form1" method="post" action="">
  <tr>
    <td width="20%" bgcolor="#FFFFFF"><span class="STYLE1">进仓单列表(双击查看明细)</span></td>
    <td width="80%" bgcolor="#FFFFFF">时间查询
        <input name="fromtime" type="text" id="fromtime"  readonly size="10" value="<%
if  request("fromtime")="" then
			response.Write date-30
			else
			response.Write request("fromtime")
			end if
			%>">
        <span class="font"><A onClick="return showCalendar('fromtime', 'y-mm-dd');" href="#"><img src="../Images/Button.gif" id="IMG2" align="absMiddle" border="0" /></A></span>&nbsp;&nbsp;到：
        <input name="totime" type="text"  readonly id="totime" size="10" value="<%
		  if request("totime")="" then
		  response.Write date()
		  else
		  response.Write request("totime")
		  end if
		  %>">
        <span class="font"><A onClick="return showCalendar('totime', 'y-mm-dd');" href="#"><img src="../Images/Button.gif" id="IMG2" align="absMiddle" border="0" /></A></span>&nbsp;
      <input name="chaxun" type="submit" id="chaxun" value="查询">
      <input type="button" name="Submit" value="全部" onClick=location.href="jdingdan.asp"></td>
  </tr>
  </form>
</table>

<table width="100%" height="24" border="0" align="center" cellspacing="0">
  <tr align="center" class="borderon"> 
    <td width="7%" class="borderon">类型</td>
    <td width="13%" class="borderon"> 仓库</td>
    <td width="13%" class="borderon">  进仓单号</td>
    <td width="12%" class="borderon">  日期 </td>
    <td width="11%" class="borderon">供应商</td>
    <td width="7%" class="borderon">总项数</td>
    <td width="8%" class="borderon">总数量</td>
	 <td width="8%" class="borderon">总金额</td>
	 <td width="21%" class="borderon">总金额大写</td>
	
  </tr>
</table>
<table width="100%" border="0" align="center" cellspacing="1" bgcolor="#E8E8E8" id="masterdiv">
  <%
              dim curpage,fromtime,totime
			   fromtime=request("fromtime")
			   totime=request("totime")
			   if fromtime>totime then
			   response.Write("对不起，查询日期出错，请重新选择")
			   end if 
              if request("curpage")="" then
                 curpage=1
              else
                 curpage=request("curpage")
              end if
			  if not isnumeric(trim(request("curpage"))) then
			     curpage=1
			  end if
			  if cint(curpage)=0 then
			   curpage=1
			  end if
             			 
			  const numperpage=25

              set rs=server.createobject("adodb.recordset")
			  if request("fromtime")<>"" then
			sql="select * from ht_stockmaster where Stock_date>=#"&fromtime&"# and Stock_date<=#"&totime&"#"
			  else
              sql="select * from ht_stockmaster"
			  end if
              rs.open sql,conn,1,1
              if rs.eof then
              response.write "<table><tr><td><br></br><center>暂无数据，请添加！</center><br></br></td></tr></table>"
              end if
            if not rs.eof then
            rs.pagesize=numperpage
            dim totalpages
            totalpages=rs.pagecount
			if cint(curpage)>cint(totalpages) then
			   curpage=totalpages
			end if
		    rs.absolutepage=curpage 
            end if        
           dim count
           count=0
		   i=1
           do while not rs.eof and count<numperpage
		   %>
  <tr id=<%=i%> bgcolor="#FFFFFF" title="双击查看详细内容！" onDblClick="ckview('<%=trim(rs("stock_id"))%>','<%=trim(rs("stock_id"))%>')" onMouseOver=this.bgcolor="#FF0000"> 
    <td width="7%" height="25"><div align="center"><%=trim(rs("stock_type"))%></div></td>
    <td width="13%"><div align="center"><%=trim(rs("storehouse"))%></div></td>
    <td width="13%"><div align="center"><%=trim(rs("stock_id"))%></div></td>
    <td width="12%"><div align="center"><%=trim(rs("stock_date"))%></div></td>
    <td width="11%"><div align="center"><%=trim(rs("companyname"))%></div></td>
    <td width="7%"><div align="center"><%=trim(rs("Totalitems"))%></div></td>
    <td width="8%"><div align="center"><%=trim(rs("Totalnumber"))%></div></td>
	<td width="8%"><div align="center"><%=trim(rs("Totalmoney"))%></div></td>
	<td width="21%"><div align="center"><%=trim(rs("TotalmoneyCN"))%></div></td>
	
  </tr>
  <%
              rs.movenext  
			  i=i+1     
                count=count+1
                loop
               rs.close
               set rs=nothing
               closedataconn    
              %>
</table>
<table width="100%" border="0" align="center">
  <tr> 
    <td> <div align="center"><% call PageNum(curpage,totalpages,"?curpage=") %></div></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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