rss2.asp

一个ＡＳＰ网站博克程序

<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "object/Item.asp" -->

<%
	Dim objItem
	Dim intYear
	Dim intMonth
	Dim intDay
	Set objItem = New Items
	Select Case Request.QueryString("order")
		Case "def"
			objItem.RSS2 "SELECT [Items].*,[Members].[MemberUID],[Categories].[CategoryLAB] FROM [Items],[Members],[Categories] WHERE [Items].[MemberID]=[Members].[MemberID] AND [Items].[CategoryID]=[Categories].[CategoryID] AND [ItemHID]=0 ORDER BY [ItemTOP],[ItemID] DESC", Request.QueryString("page")
		Case "cat"
			If Trim(Request.QueryString("id")) = "" Or IsNumeric(Trim(Request.QueryString("id"))) = False Then
				Response.Redirect("Default.asp")
			End If
			objItem.RSS2 "SELECT [Items].*,[Members].[MemberUID],[Categories].[CategoryLAB] FROM [Items],[Members],[Categories] WHERE [Items].[MemberID]=[Members].[MemberID] AND [Items].[CategoryID]=[Categories].[CategoryID] AND [Items].[CategoryID]=" & Trim(Request.QueryString("id")) & " AND [ItemHID]=0 ORDER BY [ItemTOP],[ItemID] DESC", Request.QueryString("page")
		Case "day"
			If IsDate(Trim(Request.QueryString("year")) & "-" & Trim(Request.QueryString("month")) & "-" & Trim(Request.QueryString("day"))) = False Then
				intYear = Year(Date())
				intMonth = Month(Date())
				intDay = Day(Date())
			Else
				intYear = Year(Trim(Request.QueryString("year")) & "-" & Trim(Request.QueryString("month")) & "-" & Trim(Request.QueryString("day")))
				intMonth = Month(Trim(Request.QueryString("year")) & "-" & Trim(Request.QueryString("month")) & "-" & Trim(Request.QueryString("day")))
				intDay = Day(Trim(Request.QueryString("year")) & "-" & Trim(Request.QueryString("month")) & "-" & Trim(Request.QueryString("day")))
			End If
			objItem.RSS2 "SELECT [Items].*,[Members].[MemberUID],[Categories].[CategoryLAB] FROM [Items],[Members],[Categories] WHERE [Items].[MemberID]=[Members].[MemberID] AND [Items].[CategoryID]=[Categories].[CategoryID] AND DATEDIFF('d',[ItemDTM],'" & intYear & "-" & intMonth & "-" & intDay & "')=0 AND [ItemHID]=0 ORDER BY [ItemTOP],[ItemID] DESC", Request.QueryString("page")
		Case "mon"
			If IsDate(Trim(Request.QueryString("year")) & "-" & Trim(Request.QueryString("month")) & "-1") = False Then
				intYear = Year(Date())
				intMonth = Month(Date())
			Else
				intYear = Year(Trim(Request.QueryString("year")) & "-" & Trim(Request.QueryString("month")) & "-1")
				intMonth = Month(Trim(Request.QueryString("year")) & "-" & Trim(Request.QueryString("month")) & "-1")
			End If
			objItem.RSS2 "SELECT [Items].*,[Members].[MemberUID],[Categories].[CategoryLAB] FROM [Items],[Members],[Categories] WHERE [Items].[MemberID]=[Members].[MemberID] AND [Items].[CategoryID]=[Categories].[CategoryID] AND  YEAR([ItemDTM])=" & intYear & " AND MONTH([ItemDTM])=" & intMonth & " AND [ItemHID]=0 ORDER BY [ItemTOP],[ItemID] DESC", Request.QueryString("page")
		Case "src"
			objItem.RSS2 "SELECT [Items].*,[Members].[MemberUID],[Categories].[CategoryLAB] FROM [Items],[Members],[Categories] WHERE [Items].[MemberID]=[Members].[MemberID] AND [Items].[CategoryID]=[Categories].[CategoryID] AND ([ItemLAB] LIKE '%" & Trim(Request.QueryString("keyword")) & "%' OR [ItemVAL] LIKE '%" & Trim(Request.QueryString("keyword")) & "%') AND [ItemHID]=0 ORDER BY [ItemTOP],[ItemID] DESC", Request.QueryString("page")
		Case Else
			objItem.RSS2 "SELECT [Items].*,[Members].[MemberUID],[Categories].[CategoryLAB] FROM [Items],[Members],[Categories] WHERE [Items].[MemberID]=[Members].[MemberID] AND [Items].[CategoryID]=[Categories].[CategoryID] AND [ItemHID]=0 ORDER BY [ItemTOP],[ItemID] DESC", Request.QueryString("page")
	End Select
	Set objItem = Nothing
%>