The mathtools package provides nearly everything you need to construct this, and stmaryrd has the extra pieces of symbols. Putting these together gives

\documentclass{article}
\usepackage{centernot}
\usepackage{mathtools}
\usepackage{stmaryrd}
\makeatletter
\newcommand{\xMapsto}[2][]{\ext@arrow 0599{\Mapstofill@}{#1}{#2}}
\def\Mapstofill@{\arrowfill@{\Mapstochar\Relbar}\Relbar\Rightarrow}
\makeatother
\begin{document}
\begin{gather*}
\mapsto \qquad \xmapsto[A]{sdfkjhsdf} \\
\Mapsto \qquad \xMapsto[A]{sdfkjhsdf}
\end{gather*}
\end{document}
The parameters 0599 are for the placement of the labels and how much the arrow extends over them. I have use the same numbers as mathtools does for \xmapsto. \Mapstochar is the short bar at the beginning, from the stmaryrd package, \Relbar is the double line which fits with final \Rightarrow. The internal macros names include the @ character, so have to be included in a \makeatletter / \makeatother pair.
It might have been nice to use the extpfeil package for this, but unfortunately it loads stmaryrd with clashing options.
\Longmapstoenough for you? – Sigur Aug 13 '13 at 12:08\longmapsto, it exists. – Yan King Yin Nov 15 '15 at 09:01