📄 preview.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-->
<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 + -