Function ChannelCount(sChannelID,sType)
    Cl.Load_ChannelSetting(sChannelID)
    Dim rsCount(2) as integer,ModuleName
    Select Case CLng(Cl.Channel.selectSingleNode("@moduleid").text)
    Case 1 : ModuleName = "Article"
    Case 2 : ModuleName = "Soft"
    Case 3 : ModuleName = "Photo"
    Case 4 : ModuleName = "Movie"
    Case 5 : ModuleName = "Product"
    Case Else : ModuleCount = 0 : Exit Function
    End Select
    Select Case sType
    Case 0
        Set rsCount(0) = Cl.Execute("select count(InfoID) from Cl_"&ModuleName&" where ChannelID="&sChannelID&" and Deleted="&FalseType)
        Set rsCount(1) = Cl.Execute("select sum(Hits) from Cl_"&ModuleName&" where ChannelID="&sChannelID&" and Deleted="&FalseType)
    Case 1
        Set rsCount(0) = Cl.Execute("select count(InfoID) from Cl_"&ModuleName&" where ChannelID="&sChannelID&" and Status=1 and Deleted="&FalseType)
        Set rsCount(1) = Cl.Execute("select sum(Hits) from Cl_"&ModuleName&" where ChannelID="&sChannelID&" and Status=1 and Deleted="&FalseType)
    Case 2
        Set rsCount = Cl.Execute("select count(InfoID) from Cl_"&ModuleName&" where ChannelID="&sChannelID&" and Status=0 and Deleted="&FalseType)
    Case 3 '===(3) 阅读
        Set rsCount = Cl.Execute("select sum(Hits) From Cl_"&ModuleName&" where ChannelID="&sChannelID&" ")
    Case 4 '===(4) 评论总数
        Set rsCount = Cl.Execute("select count(CommentID) from Cl_Comment where ChannelID="&sChannelID&"")
    Case 5 '===(5) 已审评论
        Set rsCount = Cl.Execute("select count(CommentID) from Cl_Comment where ChannelID="&sChannelID&" and Status=1")
    Case 6 '===(6) 待审评论
        Set rsCount = Cl.Execute("select count(CommentID) from Cl_Comment where ChannelID="&sChannelID&" and Status=0")
    Case 7 '===(7) 专题总数
        Set rsCount = Cl.Execute("select count(SpecialID) from Cl_Special where ChannelID="&sChannelID&"")
    Case Else
        ChannelCount = 0 : Exit Function
    End Select
    ChannelCount = rsCount()
    rsCount.Close : Set rsCount = Nothing
End Function
帮忙看看，我只改了两个case条件，其他的case条件不用管。可是不能显示结果，请大家看看帮帮忙～我加颜色的地方是不是有哪儿不对了

是VBScript，原来是这样啊，那是在access 中显示是数字，应该是对的吧

我不会，从网上粘的，不对啊？我不知道，所以才来问大家的