错误见：

http://bbs.kesion.com/forumthread-185905.html

修复方法：

打开user/user_blog.asp

找到900多行的如下代码：

Sub ShowLog()

     Dim I

    Response.Write "<FORM Action=""User_Blog.asp?Action=Del"" name=""myform"" method=""post"">"

   Do While Not RS.Eof

         %>

           <tr class='tdbg'>

                                            <td class="splittd" height="20" align="center">

           <INPUT id="ID" type="checkbox" value="<%=RS("ID")%>"  name="ID">

           </td>

           <td class="splittd" align="center"><%=Conn.Execute("Select TypeName From KS_BlogType Where TypeID=" & RS("TypeID"))(0)%></td>

将红色的代码改成

<td class="splittd" align="center"><%

           Dim RST:Set RST=Conn.Execute("Select TOP 1 TypeName From KS_BlogType Where TypeID=" & RS("TypeID"))

           IF NOT RST.Eof Then

              Response.Write RST(0)

           Else

              Response.Write "---"

           End If

           RST.Close:Set RST=Nothing%></td>

即可