📄 month.asp
字号:
<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "object/Category.asp" -->
<!-- #Include File = "object/Item.asp" -->
<!-- #Include File = "object/Member.asp" -->
<!-- #Include File = "object/Link.asp" -->
<!-- #Include File = "object/Comment.asp" -->
<!-- #Include File = "object/Interface.asp" -->
<%
Dim objCategory
Dim objItem
Dim objMember
Dim objLink
Dim objInterface
Dim intYear
Dim intMonth
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
%>
<html>
<head>
<title>欢迎光临 Larrix BLOG 官方网站</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Style.css" type="text/css">
</head>
<body>
<%
Set objInterface = New Interface
objInterface.Header
Set objInterface = Nothing
%>
<table width="776" cellpadding="0" cellpadding="0" border="0" align="center" class="ground">
<tr valign="top">
<td align="center" width="194">
<br> <br>
<%
Set objInterface = New Interface
objInterface.ByMonth intYear, intMonth
Set objInterface = Nothing
%>
<br> <br>
<%
Set objCategory = New Category
objCategory.CategoryList
Set objCategory = Nothing
%>
<br> <br>
<%
Set objItem = New Items
objItem.ItemSearch
Set objItem = Nothing
%>
<br> <br>
<%
Set objMember = New Member
objMember.MemberLogin
Set objMember = Nothing
%>
<br> <br>
<%
Set objLink = New Link
objLink.LinkList
Set objLink = Nothing
%>
<br> <br>
<%
Set objInterface = New Interface
objInterface.Counter
Set objInterface = Nothing
%>
<br> <br>
<%
Set objInterface = New Interface
objInterface.Today
Set objInterface = Nothing
%>
<br> <br>
<a href="RSS1.asp?order=mon&year=<% = Request.QueryString("year") %>&month=<% = Request.QueryString("month") %>&page=<% = Request.QueryString("page") %>" target="_blank" title="RSS 1.0 聚合列表" type="application/rss+xml"><img src="images/rss1.gif" border="0"></a>
<br>
<a href="RSS2.asp?order=mon&year=<% = Request.QueryString("year") %>&month=<% = Request.QueryString("month") %>&page=<% = Request.QueryString("page") %>" target="_blank" title="RSS 2.0 聚合列表" type="application/rss+xml"><img src="images/rss2.gif" border="0"></a>
<br> <br>
</td>
<td align="left" width="582">
<br> <br>
<%
Set objItem = New Items
objItem.ItemMonth "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"), intYear, intMonth
Set objItem = Nothing
%>
<br> <br>
</td>
</tr>
</table>
<%
Set objInterface = New Interface
objInterface.Footer
Set objInterface = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -