📄 class.asp
字号:
<!--
┌─9911.com.cn────────────┐
│ 动感购物 WWW.9911.com.cn 版权所有 │
│ 动感购物2005Vb 联系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"-->
<!--#include file="webtop.asp"-->
<html>
<head>
<title><%=webname%>--<%leixing=lcase(trim(request("lx")))
select case leixing
case "big"
response.write "大类商品"
case "small"
response.write "小类商品"
case "snsn"
response.write "子类商品"
case "tejia"
response.write "特价商品"
case "news"
response.write "新品上架"
case "tj"
response.write "推荐商品"
case "cx"
response.write "促销商品"
case else
response.write "新品上架"
end select
anclassid=request("anid")%></title>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin=0 topmargin=0 marginwidth="0" marginheight="0">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=1) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
var link_1=new Array(); //第一个连接列表
link_1[0]="<a href=class.asp?px=0 >按推荐商品方式查看</a>";
link_1[1]="<a href=class.asp?px=1 >按上架时间从早到晚</a>";
link_1[2]="<a href=class.asp?px=2 >按上架时间从晚到早</a>";
link_1[3]="<a href=class.asp?px=3 >按商品价格从高到低</a>";
link_1[4]="<a href=class.asp?px=4 >按商品价格从低到高</a>";
link_1[5]="<a href=class.asp?px=5 >按商品排序从高到低</a>";
link_1[6]="<a href=class.asp?px=6 >按商品排序从低到高</a>";
var nStep = 10;
//动态效果速度
var nDelay = 20;
//动态效果延迟时间
var nChunk=25;
nChunk = nStep;
function gg() {
document.all.aa.style.clip= "rect(0 "+ nChunk + "% " + nChunk + "% 0)";
nChunk += nStep;
//alert(nChunk);
nChunk<=200?setTimeout("gg()",nDelay):null
}
function aa() {
MM_showHideLayers('aa','','show');
return gg();
}
function bb() {
MM_showHideLayers('aa','','hide');
nChunk = 25;
}
</script>
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> ->
<%
set rs=server.createobject("adodb.recordset")
if leixing="big" then
anclassid=nosql(request("anid"))
if Not isChkInteger(anclassid) then
%>
<script language=javascript>alert("参数错误！");window.close();</script>
<%
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where xs=2 and anclassid="&anclassid,conn,1,1
if rs.recordcount=0 then
%>
<script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
<%end if
anclassname=rs("anclass")
pic=trim(rs("pic"))
links=trim(rs("links"))
sztys=trim(rs("sztys"))
flsl=trim(rs("spdlh"))
fll=trim(rs("spdll"))
rs.close
xml="<a href=rss_class.asp?lx=big&a="&anclassid&"><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
response.write anclassname
set rs_class=server.createobject("adodb.recordset")
rs_class.open "select count(*) from shop_snsn where anclassid="&anclassid,conn,1,1
response.write "(本类共有<font color=#FF0000>"&rs_class(0)&"</font>种)"
rs.open "select * from shop_snsn where anclassid="&anclassid&" order by adddate desc",conn,1,1
elseif leixing="small" then
anclassid=nosql(request("anid"))
nclassid=nosql(request("nid"))
if Not isChkInteger(anclassid) then
%>
<script language=javascript>alert("参数错误！");window.close();</script>
<%
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")
sztys=trim(rs("sztys"))
rs.close
if Not isChkInteger(nclassid) then%>
<script language=javascript>alert("参数错误！");window.close();</script>
<%response.end
end if
rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,1
if rs.recordcount=0 then%>
<script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
<%end if
nclassname=rs("nclass")
piccc=trim(rs("piccc"))
links=trim(rs("links"))
xsztys=trim(rs("xsztys"))
flsl=trim(rs("spxlh"))
fll=trim(rs("spxll"))
rs.close
xml= "<a href=rss_class.asp?lx=big&a="&anclassid&"&n="&nclassid&"><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
response.write "<a href=class.asp?lx=big&anid="&anclassid&">"&anclassname&"</a> -> "&nclassname&""
set rs_nclass=server.createobject("adodb.recordset")
rs_nclass.open "select count(*) from shop_snsn where nclassid="&nclassid,conn,1,1
response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
rs.open "select * from shop_snsn where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
elseif leixing="snsn" then
anclassid=nosql(request("anid"))
nclassid=nosql(request("nid"))
xclassid=nosql(request("xid"))
if Not isChkInteger(anclassid) then
%>
<script language=javascript>alert("参数错误！");window.close();</script>
<%
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")
sztys=trim(rs("sztys"))
rs.close
if Not isChkInteger(nclassid) then%>
<script language=javascript>alert("参数错误！");window.close();</script>
<%response.end
end if
rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,1
if rs.recordcount=0 then%>
<script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
<%end if
nclassname=rs("nclass")
rs.close
if Not isChkInteger(xclassid) then%>
<script language=javascript>alert("参数错误！");window.close();</script>
<%response.end
end if
rs.open "select * from shop_xclass where id="&xclassid,conn,1,1
if rs.recordcount=0 then%>
<script language='javascript'>alert('分类调用错误，请返回！');window.location.href='index.asp';</script>
<%end if
xclassname=rs("xclass")
xpic=trim(rs("xpic"))
xurl=trim(rs("xurl"))
xxs=trim(rs("xxs"))
flsl=trim(rs("xh"))
fll=trim(rs("xl"))
rs.close
xml= "<a href=rss_class.asp?lx=big&a="&anclassid&"&n="&nclassid&"><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
response.write "<a href=class.asp?lx=big&anid="&anclassid&">"&anclassname&"</a> -> <a href=class.asp?lx=small&anid="&anclassid&"&nid="&nclassid&">"&nclassname&"</a> -> "&xclassname&""
set rs_nclass=server.createobject("adodb.recordset")
rs_nclass.open "select count(*) from shop_snsn where nclassid="&nclassid&" and xclassid="&xclassid,conn,1,1
response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
rs.open "select * from shop_snsn where anclassid="&anclassid&" and nclassid="&nclassid&" and xclassid="&xclassid&" order by adddate desc",conn,1,1
elseif leixing="tejia" then
response.write "特价商品"
xml= "<a href=rss_class.asp?lx=tejia><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
set rs_nclass=server.createobject("adodb.recordset")
rs_nclass.open "select count(*) from shop_snsn where tejiashop=1",conn,1,1
response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
rs.open "select * from shop_snsn where tejiashop=1 order by adddate desc",conn,1,1
elseif leixing="cx" then
response.write "促销商品"
xml= "<a href=rss_class.asp?lx=cx><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
set rs_nclass=server.createobject("adodb.recordset")
rs_nclass.open "select count(*) from shop_snsn where cxiaoshop=1",conn,1,1
response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
rs.open "select * from shop_snsn where cxiaoshop=1 order by adddate desc",conn,1,1
elseif leixing="news" then
response.write "新品上架"
xml= "<a href=rss_class.asp?lx=news><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
set rs_nclass=server.createobject("adodb.recordset")
rs_nclass.open "select count(*) from shop_snsn where newsshop=1",conn,1,1
response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
rs.open "select * from shop_snsn where newsshop=1 order by adddate desc",conn,1,1
elseif leixing="tj" then
response.write "推荐商品"
xml= "<a href=rss_class.asp?lx=tj><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
set rs_nclass=server.createobject("adodb.recordset")
rs_nclass.open "select count(*) from shop_snsn where bestshop=1",conn,1,1
response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
rs.open "select * from shop_snsn where bestshop=1 order by adddate desc",conn,1,1
elseif leixing="cx" then
response.write "促销商品"
xml= "<a href=rss_class.asp?lx=cx><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
set rs_nclass=server.createobject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -