# “Save as (html)” and still render Input cell code as text?

When I' m testing on this post' s method

I found some problems.

Export["test.html", nb = EvaluationNotebook[], "HTML",
"ConversionRules" -> {"Input" -> {"<pre><code>", DisplayForm[#] &, "/code>/pre>"}},
CharacterEncoding -> "CP936", "CSS" -> None]

Export["test.html", nb = EvaluationNotebook[], "HTML",
"ConversionRules" -> {"Input" -> {"<pre><code>", InputForm[#] &, "</code>/pre>"}},
CharacterEncoding -> "CP936", "CSS" -> None]


How can I keep the Codes completely the same as that in the Notebook?

Are there any easy ways to do that? For example, change the DisplayFormula[#]& into something else that I don't know?

-

This thing could be done by the option "MathOutput"->"InputForm", However I'm not sure whether this can entirely solve the question(need more tests).
Export["test.html", nb = EvaluationNotebook[], "HTML",

Merge two Input Cell（Or type by Enter, there is a "\n" in the cell Expression）, and follow the method in the above then still generate images in the HTML files. (How to make this Input Cell become text in the html files?)