📄 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-->
<%
CheckLogin
showtitle(title)
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
%>
<!--#include file=copyright.asp-->
</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 + -