📄 type.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% response.buffer=true %>
<%const title="仓库物品类别分类程序"%>
<!-- #include file=opendb.inc-->
<!--#include file=myPrg.asp-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0" CHARSET="GB2312">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body topmargin="0">
<%
CheckLogin
Showtitle(title)
getStorage(session("storage"))
%>
<%
if request.querystring("prnt")="" then
session("prnt")=0
else
session("prnt")=request.querystring("prnt")
end if
gettypepath
response.write "<hr size=1>"
' 列出类别目录
sql="select * from type where parent_id="&session("prnt")&" and in_storage="&session("storage")
rs.open sql,conn,3,2
if not rs.eof then
do while not rs.eof
sql="select count(*) as num_count from stock where type_id="&rs("type_id")
rs2.open sql,conn
pzs=rs2("num_count")
rs2.close
sql="select count(*) as num_count from type where parent_id="&rs("type_id")
rs2.open sql,conn
lbs=rs2("num_count")
rs2.close
if lbs=0 then
show_lbs=""
else
show_lbs="(<font color=green>"&lbs&"</font>)"
end if
response.write "<font color=green><li><a href=type.asp?prnt="&rs("type_id") &">"&rs("type_name")&"</a> </font>(<font color=red>"&pzs&"</font>)"&show_lbs&"</li></font>"
rs.movenext
loop
else
response.write "<li>没有下级类别 "
' [ <a href=type.asp?prnt="&session("prnt")&">查看该类明细</a> ]</li>"
end if
rs.close
%>
<hr size=1>
<table border='0' width='100%' bordercolorlight='#c0c0c0' cellspacing='1' bordercolordark='#FFFFFF' height='26'>
<%
gettype(session("prnt"))
' <tr bgcolor='#ff bc bc'><td colspan=9>
sql="select * from stock where type_id="&session("prnt")&" order by name"
rs.open sql,conn
if not rs.eof then
response.write " <tr bgcolor='#0000A0'>"
response.write " <td nowrap align=center ><font color=white>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -