推荐：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 %