classid1.asp

国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测试

<table width="566"  border="0" cellspacing="0" cellpadding="0">
    	<tr>
      
      <td height="60" valign="top" background="./template/shop/tpl_001/images/bigform_bj.gif"><table border="0" width="532" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="30" align="center">
<%
set rs1=server.createobject("adodb.recordset")
%>	
	<%sql="select * from shop_anclass order by anclassidorder"
  rs1.open sql,conn,3,3
if rs1.eof then
response.write "暂且没有分类"
else
do while not rs1.eof
anclassid = rs1("anclassid")
%>
  <tr>
		<td align="left" height="22" >
    <a href="sort.asp?anclassid=<%=rs1("anclassid")%>"><font color="FF8800" class="styletopmenu"><strong><u><%=rs1("anclass")%></u></strong></font></a>
    </td>
	</tr>
	<tr>
		<td align="center">
    
		<table border="0" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
   <tr> 
 
<%sql="select * from shop_nclass where anclassid="&anclassid&" order by nclassidorder"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "暂且没有分类"
              else
                i=1
                  do while not rs.eof
                  %>
		
				<td height="20" bgcolor="#FFFFFF" width="133">
				<font color="#000000"><a href="nsort.asp?nclassid=<%=rs("nclassid")%>&anclassid=<%=rs1("anclassid")%>"><%=rs("nclass")%></a></font></td>
				<%if i = 4 then
response.write "</tr><tr>"
i=0
end if
i=i+1
rs.movenext
loop
              end if
              rs.close
              %>
			</tr>
		</table>
		</td>
	</tr>
	<%rs1.movenext           
loop
end if
rs1.close
%>
</table></td>