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

發表評論 共有條評論 用戶名: 密碼: 驗證碼: 匿名發表

新聞熱點

最牛同桌！我考了696分我同桌考了703分

2024-06-26 22:28:41

650分！高二女生考入北大：遺憾不能上高三

2024-06-26 22:26:16

男生估分600只考了397 媽媽：高考雖重要，但不代表所有

2024-06-26 22:23:01

唐尚珺回應是否會直播帶貨：有人出100萬想和他合作！

2024-06-25 19:29:23

名校搶人名場面：清華、北大太拼了！

2024-06-25 19:22:14

男生高考語文滿分！網友：第一次聽說

2024-06-25 19:19:15

疑難解答

• 如何查找有故障的配件
• 計算機啟動故障的判斷
• 練就火眼金睛 十一種常見電腦故障判斷
• 了解電腦啟動過程，解決啟動問題
• 電腦也怕冷，溫度低引發的故障
• 電腦各種中英文信息對照及錯誤信息總
• 新安裝計算機無法啟動的故障原因
• 電腦噪音大的解決辦法
• 怎樣減少機箱內的電磁干擾？
• 常見電腦故障維修－聲卡音箱篇

圖片精選

網友關注

• 三星i9250去除虛擬按鍵教程
• 綠毒越獄軟件 完美越獄4.21教程
• htcg15怎么刷機？htcg15刷機教程
• HTC hd7刷安卓2.2全教程
• mpkg軟件下載和卸載的方法
• 華為c8860刷機教程
• 美萌手賬更換手賬背景方法
• 用ipad mini可以打電話嗎？怎么打？
• 蘋果ipad2使用教程
• 三星s6352怎么樣設置上網？