（原创）sharepoint form认证下的当前在线用户统计和当日浏览量的统计
解决这个问题之前参考了很多asp.net的方案，但是试了之后一直没有达到我想要的效果，但是还是从中学习到了很多很多的东西。所以先把这几篇文章给贴出来：
http://blog.iyunv.com/zjybushiren88888/archive/2009/09/14/4550541.aspx
http://www.cnblogs.com/anchenjie007/archive/2008/02/27/1083273.html
http://blog.iyunv.com/cncxz/archive/2005/07/18/427778.aspx
之后在国外的一个哥们的博客发现了两篇文章，感觉就是自己需要的，但是还是有偏差，不过总体思路还是我需要的。
地址是：http://bryantlikes.com/bryantlikes/articles/583.aspx
http://bryantlikes.com/articles/592.aspx
而我做的思路也是参考这个哥们的，但是这个哥们的代码只是针对sharepoint基本验证模式的。
众所周知，要完全精确计算当前站点的在线用户人数列表的开发度是比较大的，因此这次的方法也只是一个非精确的方案。
下面开始讲我的方案：
：
在sharepoint数据库下建一个数据库UserOnline：在该数据库里建立table：
查询代码如下：
1
2
3 create table
4 (
5Url varchar(256) NOT NULL,
6UserID varchar(50) NOT NULL,
7 IP varchar(50) NOT NULL,
8Timestamp datetime NOT NULL
9 )
10 go
11
12 create proc Hit_Add
13 (
14@Url varchar(256),
15@UserID varchar(50),
16 @IP varchar(50)
17 )
18 as
19insert into Hits values
20(@Url, @UserID, @IP,getdate())
21
22 go
然后在你的sharepoint站点下的global文件里插入如下代码：
代码
1 protected void Session_Start(Object sender, EventArgs e)
2 {
3
4 try
5 {
6 using (SqlConnection cn = new SqlConnection("上面你建立的数据库的地址"))
7 {
8 cn.Open();
9
10 SqlCommand cmd = new SqlCommand();
11 cmd.Connection = cn;
12 cmd.CommandText = "Hit_Add";
13 cmd.CommandType = CommandType.StoredProcedure;
14
15 HttpContext ctx = HttpContext.Current;
16
17 cmd.Parameters.Add("@Url", SqlDbType.VarChar, 256).Value = ctx.Request.Url.ToString();
18 cmd.Parameters.Add("@UserID", SqlDbType.VarChar, 50).Value = ctx.User.Identity.Name;
19 cmd.Parameters.Add("@IP", SqlDbType.VarChar, 50).Value = ctx.Request.UserHostAddress.ToString();
20
21 cmd.ExecuteNonQuery();
22
23 cn.Close();
24 }
25 }
26 catch (SqlException)
27 {
28 }
29
30 }
31 这里要解释一下为什么要在Session_Start事件里执行该事件而不是在Application_AuthenticateRequest事件里执行：
因为在form认证的时候，当你进入登陆页面的时候，系统认为你是以匿名身份登陆的，所以你会发现，当你页面还没有打开的时候，Application_AuthenticateRequest事件已经执行了。
接下来在你的UserOnline数据库再添加一个table代码如下：
代码
1 create table ActiveUsers
2 ( UserID varchar(50) not null,
3 IP varchar(50) not null,
4 LastHit datetime not null,
5 LastUrl varchar(256) not null,
6 constraint PK_ActiveSessions
7 primary key clustered ( UserID ) )
8 go
9
10
11 alter proc Hit_Add (@Url varchar(256), @UserID varchar(50),@IP varchar(50))
12 as
13
14 if (@UserID = '域名\系统管理员账号')
15 return
16
17 insert into Hits values
18 (@Url, @UserID,@IP,getdate())
19
20 delete ActiveUsers where UserID = @UserID or
21 datediff(mi, LastHit, getdate()) > 30 -- minutes
22
23 insert into ActiveUsers values
24 (@UserID, @IP,getdate(),@Url)
25
26
27 go
28
29
30 create proc ActiveUsers_Get
31 as
32 select UserID, LastHit, LastUrl,
33 datediff(mi, LastHit, getdate()) Age
34 from ActiveUsers
35go 这样你会发现在你的数据库的可编程性里会多了2个存储过程
一个是Hit_Add一个是ActiveUsers_Get
这样其实整个过程就完成了。在hits表里存的就是点击改站点的所有用户的数据情况，其中信息由 用户名，ip地址和登录时间。我们可以通过不同的select语句来获得当月当日或者总的 用户登录数
1 select count(*) num from ..
2 where datediff(day,timestamp,getdate())=0
上面的代码就是获得当天的用户登录数的语句
而在ActiveUsers_Get里你也许也会发现几条用户的数据，但是其实那并不是我要的真正的activeusers的列表。
我们需要建立一个显示当前用户在线列表的控件：
前台代码：
代码
1<asp:GridView ID="GridOnline" runat="server" CssClass="myEailList"
2 Width="100%"border="0" cellpadding="0" cellspacing="0"
3 AlternatingRowStyle-CssClass="tr1" AllowPaging="True"
4 onpageindexchanging="GridOnline_PageIndexChanging" PageSize="50">
5 <PagerSettings Mode="NumericFirstLast" />
6 <AlternatingRowStyle CssClass="tr1"></AlternatingRowStyle>
7</asp:GridView>
8 <asp:Label ID="erInfo" runat="server" ></asp:Label>
后台代码：
代码
using System;
using System.Collections;
using System.Configuration;
using System.Data;
using System.Linq;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Xml.Linq;
using Microsoft.SharePoint;
using Microsoft.SharePoint.WebControls;
using System.Data.SqlClient;
using Microsoft.SharePoint.Utilities;
using Ultrapower.Portal.Business;
namespace Ultrapower.Portal.UserControls
{
public partial class UserOnLine : System.Web.UI.UserControl
{
privatevoid dowithgrd(string keyword, string name)
{
BoundField sendTimeField = new BoundField();
sendTimeField.DataField = keyword;
sendTimeField.HeaderText = name;
GridOnline.Columns.Add(sendTimeField);
}
privateDataSet ds = new DataSet();
private DataTable dt = new DataTable();
protected void Page_Load(object sender, EventArgs e)
{
UserOnlineCollection useronlineclt = new UserOnlineCollection();
string sqlcmd = "ActiveUsers_Get";
ds = useronlineclt.GetActiveUserTable(sqlcmd, CommandType.StoredProcedure);
GridOnline.Columns.Clear();
dowithgrd("Username", "名称");
dowithgrd("UserID", "登录名");
dowithgrd("IP", "登录IP");
dowithgrd("LastHit", "登录时间");
GridOnline.AutoGenerateColumns = false;
dt = ds.Tables;
dt.Columns.Add("Username");
for (int i = 0; i < dt.Rows.Count; i++)
{
string uid = dt.Rows["UserID"].ToString();
SPWeb spst = SPContext.Current.Site.RootWeb;
try
{
SPUser user = spst.AllUsers["ln:" + uid];
string name = user.Name;
if (name != null)
{
dt.Rows["Username"] = name.ToString();
}
else
{
dt.Rows["Username"] = "用户";
}
}
catch
{
dt.Rows["Username"] = "用户";
}
}
GridOnline.DataSource = ds.Tables;
GridOnline.DataBind();
}
protected void GridOnline_PageIndexChanging(object sender, GridViewPageEventArgs e)
{
GridOnline.PageIndex = e.NewPageIndex;
GridOnline.DataSource = ds.Tables;
GridOnline.DataBind();
}
}
}
PS：本人是。net和sharepoint的新手，代码肯定写的不好，写的东西也是大部分借鉴别人的东西再做修改而来的。欢迎大家来拍板砖共同学习共同进步~O(∩_∩)O~
页:
[1]