表格循环问题！急！送全分！

答案:6 悬赏:70 手机版

解决时间 2021-03-26 06:33

提问者网友：别再叽里呱啦
2021-03-25 18:53

表格循环问题！急！送全分！

最佳答案

五星知识达人网友：狂恋
2021-03-25 19:10

<%
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends and frends.userid='"&ZhaiUser&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
if not rs.Eof then
for i=1 to rs.recordcount
Response.Write("")
if (i mod 5)=0 then
Response.Write("")
end if
rs1.movenext
next
end if
rs.close
%>

")
response.Write("")
if Rs("username")<>"" then response.Write("")else response.Write("") end if
response.Write("
"&rs("frends")&"")
if Rs("vip")<>"" then response.Write("")else response.Write("") end if
response.Write("

全部回答

1楼网友：蓝房子
2021-03-25 22:24

<%
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends and frends.userid='"&ZhaiUser&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
if not rs.Eof then
while not rs.Eof
Response.Write("")
Response.Write("")
rs.MoveNext
Response.Write("")
wend
end if
rs.close
%>

OK 100% 正确，

2楼网友：酒安江南
2021-03-25 21:56

<%
Dim i, size, count
size = 5
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends and frends.userid='"&ZhaiUser&"'"
Set rs = server.CreateObject("ADODB.recordset")
rs.open sql,conn,3
count = rs.RecordCount
If count Mod size <> 0 Then count = count + (size - count Mod size)
For i = 1 To count
If Not rs.Eof Then
Response.Write("")
rs.MoveNext()
Else
Response.Write("")
End If
If i Mod size = 0 And i <> count Then Response.Write("")
Next
rs.Close()
%>

")
Response.Write("")
If Rs("username")<>"" Then
Response.Write("")else response.Write("")
End If
Response.Write("
"&rs("frends")&"")
If Rs("vip")<>"" Then
Response.Write("")else Response.Write("")
End If
Response.Write("

& nbsp;

==============================
5个一换行，不足5个的行补空记录。

3楼网友：荒野風
2021-03-25 20:40

<%
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends
and frends.userid='"&ZhaiUser&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
dim i
if not rs.Eof then
i=0
while not rs.Eof
if (i mod 5)=0 then
Response.Write("")
i=0
end if
Response.Write("")
if (i mod 5)=0 then
Response.Write("")
end if
i=i+1
rs.MoveNext
wend
end if
rs.close
%>

")
response.Write("")
if Rs("username")<>"" then response.Write(")else response.Write(") end if
response.Write("
"&rs("frends")&"")
if Rs("vip")<>"" then response.Write("align='absmiddle'>")else response.Write("") end if
response.Write("

4楼网友：舍身薄凉客
2021-03-25 20:23

<%
sql="select myuser.userid,frends.userid,username,frends,vip,websiteurl from myuser,frends where myuser.userid=frends.frends and frends.userid='"&ZhaiUser&"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,3
if not rs.Eof then
i=0
while not rs.Eof
i=i+1
if (i mod 5)=0 then Response.Write("")
Response.Write("")
if (i mod 5)=0 then Response.Write("")
rs.MoveNext
wend
end if
加了一个变量i用来记数
rs.close
%>

5楼网友：掌灯师
2021-03-25 20:15

说那么多代码都没用。让你明会。下次不会再问这个问题是正确的
n是每循环一次就累加 1
if n mod 5=0 then '如果输出了五个。就输出下一列
response.write "" '或是。用
换行。
end if
希望你能学会这个小办法。

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！