?? brow.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)
showtypelist
%>
<hr size=1>
<%
getStorage(session("storage"))
if Request.Querystring("type_id")="" then
response.write " 查看類別: [ <font color=red>所有類別</font> ]"
session("prnt")=0
else
sql="select * from type where type_id="&Request.Querystring("type_id")
rs.open sql,conn,3,2
if not rs.eof then
response.write " 查看類別: [ <font color=red>"&rs("type_name")&"</font> ]"
else
response.write " 查看類別: [ <font color=red>找不到數據（錯誤）</font> ]"
end if
rs.close
session("prnt")=request.querystring("type_id")
end if
%>
<% const MaxPerPage=50 '分頁顯示的紀錄個數
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim detail
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
'response.write "currentpage="¤tpage
%>
<%
session("key")=replace(request.form("keyword"),"<","<")
session("key")=replace(session("key"),">",">")
%>
<form method=Post action=brow.asp>
<table border=0 align=center>
<tr>
<td nowrap>關鍵字：<input class=smallinput size=10 type=textbox name=keyword value=<%=session("key")%>></td>
<td nowrap><input class=buttonface type=submit name=ok value=查找>
[ <a href=newname.asp>新增</a> |
<a href=manage.asp>返回</a> ]
</td>
</tr>
</table>
<br>
<table width=100% align=center border='0' cellspacing='0' bordercolordark='#FFFFFF' bordercolorlight='#DADBFC' bordercolor='#00000'>
<%ShowContent%>
</table>
</form>
<%ShowPages%>
<!--#include file=copyright.asp-->
</body>
</html>
<%
sub ShowContent()
keyword=request.form("keyword")
if keyword="" then
searchsql=""
else
searchsql=" and (name like'%" &keyword &"%' or memo like'%" &keyword &"%')"
end if
if Request.Querystring("type_id")="" then
sql="select * from stock where storage_id="&session("storage")
else
sql="select * from stock where storage_id="&session("storage") &" and type_id="&Request.Querystring("type_id")
end if
sql=sql+searchsql
rs.open sql,conn,3,2
i=0
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 + -