insort.asp

凡人网络购物系统 v8.0 中文版

<table cellSpacing="0" cellPadding="0" border="0">
<tr><td height="3"></td></tr>
<tr><td><img border="0" src="Skin/<%=venshop_skin%>/insort1.gif" width="171" height="31"></td></tr>
<tr><td><img border="0" src="Skin/<%=venshop_skin%>/insort2.gif" width="171" height="13"></td></tr>
<tr><td align="middle" background="Skin/<%=venshop_skin%>/insortbg.gif">
<%if sortb=1 then
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sort order by sort_xu desc,sort_id desc" 
rs.open sql,conn,1,1 
if rs.bof and rs.eof then 
response.write "没有任何分类" 
else 
do while not rs.eof 
insortid=rs("sort_id")%><table cellpadding=0 width="90%"  border=0 style="border-collapse: collapse" bordercolor="#111111">
<tr><td colspan="3" height="23"> &nbsp;<IMG height=6 src="img/newsq.gif" width=6 border=0> <a style=" font-weight: bold; font-size: 10pt" href="sort.asp?sort_id=<%=rs("sort_id")%>"><%=rs("sort_name")%></a></td></tr>
<tr><td colspan="3" height="2" background="Img/dot_menu.gif"></td></tr>
<%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from venshop_nsort where sort_id="&insortid&" order by nsort_id asc",conn,1,1%><tr><%i=-1
do while not rs8.eof and not rs8.bof
i=-i
if i=1 then%><td align="right" width="45%" height="23"><a href="nsort.asp?sort_id=<%=rs8("sort_id")%>&nsort_id=<%=rs8("Nsort_id")%>"><%=rs8("Nsort_name")%></a></td>
<td width="10%" align="center" height="23">|</td><%elseif i=-1 then%><td width="45%" height="23"><a href="nsort.asp?sort_id=<%=rs8("sort_id")%>&nsort_id=<%=rs8("Nsort_id")%>"><%=rs8("Nsort_name")%></a></td></tr>
<tr><td colspan="3" height="2" background="Img/dot_menu.gif"></td></tr>
<tr><%end if%>
<%rs8.movenext
loop
rs8.close
set rs8=nothing
%><%if i=1 then response.write"<td width=45% height=23></td></tr><tr><td colspan=3 height=2 background=Img/dot_menu.gif></td></tr>"%>
</table><%rs.movenext 
loop 
end if 
rs.close
set rs=nothing
elseif sortb=2 then%>
<SCRIPT language=javascript1.2 src="inc/menu.js"></SCRIPT>
<table cellpadding=0 width="90%"  border=0 style="border-collapse: collapse" bordercolor="#111111"><%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sort order by sort_xu DESC,sort_id desc" 
rs.open sql,conn,1,1 
if rs.bof and rs.eof then 
response.write "<tr><td align=center>没有任何分类</td></tr>" 
else 
do while not rs.eof 
insortid=rs("sort_id")%><tr>
<td height="23" align="center"  onclick="menuclick(submenu<%=rs("sort_id")%>,bar<%=rs("sort_id")%>)" id=bar<%=rs("sort_id")%>>
<font style="cursor:hand; font-weight:700"><%=rs("sort_name")%></td></tr>
<tr><td colspan="3" height="2" background="Img/dot_menu.gif"></td></tr>
<tr id="submenu<%=rs("sort_id")%>" style="DISPLAY: none;"><td>
<table cellspacing=0 cellpadding=0 width="100%"  border=0 style="border-collapse: collapse">
<tr><%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from venshop_nsort where sort_id="&insortid&" order by nsort_id asc",conn,1,1
i=-1
do while not rs8.eof and not rs8.bof
i=-i
if i=1 then%><td align="right" width="45%" height="23"><a href="nsort.asp?sort_id=<%=rs8("sort_id")%>&nsort_id=<%=rs8("Nsort_id")%>"><%=rs8("Nsort_name")%></a></td>
<td width="10%" align="center" height="23">|</td><%elseif i=-1 then%><td width="45%" height="23"><a href="nsort.asp?sort_id=<%=rs8("sort_id")%>&nsort_id=<%=rs8("Nsort_id")%>"><%=rs8("Nsort_name")%></a></td></tr><tr><td colspan="3" height="2" background="Img/dot_menu.gif"></td></tr><tr><%end if%>
<%rs8.movenext
loop
rs8.close
set rs8=nothing
%><%if i=1 then response.write"<td width=45% height=23></td><tr><td colspan=3 height=2 background=Img/dot_menu.gif></td></tr>"%></table></td></tr><%rs.movenext 
loop 
end if 
rs.close
set rs=nothing
%></table>
<%elseif sortb=3 then%>
<SCRIPT language=JavaScript src="inc/sort.js"></SCRIPT>
<TABLE cellPadding=0 width="163" border=0><%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sort order by sort_xu DESC,sort_id desc" 
rs.open sql,conn,1,1 
if rs.bof and rs.eof then 
response.write "No class" 
else 
do while not rs.eof 
insortid=rs("sort_id")%><TR>
<TD onmouseover="MM_showHideLayers('Layer_<%=id%>', '', 'show')" onmouseout="MM_showHideLayers('Layer_<%=id%>', '', 'hide')" height="23" align="center" background="images/listbg.jpg">
<B style="cursor:hand;"><%=rs("sort_name")%></B>

<DIV id=Layer_<%=id%> onmouseover="MM_showHideLayers('Layer_<%=id%>','','show')" style="Z-INDEX: 1; VISIBILITY: hidden; POSITION: absolute;" onmouseout="MM_showHideLayers('Layer_<%=id%>','','hide')">
<table  border="0" cellspacing="1" cellpadding="5" width="120" class="sort3">
<%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from venshop_nsort where sort_id="&insortid&" order by nsort_id asc",conn,1,1
do while not rs8.eof and not rs8.bof%>
<tr><td><a href="nsort.asp?sort_id=<%=rs8("sort_id")%>&nsort_id=<%=rs8("Nsort_id")%>"><%=rs8("Nsort_name")%></a></td></tr>
<%rs8.movenext
loop
rs8.close
set rs8=nothing%></table></DIV>

</TD></TR><%rs.movenext
loop
end if
rs.close
set rs=nothing%></table><%end if%></td></tr><tr><td align="middle"><img border="0" src="Skin/<%=venshop_skin%>/insort3.gif" width="171" height="9"></td></tr></table>