请教asp高手,如何调用5条数据换行

发布网友 发布时间：2022-12-10 20:45

我来回答

共3个回答

热心网友 时间：2024-11-17 20:14

Set rmtj=Server.CreateObject("Adodb.Recordset")
SqlT="select top 20 * from wzadd where verity=1 and zd=0 and jin>jout order by mend desc,jin desc"
rmtj.open SQLT,conn,1,1
if rmtj.EOF and rmtj.BOF then
scrmtj = scrmtj &"<td>期待你的加入</td>"
else
dim i
i=1
While (Not rmtj.EOF)
scrmtj = scrmtj &""
if rmtj("jin")>999 then
scrmtj = scrmtj &"<td><a href='app/out.asp?id="&rmtj("id")&"' title='最近点入:"&rmtj("intime")&"' target='_blank'><font color=blue>"&Left(rmtj("title"),8)&"</a></td>"
else
scrmtj = scrmtj &"<td><a href='app/out.asp?id="&rmtj("id")&"' title='最近点入:"&rmtj("intime")&"' target='_blank'>"&Left(rmtj("title"),8)&"</a></td>"
end if
if i mod 5=0 then scrmtj = scrmtj &"</tr><tr>"
rmtj.MoveNext
i=i+1
Wend
end if
rmtj.close
Set rmtj = Nothing追问

　　谢谢你的解答，已经解决了一部分，可是为什么我在一个页面多次使用这个代码的时候会出错呢

　　

代码太长不让我写进来，就是重复使用你给我写的代码，之后把rmtj换成xztj会错误 如果方便的话可以把你的QQ 留给我吗？





热心网友 时间：2024-11-17 20:15

你写的这个，应该不是全部代码，没仔细看。给你个例子吧。
i=1'先定义一个数字变量
do while not rmtj.eof
if i mod 5 = 0 then scrmtj = scrmtj &"</tr><tr>"'当i除以5余0时，给变量加个</tr><tr>，为什么要先写</tr>你应该明白的。
scrmtj = scrmtj &<td><a href='app/out.asp?id="&rmtj("id")&"' title='最近点入:"&rmtj("intime")&"' target='_blank'>"&Left(rmtj("title"),8)&"</a></td>"'这是你的原代码
i=i+1'每一次循环变量+1
rmtj.movenext
loop
就写这些吧，一般在表格中使用数据时，常会用到mod计算命令，当然，你设置每5个td就换一行，如果总记录数不能被5除尽时，表格就会出现问题，比如：
口口口口口
口
后面4个就成空的了，这时，你还要用mod来计算一下。在vb中，1 mod 5是余1，还差4个空，你可以写成5-(1 mod 5)这样就得出需要填充起来的td数量
再把用for命令，循环这几次，把剩余的td填充起来，就会更漂亮了。

热心网友 时间：2024-11-17 20:15

Set rmtj=Server.CreateObject("Adodb.Recordset")
SqlT="select top 20 * from wzadd where verity=1 and zd=0 and jin>jout order by mend esc,jin desc"
rmtj.open SQLT,conn,1,1
if rmtj.EOF and rmtj.BOF then
scrmtj = scrmtj &"<td>期待你的加入</td>"
else
While (Not rmtj.EOF)
i=i+1
scrmtj = scrmtj &""
if rmtj("jin")>999 then
scrmtj = scrmtj &"<td><a href='app/out.asp?id="&rmtj("id")&"' title='最近点入:"&rmtj("intime")&"' target='_blank'><font color=blue>"&Left(rmtj("title"),8)&"</a></td>"
else
if i Mod 5 = 0 then
scrmtj = scrmtj &"<td><a href='app/out.asp?id="&rmtj("id")&"' title='最近点入:"&rmtj("intime")&"' target='_blank'>"&Left(rmtj("title"),8)&"</a></td></tr><tr>"
else
scrmtj = scrmtj &"<td><a href='app/out.asp?id="&rmtj("id")&"' title='最近点入:"&rmtj("intime")&"' target='_blank'>"&Left(rmtj("title"),8)&"</a></td>"
end if
end if
rmtj.MoveNext
Wend
end if
rmtj.close
Set rmtj = Nothing