classlist_page.asp

很好的网上书店源码 适合企业个人使用 很好的网络书城

<%
'//分类调用代码、大类/anclass/小类/nclass/子类/xclasss
%>
<div align="center">
<table width="160">
  <tr> 
	</center>
</td>
    <td valign="top">
            <div align="center">
		  <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select anclassid,anclass,changyong from shop_anclass where changyong=1 order by anclassidorder",conn,1,1
				do while not rs.eof
				response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td colspan=3><div align=left>"
				response.write "<img src='"&theme&"sanjiao.jpg'>&nbsp;&nbsp;<A href=anclass.asp?aid="&rs("anclassid")&" target='blank'>"&trim(rs("anclass"))&"大类</a></font>"
				response.write "</div></td></tr>"
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select nclassid,nclass,changyong,anclassid from shop_nclass where changyong=1 and anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
do while not rs2.eof
Dim num1 '//判断数字奇偶
num1 = Num1+1
If num1 Mod 2 = 0 Then
response.write "<td width=80><div align=left><a href=nclass.asp?aid="&rs2("anclassid")&"&nid="&rs2("nclassid")&" target=blank title='点击进入“"&rs2("nclass")&"”'>"&trim(rs2("nclass"))&"</a></div></td>"
else
response.write "<tr><td width=70><div align=right><a href=nclass.asp?aid="&rs2("anclassid")&"&nid="&rs2("nclassid")&" target=blank title='点击进入“"&rs2("nclass")&"”'>"&trim(rs2("nclass"))&"</a></div></td>"
response.write "<td width=12><div align=center><FONT color=#ff6600>|</FONT></div></td>"
end if
rs2.movenext
loop
rs2.close
set rs2=nothing
response.write "</table><br>"
rs.movenext
loop
rs.close
set rs=nothing%>
</div>
            
            		</td>
  </tr>
</table>
</div>