getcategories.asp

基于Sabrina SecondMarket v1.0

<!--
版本：草原二手市场V1.1
本程序作者：mysql QQ:54016224 TEL:[phone]

-->
<LINK 
href="index_files/css.css" rel=stylesheet>
<!--#include file="include/conn.asp"-->
<%
sub getCategories()
sql    = "select * from BigClass"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1

response.write "<table width=100% border=0>"
do while not rs.eof and not rs.bof
response.write "<tr>" 
response.write "<td colspan=2>"&rs("BigName")&"</td>"
response.write "</tr>"

sql = "select * from SubClass where BigIndexNO = '"&rs("BigIndexNO")&"'"
set rs1 = server.CreateObject("adodb.recordset")
rs1.open sql,conn,1,1
do while not rs1.eof and not rs1.bof 
response.write "<tr>" 
response.write "<td>"&rs1("SubName")&"</td>"
rs1.movenext
if not rs1.eof and not rs1.bof then
response.write "<td>"&rs1("SubName")&"</td>"
else
response.write "<td>&nbsp;</td>"
end if
response.write "</tr>"
if not rs1.eof and not rs1.bof then
rs1.movenext
end if
loop
rs.movenext
loop 
response.write "</table>"
end sub
call getCategories()
%>