namespace FsWeb.Repositories

open System.Data.Entity
open FsWeb.Models

type FsMvcAppEntities() = 
    inherit DbContext("FsMvcAppExample")

    do Database.SetInitializer(new CreateDatabaseIfNotExists<FsMvcAppEntities>())

    [<DefaultValue()>] val mutable books: IDbSet<Guitar>
    member x.Books with get() = x.books and set v = x.books <- v

namespace FsWeb.Repositories

type BooksRepository() =
    member x.GetAll () = 
        use context = new FsMvcAppEntities() 
        query { for g in context.Books do
                select g }
        |> Seq.toList

FSPowerPack.Linq.Community

query <@ seq { for g in context.Books -> g } @> |> Seq.toList

[<HandleError>]
type BooksController(repository : BooksRepository) =
    inherit Controller()
    new() = new BooksController(BooksRepository())
    member this.Index () =
        repository.GetAll()
        |> this.View

<add name="FsMvcAppExample"
     connectionString="YOUR CONNECTION STRING"
     providerName="System.Data.SqlClient" />

1.کش کردن همیشه آخرین حربه می‌باشد

2.حذف View Engine‌های غیر ضروری

ViewEngines.Engines.Clear();
ViewEngines.Engines.Add(new RazorViewEngine());

ViewEngines.Engines.Clear();
ViewEngines.Engines.Add(new WebFormViewEngine());

using NHibernate.Event;

namespace NHYeKeAuditor
{
   public class YeKeAuditorEventListener : IPreInsertEventListener, IPreUpdateEventListener
   {
       // Represents a pre-insert event, which occurs just prior to performing the
       // insert of an entity into the database.
       public bool OnPreInsert(PreInsertEvent preInsertEvent)
       {
           var entity = preInsertEvent.Entity;
           CorrectYeKe.ApplyCorrectYeKe(entity);
           return false;
       }

       // Represents a pre-update event, which occurs just prior to performing the
       // update of an entity in the database.
       public bool OnPreUpdate(PreUpdateEvent preUpdateEvent)
       {
           var entity = preUpdateEvent.Entity;
           CorrectYeKe.ApplyCorrectYeKe(entity);
           return false;
       }
   }
}

using System;
using System.Linq;
using FluentNHibernate.Cfg;
using NHibernate.Cfg;

namespace NHYeKeAuditor
{
   public static class MappingsConfiguration
   {
       public static FluentConfiguration InjectYeKeAuditorEventListener(this FluentConfiguration fc)
       {
           return fc.ExposeConfiguration(configListeners());
       }

       private static Action<Configuration> configListeners()
       {
           return
               c =>
               {
                   var listener = new YeKeAuditorEventListener();
                   c.EventListeners.PreInsertEventListeners =
                       c.EventListeners.PreInsertEventListeners
                       .Concat(new[] { listener })
                       .ToArray();
                   c.EventListeners.PreUpdateEventListeners =
                       c.EventListeners.PreUpdateEventListeners
                       .Concat(new[] { listener })
                       .ToArray();
               };
       }
   }
}

   public string SafeFarsiStr(string input)
   {
       return input.Replace("ی", "ی").Replace("ک", "ک");
   }

--اسکریپتی برای یک دست سازی ی و ک در تمامی رکوردهای تمامی جداول دیتابیس جاری
-- اسکریپت زیر ی و ک فارسی را به عربی تبدیل می‌کند
-- در صورت نیاز به حالت عکس ، جای مقادیر عددی یونیکد را تعویض نمائید

USE TestDb;

DECLARE @Table NVARCHAR(MAX),
       @Col NVARCHAR(MAX)

DECLARE Table_Cursor CURSOR 
FOR
   --پیدا کردن تمام فیلدهای متنی تمام جداول دیتابیس جاری
   SELECT a.name, --table
          b.name --col
   FROM   sysobjects a,
          syscolumns b
   WHERE  a.id = b.id
          AND a.xtype = 'u' --User table
          AND (
                  b.xtype = 99 --ntext
                  OR b.xtype = 35 -- text
                  OR b.xtype = 231 --nvarchar
                  OR b.xtype = 167 --varchar
                  OR b.xtype = 175 --char
                  OR b.xtype = 239 --nchar
              )

OPEN Table_Cursor FETCH NEXT FROM  Table_Cursor INTO @Table,@Col
WHILE (@@FETCH_STATUS = 0)
BEGIN
   EXEC (
            'update [' + @Table + '] set [' + @Col +
            ']= REPLACE(REPLACE(CAST([' + @Col +
            '] as nvarchar(max)) , NCHAR(1740), NCHAR(1610)),NCHAR(1705),NCHAR(1603)) '
        )
  
   FETCH NEXT FROM Table_Cursor INTO @Table,@Col
END CLOSE Table_Cursor DEALLOCATE Table_Cursor