<%
Function leach(str) '去除部分html代碼
if str<>"" then
	str=replace(replace(replace(replace(replace(str,chr(34),"&quot;"),chr(39),"&#039;"),"<","&lt;"),">","&gt;"),vbCrlf,"<br>")
end if
	leach=str

End function

Function Outleach(str)

		if str<>"" then
		  str=replace(replace(replace(replace(replace(str,"&quot;",chr(34)),"&#039;",chr(39)),"&lt;","<"),"&gt;",">"),"<br>",vbCrlf)
		end if

   Outleach=str
End function
%>