清心语轩

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

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

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

附上修改教程：

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 = "<span style="" float:left""=""><img src="" images="" luke="" notice.gif""=""></span><span style="" float:left;padding:1px="" 0px="" 5px;text-align:left""="">欢迎访问清心雅阁，阁主最近登录时间："&DateToStr(visitdb("mem_lastVisit"),"Y-m-d")&"</span>"
visitdb.close
set visitdb=nothing

找到代码：

<div class="pageContent" style="text-align:Right;overflow:hidden;height:18px;line-height:140%"><span style="float:left">草稿列表</span><%=MultiPage(Log_Num,blogPerPage,CurPage,Url_Add,"","float:Left","")%></div>
<%else%>
<div class="pageContent" style="text-align:Right;overflow:hidden;height:18px;line-height:140%"><span style="float:left"><%=CT%></span>预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a></div>
<%End If

把以上代码修改为：

<div class="pageContent" style="text-align:Right;overflow:hidden;height:18px;line-height:140%"><span style="float:left">草稿列表</span><%=MultiPage(Log_Num,blogPerPage,CurPage,Url_Add,"","float:Left","")%></div>
<%else%>
<%If IsInteger(cateID) = True Then%>
<div class="pageContent" style="text-align:Right;overflow:hidden;height:18px;line-height:140%"><span style="float:left"><%=CT%></span>预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a></div>
<%else%>
<div class="pageContent" style="text-align:Right;overflow:hidden;height:36px;line-height:140%"><span style="float:left"><%=CT%></span>
<span style="float:right">预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a></span></div>
<%end if%>
<%End If

2、打开class\cls_logAction.asp文件

找到代码

<div class="pageContent" style="text-align:Right;overflow:hidden;height:18px;line-height:140%"><span style="float:left"><%=title%></span>预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a></div>

把以下代码修改为：

<%If IsInteger(cateID) = True Then%>
<div class="pageContent" style="text-align:Right;overflow:hidden;height:18px;line-height:140%"><span style="float:left"><%=title%></span>预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a></div>
<%else%>
<div class="pageContent" style="text-align:Right;overflow:hidden;height:36px;line-height:140%"><span style="float:left"><%=title%></span>
<span style="float:right">预览模式: <a href="<%=Url_Add%>distype=normal" accesskey="1">普通</a> | <a href="<%=Url_Add%>distype=list" accesskey="2">列表</a></span></div>
<%end if%>