我要把下面的代码改成N行四列,请大家帮帮忙!!

来源:百度知道 编辑:UC知道 时间:2024/06/04 16:21:32
'=================================================
'过程名:ShowAllClass
'作 用:显示所有栏目(栏目导航)
'参 数:无
'=================================================
sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write " 没有任何栏目"
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
strClassName= "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='30' colspan='4' style='BORDER-RIGHT: #dddddd 1px dotted; BORDER-TOP: #dddddd 1px dotted; FONT-WEIGHT: bold; BORDER-LEFT: #dddddd 1px dotted; COLOR: #ff6600; BORDER-BOTTOM: #dddddd 1px dotted; BACKGROUND-COLOR: #f7f7f7'>【<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "' ><b>" & rsBigClass("BigClassName") & "</b&g

'=================================================
'过程名:ShowAllClass
'作 用:显示所有栏目(栏目导航)
'参 数:无
'=================================================
sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write " 没有任何栏目"
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
strClassName= "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='30' colspan='4' style='BORDER-RIGHT: #dddddd 1px dotted; BORDER-TOP: #dddddd 1px dotted; FONT-WEIGHT: bold; BORDER-LEFT: #dddddd 1px dotted; COLOR: #ff6600; BORDER-BOTTOM: #dddddd 1px dotted; BACKGROUND-COLOR: #f7f7f7'>【<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "' ><b>" & rsBigClass("BigClassName") & "</b></