ASP源码,帮助列表中竖向列表如何改成横向列表? 50
<tablewidth="135"align="center"class=wid-left><tbody><tr><td><%setrs=server.CreateObj...
<table width="135" align="center" class=wid-left >
<tbody><tr><td><%set rs=server.CreateObject("adodb.recordset")
sql="select * from helpclass "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无任何分类说明帮助"
else
do while not rs.eof
classid=rs("classid")%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="38" align="left">
<font color="#FF0000">·</font><b><%=rs("class")%></b></td>
</tr>
<%set rs2=server.CreateObject("adodb.recordset")
sql="select * from helparticle where classid="&classid&""
rs2.open sql,conn,1,1
%><tr>
<td>
<%if rs2.eof and rs2.bof then
response.write "暂无属任何标题"
else do while not rs2.eof%>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20"> <font color="#FF8484">-</font><a href="help-<%=classid%>-<%=rs2("titleid")%>.html"><%=rs2("title")%></a>
</td>
</tr>
</table>
<%rs2.movenext
loop
end if%>
</td></tr></table>
<%rs.movenext
loop
end if%>
<%rs2.close
rs.close
set rs2=nothing
set rs=nothing
%></td></tr></tbody></table> 展开
<tbody><tr><td><%set rs=server.CreateObject("adodb.recordset")
sql="select * from helpclass "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无任何分类说明帮助"
else
do while not rs.eof
classid=rs("classid")%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="38" align="left">
<font color="#FF0000">·</font><b><%=rs("class")%></b></td>
</tr>
<%set rs2=server.CreateObject("adodb.recordset")
sql="select * from helparticle where classid="&classid&""
rs2.open sql,conn,1,1
%><tr>
<td>
<%if rs2.eof and rs2.bof then
response.write "暂无属任何标题"
else do while not rs2.eof%>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20"> <font color="#FF8484">-</font><a href="help-<%=classid%>-<%=rs2("titleid")%>.html"><%=rs2("title")%></a>
</td>
</tr>
</table>
<%rs2.movenext
loop
end if%>
</td></tr></table>
<%rs.movenext
loop
end if%>
<%rs2.close
rs.close
set rs2=nothing
set rs=nothing
%></td></tr></tbody></table> 展开
展开全部
<table width="100%" border="0">
<tr>
<th scope="col"><%set rs=server.CreateObject("adodb.recordset") sql="select * from helpclass " rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "暂无任何分类说明帮助" else do while not rs.eof classid=rs("classid")%></th>
<th scope="col"><b><%=rs("class")%></b></th>
<th scope="col"><%if rs2.eof and rs2.bof thenresponse.write "暂无属任何标题"else do while not rs2.eof%></th>
<th scope="col"><font color="#FF8484">-</font><a href="help-<%=classid%>-<%=rs2("titleid")%>.html"><%=rs2("title")%></a></th>
<th scope="col"><%rs2.movenextloopend if%></th>
<th scope="col"><%rs.movenextloopend if%>
<%rs2.closers.close set rs2=nothing set rs=nothing %></th>
</tr>
</table>
更多追问追答
追问
谢谢你的回复,可惜运转不了.它是属于两个表里的,应该要打开数据库两次.
1,sql="select * from helpclass "
2,sql="select * from helparticle where classid="&classid&""
追答
可能是我技术不过关
我看到原来是表中套了一个表
感觉你是侧栏分类管理 没想通为什么套用
直接拖横排失败了
就新作了横排表格转移的内容 所以可能运行不正确
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询