牛肉咖喱汤做法大全:请问：定义的函数有什么功能？那个公式是什么意思？

请问：定义的函数jj nCol nLeft 是有什么功能？nLeft = nCol- (TotalNumber Mod nCol)怎么解释？谢谢高手了~
——————————————————————
Function GetFriendSite()
dim FriendSite
dim sql,rs
dim Link_temp,Logo_Link
sql = "select top 10 * from [WMS_link] where allowed=true and show_logo=true"
'记录总数
Dim TotalNumbe
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, conninfo, 3, 1
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Logo_Link=False
Else
Logo_Link=true
Dim jj,nLeft,cCol
jj = 0
nCol = 5
nLeft = nCol- (TotalNumber Mod nCol)
If nLeft = nCol Then nLeft = 0
Link_temp = "<table border=0 width='100%'><tr>" & vbCrLf
While not rs.EOF
Link_temp = Link_temp & "<td width='20%'><a href='"&rs(3)&"' target='_blank'><img src='"&rs(4)&"' width=88 height=31 border=0 alt='"&rs(1)&"' title='"&rs(2)&"'></a></td>" & vbCrLf
If (jj Mod nCol) = (nCol - 1) Then
If jj <> TotalNumber - 1 Then
Link_temp = Link_temp & "</tr><tr>" & vbCrLf
Else
Link_temp = Link_temp & "</tr>" & vbCrLf
End If
End If
jj = jj + 1
rs.MoveNext
Wend
If nLeft <> 0 And nLeft <> nCol Then
If nCol < TotalNumber Then
For i = 1 to nLeft
Link_temp = Link_temp & "<td> </td>" & vbCrLf
Next
End If
Link_temp = Link_temp & "</tr>" & vbCrLf
End If
Link_temp = Link_temp & "</table>"
End If
rs.Close
Set rs = Nothing
sql = "select top 10 * from [WMS_link] where allowed=true and show_logo=false"
Set rs = Sailing.Execute(sql)
if rs.eof and Logo_Link = false then
Link_temp = "<li>没有任何链接"
GetFriendSite = Link_temp
Exit Function
end if
if Logo_Link = true and not rs.eof then
Link_temp= Link_temp & "<br>"
end if
do while not rs.eof
Link_Temp = Link_Temp & "<a href='"&rs(3)&"' target='_blank' title='"&rs(2)&"'>"&rs(1)&"</a>   "
rs.movenext
loop
rs.close
GetFriendSite = Link_temp
End Function
%>
谢谢carloshs~你回答得很对，那个公式是什么意思呢？