请教一下Sub ShowInfo()里面的第二行的关键字WITH是起个什么作用的还有就是这个
If BBS94KK.Info(22)="1" then ShowBirthday()
If BBS94KK.Info(23)="1" then ShowLink()这两句是什么意思
这里的Info(22)之类的是不是通过这个Sub ShowInfo()函数获取的

谢谢
ShowBoard()
If BBS94KK.Info(21)="1" then PageString=PageString&ShowOnline()
Response.Write PageString &"<iframe name='hiddenframe' frameborder='0'  height='0' id='hiddenframe'></iframe>"
If BBS94KK.Info(22)="1" then ShowBirthday()
If BBS94KK.Info(23)="1" then ShowLink()
BBS94KK.Footer()
Set BBS94KK = Nothing


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