📄 interface.asp
字号:
<%
Class Interface
'网页页眉
Public Sub Header()
%><table width="776" cellpadding="0" cellspacing="0" align="center"><%
%><tr align="center" valign="middle"><%
%><td width="100%" height="166" class="header">Larrix BLOG 网络日志发布系统</td><%
%></tr><%
%></table><%
End Sub
'网页导航面板
Public Sub Navigation()
%><table width="190" cellpadding="0" cellspacing="0" border="0"><%
%><caption class="guider"><li type="square">内容导航</li></caption><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Day.asp">今天的日志</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Month.asp">归档的日志</a></td><%
%></tr><%
%></table><%
End Sub
'按天导航面板
Public Sub ByDay(intYear, intMonth, intDay)
%><table width="190" cellpadding="0" cellspacing="0" border="0"><%
%><caption class="guider"><li type="square">内容导航</li></caption><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Day.asp?year=<% = Year(DateSerial(intYear, intMonth, intDay - 1)) %>&month=<% = Month(DateSerial(intYear, intMonth, intDay - 1)) %>&day=<% = Day(DateSerial(intYear, intMonth, intDay - 1)) %>">上一天的日志</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Day.asp?year=<% = Year(Date()) %>&month=<% = Month(Date()) %>&day=<% = Day(Date()) %>">今天的日志</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Day.asp?year=<% = Year(DateSerial(intYear, intMonth, intDay + 1)) %>&month=<% = Month(DateSerial(intYear, intMonth, intDay + 1)) %>&day=<% = Day(DateSerial(intYear, intMonth, intDay + 1)) %>">下一天的日志</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Month.asp">归档的日志</a></td><%
%></tr><%
%></table><%
End Sub
'按月导航面板
Public Sub ByMonth(intYear, intMonth)
%><table width="190" cellpadding="0" cellspacing="0" border="0"><%
%><caption class="guider"><li type="square">内容导航</li></caption><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Day.asp">今天的日志</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Month.asp?year=<% = Year(DateSerial(intYear, intMonth - 1, 1)) %>&month=<% = Month(DateSerial(intYear, intMonth - 1, 1)) %>&day=<% = Day(DateSerial(intYear, intMonth - 1, 1)) %>">上个月的日志</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Month.asp?year=<% = Year(Date()) %>&month=<% = Month(Date()) %>">这个月的日志</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - <a href="Month.asp?year=<% = Year(DateSerial(intYear, intMonth + 1, 1)) %>&month=<% = Month(DateSerial(intYear, intMonth + 1, 1)) %>&day=<% = Day(DateSerial(intYear, intMonth + 1, 1)) %>">下个月的日志</a></td><%
%></tr><%
%></table><%
End Sub
'计数器统计
Public Sub Counter()
Dim objDBMS
Dim intSUM
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Logins] WHERE [LoginURL]='" & Request.ServerVariables("REMOTE_ADDR") & "'", 3
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
objDBMS.objRSET.AddNew
objDBMS.objRSET("LoginNUM").Value = 1
objDBMS.objRSET("LoginDTM").Value = Now()
objDBMS.objRSET("LoginURL").Value = Request.ServerVariables("REMOTE_ADDR")
objDBMS.objRSET("LoginSYS").Value = Request.ServerVariables("HTTP_USER_AGENT")
objDBMS.objRSET.Update
Else
objDBMS.objRSET("LoginNUM").Value = objDBMS.objRSET("LoginNUM") + 1
objDBMS.objRSET("LoginDTM").Value = Now()
objDBMS.objRSET("LoginSYS").Value = Request.ServerVariables("HTTP_USER_AGENT")
objDBMS.objRSET.Update
End If
objDBMS.Close
Set objDBMS = Nothing
%><table width="190" cellpadding="0" cellspacing="0" border="0"><%
%><caption class="guider"><li type="square">资源统计</li></caption><%
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Logins]", 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 访问：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT [LoginNUM] FROM [Logins]", 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
While Not objDBMS.objRSET.EOF
intSUM = intSUM + objDBMS.objRSET("LoginNUM")
objDBMS.objRSET.MoveNext
Wend
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 点击：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Members]", 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 会员：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Items]", 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 日志：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Comments]", 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 评论：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Messages]", 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 留言：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
%></table><%
End Sub
'今天计数器统计
Public Sub Today()
Dim objDBMS
Dim intSUM
%><table width="190" cellpadding="0" cellspacing="0" border="0"><%
%><caption class="guider"><li type="square">今日更新</li></caption><%
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Logins] WHERE YEAR([LoginDTM])=" & Year(Date()) & " AND MONTH([LoginDTM])=" & Month(Date()) & " AND DAY([LoginDTM])=" & Day(Date()), 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 访问：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Members] WHERE YEAR([MemberDTM])=" & Year(Date()) & " AND MONTH([MemberDTM])=" & Month(Date()) & " AND DAY([MemberDTM])=" & Day(Date()), 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 会员：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Items] WHERE YEAR([ItemDTM])=" & Year(Date()) & " AND MONTH([ItemDTM])=" & Month(Date()) & " AND DAY([ItemDTM])=" & Day(Date()), 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 日志：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Comments] WHERE YEAR([CommentDTM])=" & Year(Date()) & " AND MONTH([CommentDTM])=" & Month(Date()) & " AND DAY([CommentDTM])=" & Day(Date()), 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 评论：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Messages] WHERE YEAR([MessageDTM])=" & Year(Date()) & " AND MONTH([MessageDTM])=" & Month(Date()) & " AND DAY([MessageDTM])=" & Day(Date()), 1
intSUM = 0
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
intSUM = 0
Else
intSUM = objDBMS.objRSET.RecordCount
End If
%><tr align="left" valign="middle"><%
%><td width="100%" class="guider"> - 留言：<% = intSUM %></td><%
%></tr><%
objDBMS.Close
Set objDBMS = Nothing
%></table><%
End Sub
'网页页脚
Public Sub Footer()
%><table width="776" cellpadding="0" cellspacing="0" border="0" align="center"><%
%><tr align="center" valign="middle"><%
%><td width="100%" height="44" class="footer">Copyright ©2004-<% = Year(Date()) %> | <a href="http://www.larry.net.cn/LarrixBLOG.zip" class="footer">Larrix BLOG 下载</a> | <a href="mailto:webmaster@larry.net.cn" class="footer">Larry Lee 设计制作</a> | <a href="guestbook.asp" class="footer">留言板</a></td><%
%></tr><%
%></table><%
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -