谁来帮我解释下这段代码

<%Function formatierung(strMessage)
Dim strTemp
strTemp = Server.HTMLEncode(strMessage)
strTemp = Replace(strTemp, " ", "       ", 1, -1, 1)
strTemp = Replace(strTemp, " ", "      ", 1, -1, 1)
strTemp = Replace(strTemp, " ", "     ", 1, -1, 1)
strTemp = Replace(strTemp, " ", "    ", 1, -1, 1)
strTemp = Replace(strTemp, " ", "   ", 1, -1, 1)
strTemp = Replace(strTemp, vbCrLf, "<BR>" & vbCrLf, 1, -1, 1)
formatierung = strTemp
End Function
Function copyrights%>
<!--版权信息，请勿修改-->
<p style="line-height: 150%" align=center>版权所有:<a href=http://www.Think8.com/