user.asp

可以做论坛

<!--#include file="conn.asp"-->
<!--#include file="sysinfo.asp"-->
<%
id=session.sessionid
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then 
userip= Request.ServerVariables("REMOTE_ADDR")
end if
if session("idy")="" then

    
     set rsa=Server.CreateObject("ADODB.Recordset")
     sql="select * from online where id="&id
     rsa.Open sql,Conn,1,3

    if rsa.eof then '访客第一次浏览
    uzhiwu=0
    uidy=0
    rsa.addnew
    rsa("id")=id
    rsa("bm")="游客"
    rsa("idy")=uidy '0表示用户未登陆，是游客身份
    rsa("dltime")=now() '写入当前时间
    rsa("hdtime")=now() '更新活动时间
    rsa("ip")=userip

   rsa.update
   else
   conn.Execute("update online set hdtime=now() where id="&id)
   uidy=0
   uzhiwu=0
   end if
   'rsa.close
   'set rsa=nothing 
else
   online=1
   conn.Execute("update online set hdtime=now() where idy="&session("idy")&"")
   set rsu=Server.CreateObject("ADODB.Recordset")
   userinfo="select * from user where idy="&session("idy")
   rsu.Open userinfo,Conn,1,1
   uidy=rsu("idy")
   uuser=rsu("user")
   upwl=rsu("pwl")
   utime=rsu("time")
   udltime=rsu("dltime")
   ubm=rsu("bm")
   uemail=rsu("email")
   uxingbie=rsu("xingbie")
   ugeren=rsu("geren")
   uage=rsu("age")
   uqq=rsu("qq")
   uhome=rsu("home")
   uip=rsu("ip")
   ujibie=rsu("jibie")
   ujibiej=rsu("jibiej")
   ujingnian=rsu("jingnian")
   ujinqian=rsu("jinqian")
   umeili=rsu("meili")
   uzhiwu=rsu("zhiwu")
   uweiwang=rsu("weiwang")
   uhaoyou=rsu("haoyou")
   uqingren=rsu("qingren")
   upeiou=rsu("peiou")
   utieshu=rsu("tieshu")
   uhuitie=rsu("huitie")
   ushntie=rsu("shantie")
   ulock=rsu("ulock")
   udizhi=rsu("dizhi")
   uyoubian=rsu("youbian")
   
end if
 'Response.Write ""&ujibie&""
 
conn.execute("delete from online where datediff('n',hdtime,now())>'60'")

'取屏蔽词与IP
ccpb="select * from pingbi "
set rspb=server.createobject("adodb.recordset")
rspb.open ccpb,conn,1,1
cip=rspb("cip")
ipp=rspb("ipp")
%>