VBScript 代码：【复制】 
Function inHTML(str)
	 Dim sTemp
	 sTemp = str
	 inHTML = ""
	 If(IsNull(sTemp) = True)Then
		Exit Function
	 End If
	 sTemp = Replace(sTemp, "&", "&")
	 sTemp = Replace(sTemp, "",chr(13))
	 sTemp = Replace(sTemp, "<", "<")
	 sTemp = Replace(sTemp, ">", ">")
	 sTemp = Replace(sTemp, """, Chr(34))
	 inHTML = sTemp
End Function