📄 preview.asp
字号:
<%
'#################################################################
'# 兄弟资源网仓库管理 ver.2001
'#
'# 版权所有: 兄弟资源网
'#
'# 制作人 : 江湖兄弟
'#
'# 主页地址: http://soft.51dns.net/ 兄弟资源网
'#
'#################################################################
'#【版权声明】
'#
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛告诉我们
'#################################################################
%>
<%@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-->
<div align=center><font size=4>库 存 日 报 表</font></div><br>
<%
CheckLogin
getStorage(session("storage"))
%>
<%
dim count_in,count_out
response.write " 今日为："&date()&""
sql="select * from type where in_storage="&session("storage")
rs.open sql,conn,3,2
response.write " 共 "&rs.recordcount&" 个类别； "
rs.close
sql="select * from stock where storage_id="&session("storage")
rs.open sql,conn,3,2
response.write " 共 "&rs.recordcount&" 种名称 "
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
%>
</body>
</html>
<%
sub ShowHeader()
response.write " <tr >"
response.write " <td nowrap rowspan=2 align=center >⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -