📄 class.asp
字号:
<html>
<head>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<title><%=webname%>--<%
leixing=lcase(trim(request("lx")))
leixing=replace(leixing,"'","")
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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="网趣网上购物系统,网趣网上购物系统时尚版,网趣购物系统,网上购物系统,购物系统,网趣购物,商城源码,网上商店,网上商店系统,域名注册,虚拟主机,恒伟网络">
<meta name="keywords" content="网趣网上购物系统,网趣网上购物系统时尚版,网趣购物系统,网上购物系统,购物系统,网趣购物,商城源码,网上商店,网上商店系统,域名注册,虚拟主机,恒伟网络">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="include/head.asp"-->
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="39" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="right" valign="top"><img src="images/body/jiao.gif" width="15" height="17"></td>
</tr>
<tr>
<td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
</tr>
<tr>
<td height="30"> </td>
</tr>
</table></td>
<td width="190"style="BORDER-bottom:#FF67A0 1px solid;BORDER-left:#FF67A0 1px solid; BORDER-right:#FF67A0 1px solid;" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" background="images/index_2.gif"><!--#include file="logins.asp"--></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
</tr>
<tr>
<td><!--#include file="include/sort.asp"--></td>
</tr>
<tr>
<td><!--#include file="include/selltop.asp" --></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td><div align="center"><a href="<%=ad6url%>" target="_blank"><img src="<%=ad6%>" border="0" width="180" ></a></div></td>
</tr>
<tr>
<td height="5"></td>
</tr> <tr>
<td><div align="center"><a href="<%=ad7url%>" target="_blank"><img src="<%=ad7%>" border="0" width="180" ></a></div></td>
</tr>
</table></td>
<td valign="top" ><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr>
<td width="100%" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
<%leixing=lcase(trim(request("lx")))
if InStr(leixing,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
'leixing=replace(leixing,"'","")
select case leixing
case "big"
anclassid=trim(request("anid"))
if not isnumeric(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
else
set rs=server.createobject("adodb.recordset")
rs.open "select * FROM bsort where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")
%>
<tr>
<td colspan="2" valign="top" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" colspan="2" background="images/body/pdbg01.gif"> <a href=index.asp><%=webname%></a> >> <%=anclassname%></td>
</tr>
<tr>
<td height="10" colspan="2" ></td>
</tr>
<tr>
<td><a href="<%=ad8url%>" target="_blank"><img src="<%=ad8%>" border="0" width="99%" height="160" ></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="10" ></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td><table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#E1E1E1">
<tr>
<td width="110" align="center" bgcolor="#FFFFFF"><%=anclassname%></td>
<td bgcolor="#FFFFFF"><table border="0" cellpadding="0" cellspacing="0">
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from ssort where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then
%>
<tr>
<td height="20" align="center" colspan="8">暂无小分类</td>
</tr>
<%
else
i=0
while not rs_s.eof
%>
<tr style="BORDER-bottom:#CC0033 1px solid;">
<td width="116" height="24" align="left"><div align="left"><img src="images/body/diand.gif"> <a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="116" align="left" ><img src="images/body/diand.gif"> <a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="116" align="left" ><img src="images/body/diand.gif"> <a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="116" align="left" ><img src="images/body/diand.gif"> <a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a>
<%rs_s.movenext
if rs_s.eof then
response.write " "
else
%>
</td>
<td width="131" align="left" ><div align="left"><img src="images/body/diand.gif"> <a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a> </td>
<%
rs_s.movenext
end if
end if
end if
end if
wend
end if
end if
end if
%>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<%
case "small"
anclassid=request("anid")
if not isnumeric(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
else
nclassid=request("nid")
if not isnumeric(nclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(nclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
else
set rs=server.createobject("adodb.recordset")
rs.open "select * FROM bsort where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")
rs.close
rs.open "select * FROM ssort where nclassid="&nclassid,conn,1,1
nclassname=rs("nclass")
rs.close
%>
<tr>
<td height="28" colspan="2" background="images/body/pdbg01.gif"> <a href=index.asp><%=webname%></a> >> <a href=class.asp?lx=big&anid=<%=anclassid%>><%=anclassname%></a> >> <%=nclassname%></td>
</tr>
<%
end if
end if
end if
end if
case "tejia"%>
<tr>
<td height=28 colspan="2" valign="middle" background="images/body/pdbg01.gif"> <a href=index.asp><%=webname%></a> >> 特价促销</td>
</tr>
<tr>
<td height="8" colspan="2" ></td>
</tr>
<tr>
<td colspan="2" background="" height=25><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5"></td>
<td><a href="<%=ad8url%>" target="_blank"><img src="<%=ad8%>" border="0" width="99%" height="160" ></a></td>
</tr>
</table></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -