📄 listspe.asp
字号:
<% option explicit %>
<!-- #include virtual="/admin/store/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：库存管理--浏览库存物品/特价列表
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim stp
Dim Sql,perpage,pages,records,empty_msg
Dim RS
'---验证身份----
Call AdminCheck
Sql=" SELECT t_GoodsCon.Ste_name, t_GoodsCon.St_typeid, t_GoodsCon.Ste_imgurl,t_GoodsCon.Ste_desc, t_SpecialGoods.SG_nowValue,t_GoodsCon.Ste_Id FROM t_GoodsCon RIGHT OUTER JOIN t_SpecialGoods ON t_GoodsCon.Ste_Id = t_SpecialGoods.Ste_Id"
Sql=Sql&" order by t_GoodsCon.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">all</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="image" BORDER="0" NAME="imageField" SRC="/images/go.gif"></TD>
</TR>
</TABLE>
</FORM>
<% dim i
i=0
if empty_msg=0 then
do while (not rs.eof) and (i<5) %>
<!-- 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(3))%> </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(5)%>">详细信息</A></TD>
<TD><IMG SRC="/images/sign2.gif" BORDER=0 ALT=""></TD>
<TD CLASS=txt><FONT CLASS=v20 COLOR=#990000><B>¥<%response.write RS("SG_nowValue")%> </B></FONT></TD>
<TD><IMG SRC="/images/sign2.gif" BORDER=0 ALT=""></TD>
<TD CLASS=txt><A HREF="delSpecial.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 + -