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

Question

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?

Answer 1

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",  
       "ConversionRules" -> {"Input" -> {"<pre><code>", "</code></pre>"}}, 
       CharacterEncoding -> "CP936", "CSS" -> None,"MathOutput"->"InputForm"]

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?)