Private Function GetSqlStr(iChannelID, arrClassID, IncludeChild, iSpecialID, IsHot, IsElite, Author, DateNum, OrderType, ShowClassName, IsPicUrl)
Dim strSql, IDOrder
iSpecialID = PE_CLng(iSpecialID)
If iSpecialID > 0 Then
strSql = strSql & " from PE_InfoS I inner join (PE_Article A left join PE_Class C on A.ClassID=C.ClassID) on I.ItemID=A.ArticleID"
Else
strSql = strSql & " from PE_Article A left join PE_Class C on A.ClassID=C.ClassID"
End If
strSql = strSql & " where A.Deleted=" & PE_False & " and A.Status=3 and A.ReceiveType=0"
If iChannelID > 0 Then
strSql = strSql & " and A.ChannelID=" & iChannelID
End If
If arrClassID <> "0" Then
If InStr(arrClassID, ",") = 0 And IncludeChild = True Then
Dim trs
Set trs = Conn.Execute("select arrChildID from PE_Class where ClassID=" & PE_CLng(arrClassID) & "")
If trs.BOF And trs.EOF Then
arrClassID = "0"
Else
If IsNull(trs(0)) Or Trim(trs(0)) = "" Then
arrClassID = "0"
Else
arrClassID = trs(0)
End If
End If
Set trs = Nothing
End If

If InStr(arrClassID, ",") > 0 Then
strSql = strSql & " and A.ClassID in (" & FilterArrNull(arrClassID, ",") & ")"
Else
If PE_CLng(arrClassID) > 0 Then strSql = strSql & " and A.ClassID=" & PE_CLng(arrClassID)
End If
End If
If iSpecialID > 0 Then
strSql = strSql & " and I.ModuleType=1 and I.SpecialID=" & iSpecialID
End If
If IsHot = True Then
strSql = strSql & " and A.Hits>=" & HitsOfHot
End If
If IsElite = True Then
strSql = strSql & " and A.Elite=" & PE_True
End If
If Trim(Author) <> "" Then
strSql = strSql & " and A.Author='" & Author & "'"
End If
If DateNum > 0 Then
strSql = strSql & " and DateDiff(" & PE_DatePart_D & ",A.UpdateTime," & PE_Now & ")<" & DateNum
End If

If IsPicUrl = True Then
strSql = strSql & " and A.DefaultPicUrl<>'' "
End If

strSql = strSql & " order by "
Select Case OrderType
Case 1
strSql = strSql & "A.OnTop " & PE_OrderType & ","
Case 2
strSql = strSql & ""
Case 3
strSql = strSql & "A.UpdateTime desc,"
Case 4
strSql = strSql & "A.UpdateTime asc,"
Case 5
strSql = strSql & "A.Hits desc,"
Case 6
strSql = strSql & "A.Hits asc,"
Case 7
strSql = strSql & "A.CommentCount desc,"
Case 8
strSql = strSql & "A.CommentCount asc,"
Case Else
strSql = strSql & "A.OnTop " & PE_OrderType & ","
End Select
If OrderType = 2 Then
IDOrder = "asc"
Else
IDOrder = "desc"
End If
If iSpecialID > 0 Then
strSql = strSql & "I.InfoID " & IDOrder
Else
strSql = strSql & "A.ArticleID " & IDOrder
End If
GetSqlStr = strSql
End Function

查看更多 動易Cms教程  動易Cms模板