?? count_buy.asp
字號:
<%
if session("username")="" then
%>
<script language="javascript">
top.location.href="../login.asp"
</script>
<%
response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->
<html>
<head>
<title><%=dianming%> - 進貨統計</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style2.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<%
if fla3="0" then
%>
<br><center><font color="#FF0000">你不具備此權限，請與管理員聯系！</font></center>
<%
response.end
end if
'取得當前頁碼
currentpage=request("page")
'response.write currentpage
'response.end
if currentpage<1 or currentpage="" then
currentpage="1"
end if
'取得搜索關鍵字
nowstartdate=request("startdate")
if nowstartdate="" then
nowstartdate=date()-30
end if
nowenddate=request("enddate")
if nowenddate="" then
nowenddate=date()
end if
nowkeyword=request("keyword")
nowpaixu=request("paixu")
nowpaixu21=request("paixu2")
if nowpaixu21="1" then
nowpaixu2="2"
else
nowpaixu2="1"
end if
nowpaixu31=request("paixu3")
if nowpaixu31="1" then
nowpaixu3="2"
else
nowpaixu3="1"
end if
%>
<table width="98%" border="0" cellpadding="0" cellspacing="2" align="center">
<form name="form2">
<tr>
<td width="24%" height="21"> <img src="../Images/ico/ico57.gif" width="32" height="32" hspace="2" vspace="2" align="absmiddle"><font size="+1"><strong> 進貨統計</strong></font></td>
<td width="76%" align="right">
開始日期：
<input name="startdate" value="<%=nowstartdate%>" readonly onClick="JavaScript:window.open('day.asp?form=form2&field=startdate&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=170,top=150,left=590');" style="width:100px">
結束日期：
<input name="enddate" value="<%=nowenddate%>" readonly onClick="JavaScript:window.open('day.asp?form=form2&field=enddate&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=170,top=150,left=740');" style="width:100px">
<input type="text" name="keyword" size="20" value="<%=nowkeyword%>">
<input type="hidden" name="hid" value="ok">
<input type="submit" value=" 查詢 ">
</td>
</tr>
</form>
</table>
<table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" class="TableMenu">
<tr class="a1" style="color:#ffffff;font-size:12px;">
<th width="13%" height="30">貨號</th>
<th width="10%">所屬大類</th>
<th width="12%">所屬小類</th>
<th width="20%">產品名稱</th>
<th width="9%">
<%if nowpaixu2="2" then%>
<a href="?paixu3=<%=nowpaixu31%>&paixu2=2&paixu=r&page=<%=currentpage%>&startdate=<%=nowstartdate%>&enddate=<%=nowenddate%>&keyword=<%=nowkeyword%>" class="title">進貨時間<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle"></a>
<%else%>
<a href="?paixu3=<%=nowpaixu31%>&paixu2=1&paixu=r&page=<%=currentpage%>&startdate=<%=nowstartdate%>&enddate=<%=nowenddate%>&keyword=<%=nowkeyword%>" class="title">進貨時間<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle"></a>
<%end if%></th>
<th width="9%">經辦人</th>
<th width="11%">收貨倉庫</th>
<th width="9%">
<%if nowpaixu3="2" then%>
<a href="?paixu2=<%=nowpaixu21%>&paixu3=2&paixu=j&page=<%=currentpage%>&startdate=<%=nowstartdate%>&enddate=<%=nowenddate%>&keyword=<%=nowkeyword%>" class="title">進貨數量<img src="../images/up2.gif" border="0" hspace="2" align="absmiddle"></a>
<%else%>
<a href="?paixu2=<%=nowpaixu21%>&paixu3=1&paixu=j&page=<%=currentpage%>&startdate=<%=nowstartdate%>&enddate=<%=nowenddate%>&keyword=<%=nowkeyword%>" class="title">進貨數量<img src="../images/down2.gif" border="0" hspace="2" align="absmiddle"></a>
<%end if%>
</th>
</tr>
<%
set rs_buy =server.createobject("ADODB.RecordSet")
sql="select * from buy where type=0"
if nowstartdate<>"" then
sql=sql&" and selldate-#"&nowstartdate&"#>=0"
end if
if nowenddate<>"" then
sql=sql&" and selldate-#"&nowenddate&"#<=0"
end if
if nowkeyword<>"" then
sql=sql&" and (title like '%"&nowkeyword&"%' or huohao like '%"&nowkeyword&"%')"
end if
if nowpaixu="r" then
if nowpaixu2="1" then
sql=sql&" order by selldate desc"
else
sql=sql&" order by selldate"
end if
elseif nowpaixu="j" then
if nowpaixu3="1" then
sql=sql&" order by shulian"
else
sql=sql&" order by shulian desc"
end if
else
sql=sql&" order by id desc"
end if
rs_buy.open sql,conn,1,3
if not rs_buy.eof then
rs_buy.pagesize=16
rs_buy.absolutepage=currentpage
for currentrec=1 to rs_buy.pagesize
if rs_buy.eof then
exit for
end if
sql="select * from produit where id="&rs_buy("id_produit")
set rs_produit=conn.execute(sql)
%>
<tr bgcolor="#ececec" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#ececec'">
<td align="center" height="25"><%if rs_produit.eof then%><%=rs_buy("huohao")%><%else%><%=rs_produit("huohao")%><%end if%></td>
<td align="center"><%if rs_produit.eof then%><%=rs_buy("bigclass")%><%else%>
<%
sql="select * from bigclass where id="&rs_produit("id_bigclass")
set rs_bigclass=conn.execute(sql)
%>
<%=rs_bigclass("bigclass")%>
<%end if%></td>
<td align="center"><%if rs_produit.eof then%><%=rs_buy("smallclass")%><%else%>
<%
sql="select * from smallclass where id="&rs_produit("id_smallclass")
set rs_smallclass=conn.execute(sql)
%>
<%=rs_smallclass("smallclass")%>
<%end if%></td>
<td align="center"><%if rs_produit.eof then%><%=rs_buy("title")%><%else%><%=rs_produit("title")%><%end if%></td>
<td align="center"><%=rs_buy("selldate")%></td>
<td align="center"><%=rs_buy("login")%></td>
<td align="center"><%=rs_buy("ku")%></td>
<td align="center"><%=rs_buy("shulian")%></td>
</tr>
<%
rs_buy.movenext
next
else
%>
<tr bgcolor="#ececec" onMouseOver="this.bgColor='#ffffff'" onMouseOut="this.bgColor='#ececec'">
<td colspan="10" height="25" align="center" style="color:red"><b>沒有找到記錄</b></td>
</tr>
<%
end if
%>
<%
if rs_buy.recordcount>0 then
%>
<tr class="a1">
<td colspan="10" height="30">
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td width="3%" style="color:#FFFFFF; font-weight:bold" align="right"></td>
<td width="96%" align="right" style="color:#FFFFFF;">
<font color=#ffffff><b><%=rs_buy.recordcount%></b></font> 條信息 共 <font color=#ffffff><b><%=rs_buy.pagecount%></b></font> 頁
<%
nowstart=currentpage-9
if nowstart<1 then
nowstart=1
end if
nowend=currentpage+10
if nowend>rs_buy.pagecount then
nowend=rs_buy.pagecount
end if
for ipage=nowstart to nowend
if cstr(ipage)=cstr(currentpage) then
response.write " <span style='font-weight:bold;color:#5858E6'>" & ipage &"</span> "
else
response.write " [ <a href='?paixu="&nowpaixu&"&paixu2="&nowpaixu21&"&paixu3="&nowpaixu31&"&startdate="&nowstartdate&"&enddate="&nowenddate&"&keyword="&nowkeyword&"&page="&ipage&"' class='page'>" & ipage &"</a> ] "
end if
next
%>
</td>
<td width="1%"></td>
</tr></table></td></tr>
<%end if%>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -