我是刚刚天始学的,请大家帮我解释一下这个

谁帮我解释一下这个函数
看了半天也没有看懂
请详细一点;谢谢
Sub ShowInfo()
    With BBS94KK
    Dim S,OnlingType
    If .FoundUser Then
        S = .ReadSkins("用户信息")
        If Session(CacheName & "MyInfo")(11)="1" Then
            S=Replace(S,"{用户头像}","<img src='http://qqshow-user.(CacheName & "MyInfo")(10)&"/11/'>")
        Else
            S=Replace(S,"{用户头像}","<img src="&Session(CacheName & "MyInfo")(12)&" width="&Session(CacheName & "MyInfo")(13)&" height="&Session(CacheName & "MyInfo")(14)&" >")
        End if
        If .MyHidden="0" Then
            OnlingType="隐身中"
        Else
            OnlingType="在线中"
        End If
        S=Replace(S,"{用户名称}","<a href='UserInfo.asp' title='查自己的资料信息'>"&.MyName&"</a>")
        S=Replace(S,"{在线状态}",OnlingType)
        S=Replace(S,"{帖数}",Session(CacheName & "MyInfo")(4))
        S=Replace(S,"{积分数}",Session(CacheName & "MyInfo")(6))
        S=Replace(S,"{金钱数}",Session(CacheName & "MyInfo")(7))
        S=Replace(S,"{等级}",Session(CacheName & "MyGradeInfo")(2))
    Else
        S = .ReadSkins("游客信息")
    End If
    S=Replace(S,"{总帖数}",.InfoUpdate(0))
    S=Replace(S,"{主题数}",.InfoUpdate(1))
    S=Replace(S,"{今日帖数}",.InfoUpdate(2))
    S=Replace(S,"{昨日帖数}",.InfoUpdate(3))
    S=Replace(S,"{最高日帖数}",.InfoUpdate(4))
    S=Replace(S,"{会员数}",.InfoUpdate(5))
    S=Replace(S,"{新会员名称}",.InfoUpdate(6))
    If .Info(14)="1" Then
        S=Replace(S,"{验证码}",BBS94KK.GetSafeCode)
    Else
        S=Replace(S,"{验证码}","")
    End If
    S=Replace(S,"{公告}",.Placard(0))
    Response.Write S
    End With
End Sub