首頁猿問求一個詳細(xì)的解答，這段程序是什么意思？

求一個詳細(xì)的解答，這段程序是什么意思？

C

繁星淼淼 2022-08-04 11:07:27

<%Sql="select ID,SortName,gotoURL from Ok3w_Class where ChannelID=" & ChannelID & " and ParentID=0 and gotoURL='' order by OrderID"Set oRs = Conn.Execute(Sql)i = 0m = 0Do While Not oRs.Eofi = i + 1m = m + 1If m = 1 ThenResponse.Write("<div class=""w960 div_body2 "">")End If%><div class="<%If (i Mod 3) = 0 Then%>list biankuang fl<%Else%>list2 biankuang fl<%End If%>"><div class="style_02_ht"><div class="style_03_nr"><%=oRs("SortName")%></div></div><div class="summary"><%Call Ok3w_Article_IndexClassImg(oRs("ID"),1,100,80)%></div><div class="nr_bk_02 box2 summary_foot"><UL><%Call Ok3w_Article_List(oRs("ID"),6,15,False,False,True,0,False,"new","li")%></UL></div></div><%If m = 3 ThenResponse.Write("</div>" & vbCrLf)m = 0End IfoRs.MoveNextLoopoRs.CloseSet oRs = Nothing%>

查看完整描述

3 回答

森欄

TA貢獻(xiàn)1810條經(jīng)驗獲得超5個贊

在3、6、9......這些3的整數(shù)倍的行顯示不一樣的邊框。
mod是asp的求余函數(shù)，上面的 i mod 3指的是變量i除以3得到的余數(shù)，上面的判斷是如果余數(shù)是0，顯示一種邊框，如果余數(shù)不是0則顯示另一種邊框。根據(jù)余數(shù)是否為0來判斷是不是3的整數(shù)倍

反對回復(fù) 2022-08-08

RISEBY

TA貢獻(xiàn)1856條經(jīng)驗獲得超5個贊

你好。不知道你這個是什么功能啊，按照代碼意思翻譯的。

<%
Sql="select ID,SortName,gotoURL from Ok3w_Class where ChannelID=" & ChannelID & " and ParentID=0 and gotoURL='' order by OrderID" 'sql語句，查詢的什么表什么字段什么條件
Set oRs = Conn.Execute(Sql)'打開數(shù)據(jù)庫并打開上面的SQL
i = 0'初始化
m = 0
Do While Not oRs.Eof'如果記錄集不為空，也就是說上面打開的記錄不為空則
i = i + 1'i=+1，按說這個應(yīng)該在 rs.movenext的上一行的，不知道為什么在這。
m = m + 1
If m = 1 Then'如果m=1則，這里意思指輸出1個，因為循環(huán)的，每次循環(huán)m要+1的，所以M只有=1的一次。
Response.Write("<div class=""w960 div_body2 "">")
End If
%>
<div class="<%If (i Mod 3) = 0 Then'如果i為3的倍數(shù)則輸出%>list biankuang fl<%Else%>list2 biankuang fl<%End If%>">
<div class="style_02_ht">
<div class="style_03_nr"><%=oRs("SortName")'這里是輸出記錄數(shù)據(jù)的%></div>
</div>
<div class="summary">
<%Call Ok3w_Article_IndexClassImg(oRs("ID"),1,100,80)'這里應(yīng)該是調(diào)用的一個列表顯示圖片什么的。（看名字看的?。?>
</div>
<div class="nr_bk_02 box2 summary_foot">
<UL>
<%Call Ok3w_Article_List(oRs("ID"),6,15,False,False,True,0,False,"new","li")'這里應(yīng)該調(diào)用的一個顯示列表的函數(shù)。%>
</UL>
</div>

</div>
<%
If m = 3 Then'如果m=3則輸出下面DIV的結(jié)束。并讓m=0
Response.Write("</div>" & vbCrLf)
m = 0'
End If
oRs.MoveNext'記錄集循環(huán)結(jié)束。
Loop
oRs.Close'關(guān)閉記錄集
Set oRs = Nothing
%>