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