日期:2014-05-17 浏览次数:20817 次
function HTMLDecode(fString) fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString," ",chr(32)) fString = Replace(fString,""",chr(34)) fString = Replace(fString,"'",chr(39)) fString = Replace(fString, "", CHR(13)) fString = Replace(fString, "</P><P>", CHR(10) & CHR(10)) fString = Replace(fString, "<BR>", CHR(10)) HTMLDecode = fString end function