【Vegas原创】网站计数器(asp)
2007-03-16 09:43
330 查看
Global.asa 加入以下代码:
<Script language="VBScript" runat="server">
Sub Session_OnStart
Dim strCon
strCon="Database=tmpCounter;uid=sa;pwd=****;driver={SQL Server};server=****"
Dim server_name,url
url=Request.ServerVariables("SCRIPT_NAME")
urlArray=Split(url,"/")
server_name=Request.ServerVariables("SERVER_NAME") & "/" & urlArray(1)
Application.Lock
If Application("counter")=null Then
Application("counter")=1
Else
Application("counter")=Application("counter")+1
End If
Application.Unlock
Dim login_ip
login_ip=Request.ServerVariables("REMOTE_ADDR")
Dim insStr
insStr="insert tcounter(login_ip,server_name,counter) values('" & login_ip & "','" & server_name & "'," & Application("counter") & ")"
Set db=server.CreateObject("ADODB.Connection")
db.open strCon
db.execute(insStr)
db.close()
Set db=Nothing
End Sub
</Script>
<Script language="VBScript" runat="server">
Sub Session_OnStart
Dim strCon
strCon="Database=tmpCounter;uid=sa;pwd=****;driver={SQL Server};server=****"
Dim server_name,url
url=Request.ServerVariables("SCRIPT_NAME")
urlArray=Split(url,"/")
server_name=Request.ServerVariables("SERVER_NAME") & "/" & urlArray(1)
Application.Lock
If Application("counter")=null Then
Application("counter")=1
Else
Application("counter")=Application("counter")+1
End If
Application.Unlock
Dim login_ip
login_ip=Request.ServerVariables("REMOTE_ADDR")
Dim insStr
insStr="insert tcounter(login_ip,server_name,counter) values('" & login_ip & "','" & server_name & "'," & Application("counter") & ")"
Set db=server.CreateObject("ADODB.Connection")
db.open strCon
db.execute(insStr)
db.close()
Set db=Nothing
End Sub
</Script>
相关文章推荐
- 【Vegas原创】网站计数器(asp)
- 【Vegas原创】网站计数器(.net)
- 【Vegas原创】网站计数器(.net)
- 【Vegas原创】asp/html页面作为邮件正文发送
- 【原创】【推荐】《ASP.NET 3.5+SQL Server网站模块化开发全程实录》出版记
- 【Vegas原创】asp.net页面作为邮件正文发送
- ASP与网站计数器
- 【Vegas原创】“没有与共享服务提供程序SharedServices 关联的管理网站”解决
- [原创]ASP.NET网站中获取当前虚拟目录的应用程序目录的方法
- 【Vegas原创】asp/html页面作为邮件正文发送
- Asp.net 2.0使用Global.asax制作网站计数器的一点心得
- 似乎知道了为什么网站计数器不会显示/(ASP中FSO的神奇功能)
- 【Vegas原创】HTTP无法访问内网网站的解决方法
- asp 网站PR值查询系统源码[绝对原创]
- ASP Access实现网站计数器(访问量)
- 【Vegas原创】“没有与共享服务提供程序SharedServices 关联的管理网站”解决
- 【Vegas原创】HTTP无法访问内网网站的解决方法
- 【Vegas原创】asp.net页面作为邮件正文发送
- 【Vegas原创】ASP 0131 不允许父路径的解决
- 【Vegas原创】HTTP无法访问内网网站的解决方法