谁帮我解释一下这个函数
看了半天也没有看懂
请详细一点;谢谢
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

脱离具体环境，解释了也没用。

BBS94KK是一个自定义类的实例。

这应该是某个论坛的代码，这个函数可能的作用就是进行模板与数据的替换

With BBS94KK
最主要的是这里的WITH关键字是什么意思

With关键字用来省略对象名称比如
不用With
Response.Write "abc"
Response.Write "def"
用With
With Response
   .Write "abc"
   .Write "def"
End With

注意这样的写法是错误的
With Response
   .Write "abc"
   .Write "def"
End With
.Write "def"
因为With的省略范围只在End With之前，并且只有With [对象名]指定的对象可以省略

那你说上面的那个语法有错没有??

大概看了一下，楼主提供的那段代码里应该是没有语法错误

那这个函数到底是做什么用的
我到现在都没有看懂

https://bbs.bccn.net/thread-217957-1-1.html

建议参考一些手册。