cyclass.asp

来自「BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台；针对企」· ASP 代码 · 共 41 行

<%
response.write "<table width=100% height=54 border=0  cellpadding=0 cellspacing=4>"
response.Write "<tr><td height=46 valign=top><table width=100% height=32 border=0 cellpadding=0 cellspacing=0 align=center>"
response.Write "<tr><td height=32 valign=top>"

dim rs2
						set rs=conn.execute("select anclassid,anclass from shop_anclass order by anclassidorder")
				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 "「"&trim(rs("anclass"))&"」"
				response.write "</div></td></tr>"
set rs2=conn.execute("select nclassid,nclass,anclassid from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder")
Dim num1 '//判断数字奇偶
num1=0
do while not rs2.eof
num1 = Num1+1
If num1 Mod 2 = 0 Then
response.write "<td width=70><div align=left><a href=Class.asp?aid="&rs2("anclassid")&"&nid="&rs2("nclassid")&">"&trim(rs2("nclass"))&"</a></div></td></tr>"
else
response.write "<tr><td width=70><div align=right><a href=Class.asp?aid="&rs2("anclassid")&"&nid="&rs2("nclassid")&">"&trim(rs2("nclass"))&"</a></div></td>"
response.write "<td width=14><div align=center><FONT color=#cccccc>　</FONT></div></td>"
end if
rs2.movenext
loop
rs2.close
set rs2=nothing
response.write "</table>"
rs.movenext
loop
rs.close
set rs=nothing
response.Write "</td></tr></table> </td></tr></table>"
%> 
                    
                  
                 
              
            
</body>
</html>