200分！！！asp 输出4列。并且每个单元格里有N条数据

wl__0464 2008-11-18 08:58:25

asp 输出4列。并且每个单元格里有N条数据。如图：

...全文

198 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

一把编程的菜刀 2008-11-18

打赏
举报

我建议你ASP和HTML代码分开，就如我写的那样！

一把编程的菜刀 2008-11-18

打赏
举报

我给你的代码，简单又容易理解

一把编程的菜刀 2008-11-18

打赏
举报

然后自己设置样式即可

zzxap 2008-11-18

打赏
举报

<div id="recordlist">
<%
Dim iSQL,iRs
'行业
iSQL="SELECT i.title, i.inid FROM hr_industry i INNER JOIN hr_corpinfo c ON i.inid = c.inid INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') GROUP BY i.title, i.inid"
'iSQL="SELECT i.title, i.inid FROM hr_industry i INNER JOIN hr_corpinfo c ON i.inid = c.inid INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') AND p.istag=2 GROUP BY i.title, i.inid"
set iRs=Server.CreateObject("ADODB.Recordset")
iRs.Open iSQL,conn,1,1

If Not iRs.EOF then
do while Not iRs.EOF
Response.Write "<dl>"
Response.Write "<dt>"&iRs("title")&"</dt>"
'行业下的职位
iiSQL="SELECT p.poid, p.job, p.entrydate, c.inid, c.corpname FROM hr_corpinfo c INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') AND c.inid="&iRs("inid")
'iiSQL="SELECT p.poid, p.job, p.entrydate, c.inid, c.corpname FROM hr_corpinfo c INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') AND p.istag=2 AND c.inid="&iRs("inid")
set iiRs=Server.CreateObject("ADODB.Recordset")
iiRs.Open iiSQL,conn,1,1

If Not iiRs.EOF then
Response.Write "<dd>"
do while Not iiRs.EOF
Response.Write "<ul>"
Response.Write "<li><a href='corp/jobs.asp?posid="&iiRs("poid")&"' target='_blank' title='发布者:"&iiRs("corpname")&"'>"&iiRs("job")&"</a></li>"
Response.Write "<li>"&iiRs("entrydate")&"</li>"
Response.Write "</ul>"

iiRs.Movenext
loop
Response.Write "</dd>"
End If
iRs.MoveNext
loop

End If
Response.Write "</dl>"
iRs.Close
set iRs=Nothing%>
</div>

一把编程的菜刀 2008-11-18

打赏
举报

呵呵，你要用div也行
上面的你把对应的标签改为div ul li即可

一把编程的菜刀 2008-11-18

打赏
举报

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>无标题文档</title>

<style>

td{



border:#000000 solid 1px;}

</style>

</head>



<body>

<table>

<tr><td>

<%for i=1 to 80%>

.<%=i%> chinmo测试多行多列<br />

<%if i>9 and i mod 10 =0 and i mod 40<>0 then%></td><td><%end if%>



<%if i>10 and i mod 10=0 and i mod 40=0 then%></td><tr><td><%end if%>

<%next

%>

</td>

</tr></table>

</body>

</html>

给你看一个简单的例子

你只需要放到你的程序稍微改一下即可
大致如下做修改

<table>

<tr><td>

<%i=0

do while not rs.eof

i=i+1%>

.<%=i%> chinmo测试多行多列<br />

<%if i>9 and i mod 10 =0 and i mod 40<>0 then%></td><td><%end if%>



<%if i>10 and i mod 10=0 and i mod 40=0 then%></td><tr><td><%end if%>

<%rs.movenext

loop

%>

</td>

</tr></table>

layers2323 2008-11-18

打赏
举报

反正lz，一个循环肯定能解决你的问题，只不过根据你的业务的不同可能在分支判断上复杂些。

layers2323 2008-11-18

打赏
举报

12楼的，你里面会缺一个“</tr>”
而且你这样不是一行三列吗？

街头小贩 2008-11-18

打赏
举报

[Quote=引用 12 楼 zhuyongzhao 的回复:]
<table width="400" border="0">
<tr>
<%
for i=1 to 21
%>
<td> <%=i%> </td>
<%
if i mod 3=0 then
response.write" </tr> <tr>"
end if
next
%>

</table>
[/Quote]
嵌套循环即可!<div>简单多了！而且少写不少代码,今天上午就遇到过一个
code:



      <div id="recordlist">

<%

      Dim iSQL,iRs

      '行业

      iSQL="SELECT i.title, i.inid FROM hr_industry i INNER JOIN hr_corpinfo c ON i.inid = c.inid INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') GROUP BY i.title, i.inid"

      'iSQL="SELECT i.title, i.inid FROM hr_industry i INNER JOIN hr_corpinfo c ON i.inid = c.inid INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') AND p.istag=2 GROUP BY i.title, i.inid"

      set iRs=Server.CreateObject("ADODB.Recordset")

      iRs.Open iSQL,conn,1,1

      

      If Not iRs.EOF then                               

               do while Not iRs.EOF                          

                          Response.Write "<dl>"              

                          Response.Write "<dt>"&iRs("title")&"</dt>"  

                          '行业下的职位

                          iiSQL="SELECT p.poid, p.job, p.entrydate, c.inid, c.corpname FROM hr_corpinfo c INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') AND c.inid="&iRs("inid")

                          'iiSQL="SELECT p.poid, p.job, p.entrydate, c.inid, c.corpname FROM hr_corpinfo c INNER JOIN hr_positions p ON c.usid = p.usid WHERE (p.jobleveltype = '高级') AND p.istag=2 AND c.inid="&iRs("inid")

                          set iiRs=Server.CreateObject("ADODB.Recordset")

                          iiRs.Open iiSQL,conn,1,1

                          

                          If Not iiRs.EOF then

                                  Response.Write "<dd>"

                                  do while Not iiRs.EOF 

                                              Response.Write "<ul>"                                              

                                              Response.Write "<li><a href='corp/jobs.asp?posid="&iiRs("poid")&"' target='_blank' title='发布者:"&iiRs("corpname")&"'>"&iiRs("job")&"</a></li>"

                                              Response.Write "<li>"&iiRs("entrydate")&"</li>"

                                              Response.Write "</ul>"

                                              

                                              iiRs.Movenext                                              

                                  loop

                                  Response.Write "</dd>"

                          End If

                       iRs.MoveNext

             loop

             

      End If

      Response.Write "</dl>"

      iRs.Close

      set iRs=Nothing%>

</div>

css:





#recordlist{float:left;width:670px;height:auto;}

#recordlist dl{float:left;margin:0;padding-top:10px;padding-right:5px;width:330px;height:auto;}

#recordlist dl dt,#recordlist dl dd{float:left;margin:0;padding:0;width:330px;height:auto;}

#recordlist dl dt{padding-left:5px;width:325px;border:1px dashed #ddd;}

#recordlist dl dd ul{float:left;margin:0;padding:0;width:330px;height:auto;}

#recordlist dl dd ul li{float:left;margin:0;padding:0;width:165px;height:auto;list-style:none;}