增加CCS1.1的Blog日志访问者记录功能

我相信大家都会想知道有那些人看过了自己的“杰作”，CCS中原来记录了PV(PageView)的来源，通过修改我们可以实现访问者跟踪功能。

一、修改CCS源码

1）打开\src\Components\Components\Referral.cs（访问记录实体类），添加代码

private string _visitor;
/// 
/// getter and setter for Visitor name
/// 
public string Visitor
{
    get
    {
        return this._visitor;
    }
    set
    {
        this._visitor = value;
    }
}

2）打开\src\blogs\controls\entryviewcontainer.cs，修改void BindData()，goto line75把

Referral r = new Referral();
r.SettingsID = CSContext.Current.SiteSettings.SettingsID;
r.SectionID = we.SectionID;
r.PostID = we.PostID;
Referrals.AddToQueue(Context,CurrentWeblog.ReferralFilter,r);

改为

Referral r = new Referral();
r.SettingsID = CSContext.Current.SiteSettings.SettingsID;
r.SectionID = we.SectionID;
r.PostID = we.PostID;
r.Vistor = CSContext.Current.UserName; // record current visitor name
Referrals.AddToQueue(Context,CurrentWeblog.ReferralFilter,r);

3）打开src\data providers\sqldataprovider\sqlcommondataprovider.cs，修改public override void SaveReferralList(ArrayList referrals)为

public override void SaveReferralList(ArrayList referrals)
        {
            using( SqlConnection connection = GetSqlConnection() ) 
            {
                SqlCommand command = new SqlCommand( this.databaseOwner + ".cs_referrals_Add", connection);
                

                // Mark as stored procedure
                command.CommandType = CommandType.StoredProcedure;

                // Add parameters
                command.Parameters.Add("@SettingsID", SqlDbType.Int, 4);
                command.Parameters.Add("@SectionID", SqlDbType.Int, 4);
                command.Parameters.Add("@PostID", SqlDbType.Int, 4);
                command.Parameters.Add("@UrlID", SqlDbType.Int, 4);
                command.Parameters.Add("@Url", SqlDbType.NVarChar, 512);
                command.Parameters.Add("@Visitor", SqlDbType.NVarChar, 64);  // visitor name parameter

                connection.Open();
                foreach(Referral referral in referrals)
                {

                    command.Parameters["@SettingsID"].Value = referral.SettingsID;
                    command.Parameters["@SectionID"].Value = referral.SectionID;
                    command.Parameters["@PostID"].Value = referral.PostID;
                    command.Parameters["@UrlID"].Value = referral.UrlID;
                    command.Parameters["@Url"].Value = referral.Url;
                    command.Parameters["@Visitor"].Value = referral.Vistor;
                    command.ExecuteNonQuery();
                }
                connection.Close();
                command.Dispose();
                connection.Dispose();
            }
        }

修改public override ReferralSet GetReferrals(Referral r, int pageSize, int pageIndex)，把while(reader.read())代码段改为

while(reader.Read())
{
   referral = new Referral();
   referral.PostID = (int)reader["PostID"];
   referral.SectionID = (int)reader["SectionID"];
   referral.LastDate = (DateTime)reader["LastDate"];
   referral.Hits = (int)reader["Hits"];
   referral.Url = reader["Url"] as string;
   referral.Title = reader["Subject"] as string;
   referral.Vistor = reader["Visitor"] as string;

   rs.Referrals.Add(referral);                    
}

4）打开\src\themes\default\skins\blog\Skin-WebReferralList.ascx，在html代码

<th class="column" width="*"><CS:ResourceControl runat="server" ResourceName="Referrals_Url" ID="Resourcecontrol1"/>th>

下面插入

<th class="column" width="150px"><CS:ResourceControl runat="server" ResourceName="Referrals_Visitor" ID="Resourcecontrol5"/>th>

然后修改为

<ItemTemplate>
        <tr>
            <td><asp:HyperLink ID = "ReferralLink" Runat = "Server" />td>
            <td align="center"><asp:Literal ID = "Visitor" Runat = "Server" />td>
            <td><asp:HyperLink ID = "PostLink" Runat = "Server" />
            <td align="center"><asp:Literal ID = "ReferralHits" Runat = "server" />td>
            <td align="center"><asp:Literal ID = "ReferralDate" Runat = "server" />td>
        tr>
    ItemTemplate>

5）打开\src\blogs\controls\admin\webblogreferrallist.ascx，修改private void referralRepeater_ItemDataBound(object sender, RepeaterItemEventArgs e)为

private void referralRepeater_ItemDataBound(object sender, RepeaterItemEventArgs e)
{
   if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)
   {
      Referral r = e.Item.DataItem as Referral;

      if(r != null)
      {
         HyperLink link = e.Item.FindControl("ReferralLink") as HyperLink;
         Literal hits = e.Item.FindControl("ReferralHits") as Literal;
         Literal last = e.Item.FindControl("ReferralDate") as Literal;
         Literal visitor = e.Item.FindControl("Visitor") as Literal;   // add the visitor column
         
         HyperLink sl = e.Item.FindControl("PostLink") as HyperLink;

         if(r.Title.Length <= 100)
            sl.Text = r.Title;
         else
            sl.Text = r.Title.Substring(0,100);

         sl.NavigateUrl = BlogUrls.Instance().ShortLink(r.PostID);

         if(r.Url.Length <= 100)
            link.Text =  Context.Server.HtmlEncode(r.Url);
         else
            link.Text = Context.Server.HtmlEncode(r.Url.Substring(0,100));

         link.NavigateUrl = r.Url;
         visitor.Text = r.Vistor;   // bind the visitor column

         hits.Text = r.Hits.ToString();
         last.Text = r.LastDate.ToString(DateFormat);


      }
   }
}

6）修改相应Language的Resource.xml文件，添加Referrals_Visitor字符串

二、修改数据库

1）修改cs_referrals数据表，添加Visitor列，属性为nvarchar(64), allow null，或直接执行

ALTER TABLE cs_Referrals ADD Visitor nvarchar(64) NULL

2）修改存储过程cs_referrals_Add，可直接执行如下sql语句

ALTER Proc dbo.cs_referrals_Add
(
    @UrlID int,
    @Url nvarchar(512),
    @SettingsID int,
    @SectionID int,
    @PostID int,
    @Visitor nvarchar(64)
)

as
SET Transaction Isolation Level Read UNCOMMITTED

exec cs_Urls_Add @UrlID, @Url

Declare @ReferralID int

Select @ReferralID = ReferralID FROM cs_Referrals where SettingsID = @SettingsID and SectionID = @SectionID and UrlID = @UrlID

if(@ReferralID is null)
Begin
    Insert cs_Referrals (SettingsID, SectionID, PostID, UrlID, Hits, LastDate, Visitor)
    Values (@SettingsID, @SectionID, @PostID, @UrlID, 1, getdate(), @Visitor)
End
Else
Begin
    Update cs_Referrals
    Set 
        Hits = Hits + 1,
        LastDate = getdate()
    Where ReferralID = @ReferralID
End

3）修改cs_referrals_Get，直接执行下面的sql语句

ALTER Proc dbo.cs_referrals_Get
(
    @SettingsID int,
    @SectionID int,
    @PostID int,
    @PageSize int,
    @PageIndex int,
    @TotalRecords int output
)

as 
SET Transaction Isolation Level Read UNCOMMITTED
DECLARE @RowsToReturn int
DECLARE @PageLowerBound int
DECLARE @PageUpperBound int

SET @RowsToReturn = @PageSize * (@PageIndex + 1)
SET ROWCOUNT @RowsToReturn
SET @PageLowerBound = @PageSize * @PageIndex
SET @PageUpperBound = @PageLowerBound + @PageSize + 1

CREATE TABLE #PageIndex 
(
    IndexID int IDENTITY (1, 1) NOT NULL,
    ReferralID int
)


if @PostID <> -1
Begin
    Insert #PageIndex (ReferralID)
    Select ReferralID FROM cs_Referrals where SettingsID = @SettingsID and SectionID = @SectionID and PostID = @PostID order by LastDate desc

    -- Reset rowcount and get count of total records
    SET ROWCOUNT 0
    Select @TotalRecords = count(*) From cs_Referrals Where SettingsID = @SettingsID and SectionID = @SectionID and PostID = @PostID

End
Else
Begin
    Insert #PageIndex (ReferralID)
    Select ReferralID FROM cs_Referrals where SettingsID = @SettingsID and  SectionID = @SectionID order by ReferralID

    -- Reset rowcount and get count of total records
    SET ROWCOUNT 0
    Select @TotalRecords = count(*) From cs_Referrals Where SettingsID = @SettingsID and SectionID = @SectionID

End

Select  cs_Posts.Subject,  cs_Referrals.ReferralID, cs_Referrals.SettingsID,  cs_Referrals.SectionID, cs_Posts.PostID, Url, Hits, LastDate, cs_Referrals.Visitor
FROM cs_Referrals, cs_Urls, #PageIndex, cs_Posts
Where
    cs_Referrals.ReferralID = #PageIndex.ReferralID and
    cs_Urls.UrlID = cs_Referrals.UrlID and 
    #PageIndex.IndexID > @PageLowerBound AND
    #PageIndex.IndexID < @PageUpperBound AND 
    cs_Posts.PostID = cs_Referrals.PostID
Order by IndexID

--Select @TotalRecords = Count(*) FROM #PageIndex

DROP Table #PageIndex

适用于CCS1.1，学习CCS中，感谢宝玉～～