ASP实例：ASP实现空间的最近访客_ASP教程
推荐：ASP防止GET,Post注入和防止服务器攻击,并记录IP% '防止GET,Post注入和防止服务器攻击 '使用方法把本文件包含到需要防注的文件就OK了,说明下,这里的post攻击和Get攻击不一定是攻击,在英文版本的时候请注意使用 '冯旭修改 session.Abandon() Dim fxjt111_Attack_post,fxjt111_Attack_Get,fxjt111_Attack_Sys
由于工作关系，在做一个用户空间。要用到空间的最近访客，见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
Sub Visitor()
'作者：无情 来源：
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
%>
然后就是自己在空间中调用最近访问了，代码省略。
分享：ASP将IP地址最后一位替换成星号实例代码先将IP地址存入数据库，然后取出来，效果如图： 代码如下： % '来源 ipstr= rs(cIP) ipstr=split(ipstr,.,-1,1) ipstrout=ipstr(0).ipstr(1).ipstr(2).* response.write ipstrout %
- 相关链接：
- 教程说明：
ASP教程-ASP实例：ASP实现空间的最近访客
。