?? 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 + -