asp分栏的问题(附代码)

来源：百度知道 编辑：UC知道 时间：2024/07/05 20:43:19
我想网站的栏目这样显示,可是,怎么样才能实现啊?我不太会,请各位高手教教我啊!!---------------
|栏目1 | 栏目2 |
|栏目3 | 栏目4 |
|栏目5 | 栏目6 |
.....
下面这段代码该怎么改

<%
Dim mRs, mSql, mRootID, mLen, TempListStr
set mRs = server.CreateObject("Adodb.Recordset")
mSql="SELECT * FROM TeaCata order by T_RootID asc"
mRs.Open mSql,oConn,1,1
Do While Not mRs.Eof
mRootID = mRs("T_RootID")
mLen = Len(mRootID)
If mLen = 5 Then '这里是读取所有的二级栏目

TempListStr="<tr valign=center align=middle bgcolor=#ffffff>"
TempListStr=TempListStr&"<td onMouseOver=mOvr(this,'#ffffff'); onMouseOut=mOut(this,'#F7F7F7'); bgcolor=#F7F7F7 height=25>"
TempListStr=TempListStr&"<div align=right Class=ttt5><a href='/hotel/?cataid="&Trim(mRs("T_RootID"))&"'>"&Trim(mRs("T_Title"))&"&l

<%
Dim mRs, mSql, mRootID, mLen, TempListStr
set mRs = server.CreateObject("Adodb.Recordset")
mSql="SELECT * FROM TeaCata order by T_RootID asc"
mRs.Open mSql,oConn,1,1
Ti=1
TempListStr="<tr valign=center align=middle bgcolor=#ffffff>"
Do While Not mRs.Eof
mRootID = mRs("T_RootID")
mLen = Len(mRootID)
If mLen = 5 Then '这里是读取所有的二级栏目
TempListStr=TempListStr&"<td onMouseOver=mOvr(this,'#ffffff'); onMouseOut=mOut(this,'#F7F7F7'); bgcolor=#F7F7F7 height=25>"
TempListStr=TempListStr&"<div align=right Class=ttt5><a href='/hotel/?cataid="&Trim(mRs("T_RootID"))&"'>"&Trim(mRs("T_Title"))&"</a> <img src='images/pic_11.gif'> </div></td>"
TempListStr=TempListStr&"<tr>"
TempListStr=TempListStr&"<td bgcolor