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

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

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

附上修改教程:

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%>