所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

sub Application_OnStartApplication("conn")="dsn=;uid=;pwd="end subSub session_onstartsession("ip")=Request.ServerVariables("REMOTE_ADDR")session("stime")=now()application.Lockif application("clicks")="" thenapplication("clicks")=0end ifapplication("clicks")=application("clicks")+1application.UnLockEnd SubSub Session_Onendapplication.LockStrSQL="dsn=;uid=;pwd="set conn=server.createobject("ADODB.CONNECTION")conn.open StrSQLSQL = "insert into client(c_date,stime,etime,ip) values('"&date()&"','"&_ session("stime")&"','"&now()&"','"&session("ip")&"')"conn.Execute(sql)conn.Closeset conn=nothingapplication.UnLockEnd Sub 关闭本页

....