我觉得个人空间中，调用一条微博的这个标签有问题。我用刚下载的最新版测试了。用户发布了微博后，个人空间中应该调用出一条数据，如官方现在这样：

可是我的不显示，只是像下图中这样（事实是我已经发布了一条微博）：

下图是我发布的微博的截图：

申明：这是用刚从官方下载的最新的9。03版进行测试的，没有进行过任何改动（仅注册了一个普通会员进行测试）。另：已经将微博参数中开通了微博频道。

ks_cls/Kesion.SpaceCls.asp

找到

'最新一条新鲜事

Function GetNewFresh()

  Dim RS:Set RS=Conn.Execute("Select top 1 f.*,u.userface from KS_BlogInfo f inner join KS_User u on f.username=u.username Where f.UserName='" & UserName &"' and f.status=0 and f.istalk=1 Order By f.id Desc")

  If RS.Eof And RS.Bof Then

     RS.Close :Set RS=Nothing

     GetNewFresh="<strong>新鲜事：</strong><a href='" & KS.GetSpaceUrl(userid) & "'>" & UserName & "</a>没有说出自己最近的新鲜事，<a href='" & KS.GetDomain& "space/?" &userid & "/fresh'>随便说几句</a>!"

     Exit Function

  Else

     Dim KSR:Set KSR=New Refresh

     GetNewFresh="<strong><a href='" & KS.GetSpaceUrl(userid) & "'>" & UserName & "</a>说：</strong>" & KSR.ReplaceEmot(rs("content")) & " <a href='" & KS.Setting(3)& "space/?" & userid & "/log/" & RS("ID") & "'>评论(<span style='color:#ff6600'>" & RS("TotalPut") & "</span>)</a>"

     Set KSR=Nothing

  End If

        RS.Close :Set RS=Nothing

End Function

替换为

'最新一条广播

Function GetNewFresh()

  Dim RS:Set RS=Conn.Execute("select top 1 b.id,a.userid,a.username,a.transtime,a.msg,b.adddate,b.copyfrom,b.note,b.cmtnum,b.username as busername,b.userid as buserid,b.transnum,a.type,a.id as rid from ks_userlogr a left join ks_userlog b on a.msgid=b.id where a.status=1 and a.userid=" & userid & " order by a.id desc")

  If RS.Eof And RS.Bof Then

     RS.Close :Set RS=Nothing

     GetNewFresh="<strong>广播：</strong><a href='" & KS.GetSpaceUrl(userid) & "'>" & UserName & "</a>没有广播消息，<a href='" & KS.GetDomain& "user/weibo.asp'>广播大厅</a>!"

     Exit Function

  Else

     Dim KSR:Set KSR=New refresh

     GetNewFresh="<strong><a href='" & KS.GetSpaceUrl(userid) & "'>" & UserName & "</a>说：</strong>" & KSR.ReplaceEmot(rs("note")) & " <a href='" & KS.Setting(3)& "user/weibo.asp?userid=" & userid & "'>转播(<span style='color:#ff6600'>" & RS("transnum") & "</span>)</a>"

     Set KSR=Nothing

  End If

        RS.Close :Set RS=Nothing

End Function

我觉得个人空间中，调用一条微博的这个标签有问题...