'函数名：GetSiteCountAll
  '作  用：替换网站统计标签为内容
  '参  数：Flag-0总统计，1-文章统计 2-图片统计
  '*********************************************************************************************************
  Function GetSiteCountAll(Flag)
     Dim ChannelTotal: ChannelTotal = Conn.Execute("Select Count(*) From KS_Class Where TN='0'")(0)
     Dim MemberTotal:MemberTotal=Conn.Execute("Select Count(*) From KS_User")(0)
     Dim CommentTotal: CommentTotal = Conn.Execute("Select Count(*) From KS_Comment")(0)
     Dim GuestBookTotal:GuestBookTotal=Conn.Execute("Select Count(ID) From KS_GuestBook")(0)
     Dim ArticleTotal: ArticleTotal = Conn.Execute("Select Count(*) From KS_Article")(0)
     Dim PictureTotal: PictureTotal = Conn.Execute("Select Count(*) From KS_Photo")(0)
     Dim DownLoadTotal: DownLoadTotal = Conn.Execute("Select Count(*) From KS_Download")(0)
     Dim ProductTotal: ProductTotal = Conn.Execute("Select Count(*) From KS_Product")(0)
     Dim MovieTotal: MovieTotal = Conn.Execute("Select Count(*) From KS_Movie")(0)
     Dim SupplyTotal:SupplyTotal = Conn.Execute("Select Count(*) From KS_GQ")(0)
    
     GetSiteCountAll="<table border=0 align=""center"" width=""100%"" cellSpacing=0 cellPadding=0>" & vbcrlf
     Select Case Flag
   Case 0
     GetSiteCountAll = GetSiteCountAll & "<tr><td>频道总数： " & ChannelTotal & " 个</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>会员总数： " & MemberTotal & " 位</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>文章总数： " & ArticleTotal & " 篇</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>图片总数： " & PictureTotal & " 张</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>下载总数： " & DownLoadTotal & " 个</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>商品总数： " & ProductTotal & " 个</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>留言总数： " & GuestBookTotal &" 条</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>评论总数： " & CommentTotal & " 条</td></tr>" & vbcrlf
     GetSiteCountAll = GetSiteCountAll & "<tr><td>在线人数： <script language=""javascript"" src=""" & DomainStr & "KS_Inc/online.asp?ID=1""></script> 人</td></tr>" & vbcrlf
     End Select
     GetSiteCountAll = GetSiteCountAll & "</table>" & vbcrlf
  End Function

还有   Case 1

           Case 2呢

下面文章统计也没有呢,在动易和创力中早就有这个功能,