data0=Import["http://www.mitbbs.com/article_t/Joke/32448171.html","XMLObject"];

data1=Composition[
(*Grid[#,Dividers-> All]&,*)
Cases[#, {a_String, XMLElement["img",{___,"src"->url_},{}]}:> {a,url}]&,
Partition[#,2,2,{1,1},{}]&,
Replace[#,a_String:>  StringReplace[StringTrim[a],"\n"-> ""],{1}]&,
#[[3;;-2]]&,
ReplaceRepeated[#,{a___,s1_String,s2_String,b___}:> {a,s1<>s2,b}]&,
DeleteCases[#,Except[_?(StringQ[#]&&StringLength[StringTrim[#]]>0&)|XMLElement["img",___]]]&,
#[[1,3]]&,
Cases[#,XMLElement["p",{},{"发信人: platinumegg (蛋,纯铂金的), 信区: Joke",___}],Infinity]&
][data0]

data2=Composition[
Replace[#, {title_String, url_} :> {title, EnglishToChineseDictionary[title, "zh-TW", 1, "TranslationEngine" -> {"Microsoft"}],url}, {1}]&
][data1]

$saveDir="/Users/lumeng/WorkSpace-X4430/repogit-meng6net-pages-workingcopy-x4430/images/blog/developer_moments";

data2[[All,3]][[;;2]]

URLSave[#,ToFileName[{$saveDir},FileNameTake[#,-1]]]&/@data2[[All,3]][[2;;]]

SystemOpen["/Users/lumeng/WorkSpace-X4430/repogit-meng6net-pages-workingcopy-x4430/images/blog/developer_moments/code-34.gif"]

data2//RandomChoice

data3={#[[1]],#[[2]],FileNameTake[#[[3]],-1]}&/@data2;

data3//RandomChoice

text=StringJoin@@(StringJoin[#[[1]],"  \n",#[[2]],"：  \n","![",ToString[#[[3]]],"](/pages/images/blog/developer_moments/",ToString[#[[3]]],")\n\n\n"]&/@data3)

：