本来觉得这个功能没啥用处的，但是偶然发现，游客对于掌握博主什么时候登陆过还是很有必要的。

另外还修改了刷新首页时更新当前账户的最后登陆时间，保证前页显示时间的准确性。

------------华丽的分割线-------------

附上修改教程：

1、打开class\cls_default.asp文件

找到代码：

If IsInteger(cateID) = True Then
getCate.load(cateID)
CT = "分类: "&getCate.cate_Name&""

在其下添加代码：

else
dim visitdb,visitsql
set visitdb=Server.CreateObject("Adodb.RecordSet")
visitsql="select mem_lastVisit from blog_Member where mem_ID=1"
Conn.Execute("update blog_member set mem_LastIP='"&getIP()&"',mem_lastVisit='"&DateToStr(Now(), "Y-m-d H:I:S")&"' where mem_Name='"&memName&"'")
visitdb.open visitsql,conn,1,1
CT = "欢迎访问清心雅阁，阁主最近登录时间："&DateToStr(visitdb("mem_lastVisit"),"Y-m-d")&""
visitdb.close
set visitdb=nothing

找到代码：

草稿列表<%=MultiPage(Log_Num,blogPerPage,CurPage,Url_Add,"","float:Left","")%>
<%else%>
<%=CT%>预览模式: 普通 | 列表
<%End If

把以上代码修改为：

草稿列表<%=MultiPage(Log_Num,blogPerPage,CurPage,Url_Add,"","float:Left","")%>
<%else%>
<%If IsInteger(cateID) = True Then%>
<%=CT%>预览模式: 普通 | 列表
<%else%>
<%=CT%>
预览模式: 普通 | 列表
<%end if%>
<%End If

2、打开class\cls_logAction.asp文件

找到代码

<%=title%>预览模式: 普通 | 列表

把以下代码修改为：

<%If IsInteger(cateID) = True Then%>
<%=title%>预览模式: 普通 | 列表
<%else%>
<%=title%>
预览模式: 普通 | 列表
<%end if%>