?? report.asp
字號:
<%@language=vbscript%>
<% response.buffer=true %>
<%'On Error Resume Next%>
<%const title="今日庫存報表"%>
<html>
<head>
<title><%=title%></title>
<link rel=stylesheet type=text/css href=forum.css>
</head>
<body topmargin="0">
<!--#include file=myprg.asp-->
<!--#include file=Opendb.inc-->
<p>
<div align="center">
<h1 align="center">今日庫存報表
</p>
</h1>
<p>
<%
CheckLogin
getStorage(session("storage"))
%>
<%
dim total_in_sum,total_out_sum
response.write " 今日為：<font color=red>"&date()&"</font>"
sql="select * from type where in_storage="&session("storage")
rs.open sql,conn,3,2
response.write " 共 <font color=red>"&rs.recordcount&"</font> 個類別； "
rs.close
sql="select * from stock where storage_id="&session("storage")
rs.open sql,conn,3,2
response.write " 共 <font color=red>"&rs.recordcount&"</font> 種名稱 "
rs.close
'if not rs.eof then
response.write "<table width=100% align=center border='1' cellspacing='0' bordercolordark='#FFFFFF' bordercolorlight='#DADBFC' bordercolor='#00000'>"
ShowHeader
ShowContent
response.write "</table>"
'else
' showerror("沒有數據！")
'end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
sql="select * from rpt_log where storage_id="&session("storage")&" and rq=date()"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("rq")=date()
rs("storage_id")=session("storage")
rs("isprint")=true
rs("user")=session("username")
rs("sj")=now()
rs("count_in")=total_in_sum
rs("count_out")=total_out_sum
rs.update
rs.close
sql="update stock set last_stock=now_stock where storage_id="&session("storage")
set rs=conn.execute(sql)
showsuccess("提示：你已經成功做好了報表！")
else
showerror("警告：你已經做了報表，不能再做了！")
end if
else
%>
<p align=center>
<form method=Post action=report.asp>
<table border=0 align=center>
<tr>
<td nowrap>
<input class=buttonface type=submit name=EndReport value=完成今日報表>
<input class=buttonface type=button name=refresh value= 刷 新 onclick=javascript:location.reload()>
<input class=buttonface type=button name=preview value= 打印預覽 onclick=javascript:window.open('preview.asp','abc','resizable=yes,scrollbars=yes,width=790,height=520,left=2,top=0,windowstate=max')>
<input class=buttonface type=button name=retu value= 返 回 onclick=history.go(-1)>
</td>
</tr>
</table>
<br>
</form>
<%
end if
%>
</body>
</html>
<%
sub ShowHeader()
response.write " <tr bgcolor='#0000A0'>"
response.write " <td nowrap rowspan=2 align=center ><font color=white>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -