Function CovHtml(content)
ON ERROR RESUME NEXT
CovHtml=content
IF Not IsNull(content) Then
CovHtml=Replace(CovHtml,"&","&")
CovHtml=Replace(CovHtml,"<","<")
CovHtml=Replace(CovHtml,">",">")
CovHtml=Replace(CovHtml,chr(34),""")
CovHtml=Replace(CovHtml,chr(39),"'")
End IF
IF Err.Number <>0 Then
CovHtml= "CovHtml 转换中出错请联系管理员<br>"
Err.Clear
End IF
End Function
Function unCovHtml(content)
ON ERROR RESUME NEXT
unCovHtml=content
IF Not IsNull(content) Then
unCovHtml=Replace(unCovHtml,"&","&",1,-1,1)
unCovHtml=Replace(unCovHtml," ",chr(32),1,-1,1)
unCovHtml=Replace(unCovHtml,"<","<",1,-1,1)
unCovHtml=Replace(unCovHtml,">",">",1,-1,1)
unCovHtml=Replace(unCovHtml,""",chr(34),1,-1,1)
End IF
IF Err.Number <>0 Then
unCovHtml= "unCovHtml 转换中出错请联系管理员<br>"
Err.Clear
End IF
End Function