📄 index.asp
字号:
<% option explicit %>
<!-- #include virtual="/admin/store/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：库存管理--浏览库存物品列表
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim keyWord,stp,storeType
Dim Sql,perpage,pages,records,empty_msg
Dim RS
'---验证身份----
Call AdminCheck
storeType=getForm("storeType")
keyWord=getForm("keyWord")
Sql="select * from t_GoodsCon where "
if not(storeType="" or isnull(storeType)) then
Sql=Sql&" St_typeid="& storeType
end if
if not(keyWord="" or isnull(keyWord)) then
Sql=Sql&" Ste_name like '%"&keyWord&"%' or Ste_desc like '%"&keyWord&"%'"
end if
if (keyWord="" or isnull(keyWord)) and (storeType="" or isnull(storeType)) then
Sql="select * from t_GoodsCon"
end if
Sql=Sql&" order by ste_time desc"
DB_Connect(strconn)
Set rs=Server.CreateObject("adodb.recordset")
rs.Open sql,oConn,1,1
'-------------set page-----------
If rs.Eof and rs.Bof Then
perpage=1
pages=1
records=0
empty_msg=1
Else
rs.pagesize=5 'MaxPerPage
pages=rs.pagecount
records=rs.recordcount
stp=getForm("stp")
if stp="" or stp=empty then
perpage=1
else
perpage=int(stp)
if perpage>pages then
perpage=pages
end if
end if
rs.absolutepage=perpage
empty_msg=0
'----------------------------
End if
%>
<HTML>
<HEAD>
<title>电子商城</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="/inc/css/pub.css" TYPE="TEXT/CSS">
<SCRIPT LANGUAGE="JavaScript" SRC="/inc/js/shop.js">
</SCRIPT>
</HEAD>
<BODY BGCOLOR=#ffffff TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include virtual="/admin/inc/all_top.asp" -->
<!--#include virtual="/admin/inc/all_first_top.asp" -->
<!--#include virtual="/admin/inc/all_second_top.asp" -->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=710>
<TR>
<TD COLSPAN=3><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0 ALT=""></TD>
</TR>
<TR>
<TD WIDTH=170 ALIGN=right VALIGN=top>
<!--#include virtual="/admin/inc/default_left.asp" -->
</TD>
<TD WIDTH=15><IMG SRC="/images/dot.gif" WIDTH="15" HEIGHT="1" BORDER=0 ALT=""></TD>
<TD VALIGN=top>
<TABLE WIDTH=525 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD height=25><B><FONT COLOR="#0033CC">物品列表</FONT></B><IMG SRC="/images/arrow.gif" BORDER=0>
<B><FONT COLOR="#0033CC"><% if storeType<>"" then %><%=getstname(storetype,oConn)%><% else %>all<% end if %></FONT></B></TD>
</TR>
<TR BGCOLOR="#000000">
<TD><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ALT=""></TD>
</TR>
</TABLE>
<FORM NAME="form1" METHOD="post" ACTION="index.asp" onsubmit="javascript:jumpto(document.form1.page.value,<%=pages%>);">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=2>
<TR>
<TD ALIGN=left>
<% If perpage=1 Then %>
首页 <<上一页
<% Else %>
<A HREF="javascript:jumpto(1,<%=pages%>);">首页</A>
<A HREF="javascript:jumpto(<%=perpage-1%>,<%=pages%>);"><<上一页</A>
<% End if %>
<% If perpage=pages Then %>
下一页>> 尾页
<% Else %>
<A HREF="javascript:jumpto(<%=perpage+1%>,<%=pages%>);">下一页>></A>
<A HREF="javascript:jumpto(<%=pages%>,<%=pages%>);">尾页</A>
<% End if %></TD>
<TD CLASS="ko" ALIGN=right>第<%=perpage%>页|共<%=pages%>页 进入第
<INPUT TYPE="text" SIZE=2 NAME="stp" VALUE="<%=stp%>">
页<INPUT TYPE="hidden" NAME="keyword" VALUE="<%=keyWord%>">
<INPUT TYPE="hidden" NAME="storetype" VALUE="<%=storeType%>">
<INPUT TYPE="image" BORDER="0" NAME="imageField" SRC="/images/go.gif"></TD>
</TR>
</TABLE>
</FORM>
<% dim i,stnav
i=0
if empty_msg=0 then
do while (not rs.eof) and (i<5) 'MaxPerPage)
stnav=""
%>
<!-- list product -->
<TABLE WIDTH=525 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD><IMG SRC="/images/left_topcorner.gif" BORDER="0"></TD>
<TD WIDTH=100% BGCOLOR="#CCCCCC"><FONT COLOR="#0233CE" CLASS=v9><%=rs("ste_name")%> >></FONT></TD>
<TD><IMG SRC="/images/right_topcorner.gif" BORDER="0"></TD>
</TR>
<TR>
<TD BACKGROUND="/images/pborder_left.gif"><IMG SRC="../images/dot.gif" WIDTH="20" HEIGHT="1" BORDER=0 ALT=""></TD>
<TD VALIGN=top ALIGN=center>
<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=5 BORDER=0>
<TR>
<TD WIDTH=80 ALIGN=center VALIGN=top ROWSPAN=2><IMG SRC="
<%response.write sPath_Info & rs("ste_imgurl")%>
" BORDER="0" width="80" ></TD>
<TD CLASS=v9 VALIGN=top><%=freturn(rs("Ste_desc"))%> </TD>
</TR>
<TR>
<TD VALIGN=bottom>
<TABLE>
<TR>
<TD><IMG SRC="/images/sign2.gif" BORDER=0 ALT=""></TD>
<TD CLASS=txt><A HREF="detail.asp?itemid=<%=rs("Ste_id")%>">详细信息</A></TD>
<TD><IMG SRC="/images/sign2.gif" BORDER=0 ALT=""></TD>
<TD CLASS=txt><FONT CLASS=v20 COLOR=#990000><B>¥<%response.write RS("ste_value")%> </B></FONT></TD>
<TD><IMG SRC="/images/sign2.gif" BORDER=0 ALT=""></TD>
<TD CLASS=txt><A HREF="modify.asp?id=<%=rs("ste_id")%>">管理</A></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
<TD BACKGROUND="/images/pborder_right.gif"><IMG SRC="/images/dot.gif" WIDTH="20" HEIGHT="1" BORDER=0 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=3 BGCOLOR="#CCCCCC"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ALT=""></TD>
</TR>
</TABLE>
<!-- list product -->
<!-- space 10px -->
<TABLE WIDTH=525 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD HEIGHT=10><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0 ALT=""></TD>
</TR>
</TABLE>
<!-- space 10px -->
<%
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
%>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="5">
<TR>
<TD ALIGN=left>
<% If perpage=1 Then %>
首页 <<上一页
<% Else %>
<A HREF="javascript:jumpto(1);">首页</A>
<A HREF="javascript:jumpto(<%=perpage-1%>);"><<上一页</A>
<% End if %>
<% If perpage=pages Then %>
下一页>> 尾页
<% Else %>
<A HREF="javascript:jumpto(<%=perpage+1%>);">下一页>></A>
<A HREF="javascript:jumpto(<%=pages%>);">尾页</A>
<% End if %></TD>
<TD ALIGN="RIGHT">每页:5<%'=maxperpage%>个 页次:<%=perpage%>/<%=pages%>页 物品总数:<%=records%></TD>
</TR>
</TABLE>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD BACKGROUND="/images/gotop_bg.gif"><A HREF="#top"><IMG SRC="/images/gotop.gif" BORDER="0"></A></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<!--#include virtual="/inc/default_end.asp" -->
<BR>
</BODY>
</HTML>
<% call DB_DisConnect %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -