📄 class.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#Include File="WrSky_Sql.Asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=webname%>-<%if IsNumeric(request.QueryString("anid"))=False then
response.write"<script>alert(""输入错误，如有疑问请联系管理员！"");location.href=""index.asp"";</script>"
response.end
end if
if IsNumeric(request.QueryString("nid"))=False then
response.write"<script>alert(""输入错误，如有疑问请联系管理员！"");location.href=""index.asp"";</script>"
response.end
end if
leixing=lcase(trim(request("lx")))
select case leixing
case "big"
response.write "大类商品"
case "small"
response.write "小类商品"
case "tejia"
response.write "特价商品"
case "news"
response.write "新品上架"
case else
response.write "新品上架"
end select%></title>
<link href="css/basic.css" rel="stylesheet" type="text/css" />
<link href="css/class1.css" rel="stylesheet" type="text/css" title="class1" />
<link href="css/class2.css" rel="alternate stylesheet" type="text/css" title="class2" />
<script language="javascript" type="text/javascript" src="inc/replacecss.js"></script>
</head>
<body>
<!-- 导航菜单 -->
<!--#include file="top.asp" -->
<div id="content">
<!-- 快捷导航 -->
<div id="content_m">
<%leixing=lcase(trim(request("lx")))
select case leixing
case "big"
anclassid=request("anid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")
rs.close%><a href="index.asp">首页</a> > <span class="new"><%=anclassname%></span>
<%case "small"
anclassid=request("anid")
nclassid=request("nid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")
rs.close
rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,1
nclassname=rs("nclass")
rs.close%><a href="index.asp">首页</a> > <a href=class.asp?lx=big&anid=<%=anclassid%>><%=anclassname%></a> >> <span class="new"><%=nclassname%></span></a>
<%case "tejia"%>
<a href=index.asp>首页</a> >> <span class="new">特价促销
<%case "hot"%> <a href=index.asp>首页</a> >> <span class="new">热卖排行</span>
<%case "news"%><a href=index.asp>首页</a> >> <span class="new">最新上架</span>
<%case else%><a href=index.asp>首页</a> >> <span class="new">最新上架</span><%end select%>
</div>
<!-- 右侧内容 -->
<div id="content_r">
<!-- 醒目广告 -->
<div id="importancead"><a href="ad/classad/classad.asp?id=<%=request("anid")%>"><img src="ad/classad/<%=request("anid")%>.jpg" alt="精品表" border="0" /></a><a href="#"><img src="images/ad/ad2.gif" alt="注册送礼" border="0" /></a></div>
<p class="tit">显示方式 <a href="javascript:void()" onclick="setActiveStyleSheet('class1');return false;" title="样式1">
<img src="images/display_mode_grid.gif" alt="样式1" /></a> <a href="javascript:void()" onclick="setActiveStyleSheet('class2');return false;" title="样式2"><img src="images/display_mode_list_act.gif" alt="样式2" /></a></p>
<div id="productlistmian">
<%set rs=server.createobject("adodb.recordset")
if leixing="big" then
rs.open "select * from shop_books where anclassid="&anclassid&" order by adddate desc",conn,1,1
elseif leixing="small" then
rs.open "select * from shop_books where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
elseif leixing="hot" then
rs.open "select * from shop_books order by chengjiaocount desc",conn,1,1
elseif leixing="tejia" then
rs.open "select * from shop_books where tejiabook=1 order by adddate desc",conn,1,1
elseif leixing="news" then
rs.open "select * from shop_books where newsbook=1 order by adddate desc",conn,1,1
else
rs.open "select * from shop_books where newsbook=1 order by adddate desc",conn,1,1
end if
if rs.recordcount=0 then
%>暂无商品
<%
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
response.Write "<div class=""tit""><span class=""splt"">商品略图</span><span class=""spxx"">商品信息</span><span class=""spjg"">商品价格</span><span class=""sjsj"">上架时间</span></div>"
For i=1 To x
%><div id="productlist"><%if rs("bookpic")="" then
response.write "<a href=""list.asp?id="&rs("bookid")&""" target=""_blank""><img src=""images/emptybook.gif"" width=""100"" height=""100"" alt="""" /></a>"
else%><a href="list.asp?id=<%=rs("bookid")%>" target="_blank"><img src="<%=trim(rs("bookpic"))%>" alt="" /></a><%end if%><label class="name"><a href=list.asp?id=<%=rs("bookid")%> target="_blank" class="tit"><%=trim(rs("bookname"))%></a></label>
<label class="scj">市场价：<span class="old"><%=trim(rs("shichangjia"))%> 元</span></label><label class="hyj">会员价：<span class="new"><%=trim(rs("huiyuanjia"))%>
元</span></label><label class="date"><%=year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))%></label></div>
<%rs.movenext
next
call PageControl(iCount,maxpage,page,"","")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<div class=""clear-both""> </div><div id=""page"">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;"">" & vbCrLf )
Response.Write("" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("首 页 " & vbCrLf)
Response.Write ("上一页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首 页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("下一页 " & vbCrLf)
Response.Write ("尾 页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾 页</A> " & vbCrLf)
end if
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "种商品" & vbCrLf)
Response.Write(" 转到" & "<INPUT CLASS=wenbenkuang TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
Response.Write("" & vbCrLf )
Response.Write("</form></div>" & vbCrLf )
Response.Write("" & vbCrLf )
End Sub%>
</div>
</div>
<!-- 主内容左侧 -->
<div id="content_l">
<!-- 公告 -->
<div id="affiche"><h1>在我们的网站</h1><ul><li><a href="#">订购满200元，即有精美赠品；</a></li><li><a href="#">满500元还可免送货费..</a>.</li><li><a href="#">点击察看详情>></a></li></ul>
<div class="clear-both"> </div>
</div>
<!-- 左侧菜单 -->
<!--#include file="leftdirectory.asp" -->
<div class="clear-both"> </div>
</div>
</div>
<div class="clear-both"> </div>
<!-- 服务声明 -->
<!--#include file="service.asp" -->
<!-- 版权信息 -->
<!--#include file="copyright.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -