表单提交时过滤HTML代码，也就是说，不允许使用任何html script脚本 
vbscript 代码：【复制】 
Function outHTML(str)
	 Dim sTemp
	 sTemp = str
	 outHTML = ""
	 If(IsNull(sTemp) = True)Then
		Exit Function
	 End If
	 sTemp = Replace(sTemp, "&", "&")
	 sTemp = Replace(sTemp, "<", "<")
	 sTemp = Replace(sTemp, ">", ">")
	 sTemp = Replace(sTemp, Chr(34), """)
	 sTemp = Replace(sTemp, Chr(13), "
")
	 outHTML = sTemp
End Function