\documentclass[a4paper]{book}
\usepackage[dvips]{color}
\usepackage{amsmath,amssymb}
\usepackage{framed}
\usepackage[thmmarks,framed]{ntheorem}
\usepackage[Kashida]{xepersian}
\settextfont[Scale=.95]{Yas}

\makeatletter
\newdimen\errorsize \errorsize=0.2pt
% Frame with a label at top
\newcommand\LabFrame[2]{
\fboxrule=1.5pt
\fboxsep=.5pt
\fbox{%
    \fboxrule=1.5pt
    \fboxsep=-\errorsize
    \textcolor{FrameColor}{%
    \fbox{%
      \vbox{\nobreak
      \advance\FrameSep\errorsize
      \begingroup
        \advance\baselineskip\FrameSep
        \hrule height \baselineskip
        \nobreak
        \vskip-\baselineskip
      \endgroup
      \vskip 0.5\FrameSep
      \hbox{\hskip\FrameSep \strut
        \textcolor{black}{\textbf{#1}}}%
      \nobreak \nointerlineskip
      \vskip 1.3\FrameSep
      \hbox{\hskip\FrameSep
        {\normalcolor#2}%
        \hskip\FrameSep}%
      \vskip\FrameSep
    }}%
}}}
\definecolor{FrameColor}{rgb}{1,1,.70}
\definecolor{TitleColor}{rgb}{1.0,1.0,1.0}

\newenvironment{contlabelframe}[2][\Frame@Lab\ (cont.)]{% 
  % Optional continuation label defaults to the first label plus
  \def\Frame@Lab{#2}%
  \def\FrameCommand{\LabFrame{#2}}%
  \def\FirstFrameCommand{\LabFrame{#2}}%
  \def\MidFrameCommand{\LabFrame{#1}}%
  \def\LastFrameCommand{\LabFrame{#1}}%
  \MakeFramed{\advance\hsize-\width \FrameRestore} 
}{\endMakeFramed} 
\newcounter{theorem}
\newenvironment{theorem}[1]{%
  \par
  \refstepcounter{theorem}%
  \begin{contlabelframe}{
  \fboxrule=.75pt
   \fboxsep=2.3pt
  \fbox{ \thetheorem}\quad #1}
 \noindent\ignorespaces}
{\end{contlabelframe}} 
\makeatother

\begin{document}
این یک متن آزمایشی است که در حال نوشتنش هستیم این یک متن آزمایشی است که در حال نوشتنش هستیم 
این یک متن آزمایشی است که در حال نوشتنش هستیم
\begin{theorem}{قضیه‌}
می‌گوئیم حد دنباله\[\lim_{n\to\infty}a_n=L\]مابقی چرندیات ...
\end{theorem}
\begin{theorem}{تعریف}
می‌گوئیم حد دنباله
\[\lim_{n\to\infty}a_n=L\]
مابقی چرندیات
 ...
\end{theorem}


\end{document}