tools.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%
function txt2html(txt)
	txt2html=txt
	if ishtml(txt2html) then
		txt2html=replace(txt2html,"[HTML]","")
		txt2html=replace(txt2html,"[/HTML]","")
		exit function
	end if

	txt2html=replace(txt2html,"<","&lt;")
	txt2html=replace(txt2html,">","&gt;")
	txt2html=replace(txt2html,"&","&amp;")
	txt2html=replace(txt2html,chr(13),"<br>")
	txt2html=replace(txt2html," ","&nbsp; ")
end function

function ishtml(txt)
	if txt="" or isnull(txt) then
		ishtml=false
		exit function
	end if

	if instr(txt,"[HTML]")>0 and instr(txt,"[/HTML]")>0 then
		ishtml=true
	else
		ishtml=false
	end if
end function
%>