|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码online.asp文件,把这个online.asp文件包括到要统计的页面低部便可.<!--#includefile="dbconn.asp"-->
<%
onlineTimeout=10界说在线举动工夫的工夫距离
FunctionUserip()
GetClientIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")取得用户的假造IP地点
IfGetClientIP=""orisnull(GetClientIP)orisempty(GetClientIP)Then
GetClientIP=Request.ServerVariables("REMOTE_ADDR")假如未利用代办署理服务器,就取得来历的IP地点
EndIf
Userip=GetClientIP
EndFunction
sql="selecto_idfromc_onlinewhereo_ip="&Userip()&""在数据库中查找所取得的IP地点的id
Setrs=conn.execute(sql)
Ifrs.eofandrs.bofThen
sql="insertintoc_online(o_ip)values("&Userip()&")"假如数据库中没有就标明是新IP,那末拔出操纵
conn.execute(sql)
Else
sql="updatec_onlineseto_ltime=now()whereo_ip="&Userip()&""更数据库确当前工夫
conn.execute(sql)
EndIf
sql="deletefromc_onlinewheredateadd(s,"&onlineTimeout*60&",o_ltime)<now()"界说非常钟革新
conn.execute(sql)
rs.close
Setrs=nothing
Functionallonline()
tmprs=conn.execute("Selectcount(o_id)fromc_online")
allonline=tmprs(0)
settmprs=nothing
endFunction
%>
<%Response.Write"document.write(""在线"&allonline()&"人"")"%>
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|