ASP实现空间的最近访客的方法

发布时间：2023-12-24 17:55:50 所属栏目：Asp教程来源：DaWei

导读： 由于工作关系，在做一个用户空间。要用到空间的最近访客，见ASP代码：

<%
username=request.QueryString("username") '地栏中的username,就是自己的用户名了

if trim(request.Co

由于工作关系，在做一个用户空间。要用到空间的最近访客，见ASP代码：

<%
username=request.QueryString("username") '地栏中的username,就是自己的用户名了

if trim(request.Cookies("user_name"))<>"" Then '首页要判断该访问是否登陆，只有登陆的访问才能记入数据库。
if username <> request.Cookies("user_name") Then '判断该访客是否是自己
f_username=trim(request.Cookies("user_name")) '获取访问的用户名
f_time=now()
Call Visitor() '调用访问的函数
end if
end if

sqlVisitor=("select top 1 * from visitor where (username='"&username&"') and (f_username='"&f_username&"') ")
Set rsVisitor=server.CreateObject("adodb.recordset")
rsVisitor.open sqlVisitor,conn,1,1
if not (rsVisitor.eof and rsVisitor.bof) Then '判断是否存在数据库，如果有更新时间，没有的话就年插入该访客的用户名和时间
conn.execute ("update visitor set f_time ='"&now()&"' where (username='"&username&"') and (f_username='"&f_username&"') ")
Else
conn.execute ("insert into visitor (username,f_username,f_time) values ('"&username&"','"&f_username&"','"&f_time&"')")
end If
rsVisitor.close()
Set rsVisitor=nothing
End Sub
%>

然后就是自己在空间中调用最近访问了，代码省略。

（编辑：晋中站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!