文章列表类别

ElseIf stype = 4 Then
SQL = "SELECT SUM(DayHits) FROM NC_SoftList WHERE isAccept>0 " & foundsql
Else
SQL = "SELECT COUNT(softid) FROM NC_SoftList WHERE isAccept>0 " & foundsql
End If
Case 4
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = "SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0 And Datediff(d,WriteTime,GetDate())=0"
Else
SQL = "SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0 And WriteTime>=Date()"
End If
Else
SQL = "SELECT COUNT(GuestID) FROM NC_GuestBook WHERE isAccept>0"
End If
Case 5
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = "SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 " & foundsql & " And Datediff(d,addTime,GetDate())=0"
Else
SQL = "SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 " & foundsql & " And addTime>=Date()"
End If
ElseIf stype = 2 Then
SQL = "SELECT SUM(AllHits) FROM NC_FlashList WHERE isAccept>0 " & foundsql
ElseIf stype = 3 Then
SQL = "SELECT SUM(filesize) FROM NC_FlashList WHERE isAccept>0 " & foundsql
ElseIf stype = 4 Then
SQL = "SELECT SUM(DayHits) FROM NC_FlashList WHERE isAccept>0 " & foundsql
Else
SQL = "SELECT COUNT(flashid) FROM NC_FlashList WHERE isAccept>0 " & foundsql
End If
Case Else
If stype = 1 Then
If isSqlDataBase = 1 Then
SQL = "SELECT COUNT(userid) FROM NC_User WHERE Datediff(d,JoinTime,GetDate())=0"
Else
SQL = "SELECT COUNT(userid) FROM NC_User WHERE JoinTime>=Date()"
End If
Else
SQL = "SELECT COUNT(userid) FROM NC_User"
End If
End Select
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
StatCount = 0
Else
StatCount = CCur(Rs(0))
If (moduleid = 2 And stype = 3) Or (moduleid = 5 And stype = 3) Then
StatCount = Round(StatCount / 1024 / 1024, 3)
StatCount = FormatNumber(StatCount, 3, -1)
End If
End If
Rs.Close: Set Rs = Nothing
LoadStatistic = StatCount
End Function
''================================================
''函数名：ReadStatistic
''作 用：读取频道统计
''参 数：str ----原字符串
''================================================
Public Function ReadStatistic(ByVal str)
On Error Resume Next
Dim strTemp, i, sTempContent
Dim nTempContent, ArrayList
Dim arrTempContent, arrTempContents

strTemp = str
On Error Resume Next