<% Session("varTipoTop") = "a" varArea = "home" varTituloPagina = "Matérias > Biologia > Biologia > Conservação dos Alimentos - Desinfecção e Esterilização - Página 3" varCor = "#003C6E" %> <% Set dbDados = Server.CreateObject("ADODB.Connection") dbDados.Open Application("ConnectionString") Dim vEndereco_url vEndereco_url = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then vEndereco_url = vEndereco_url & "?" & Replace(Request.QueryString,"'","|") End If Dim Item For Each Item In Request.form vEndereco_url = vEndereco_url & "&" & Item & "=" & Request.form(Item) next vEndereco_url = Replace(vEndereco_url,"&","&") vIp = Request.ServerVariables("REMOTE_ADDR") sql = "insert into controle (ip,endereco) values('" & vIp & "','" & vEndereco_url & "')" Set rsControle = dbDados.Execute(sql) if (Instr(1, vEndereco_url, "|", 1) > 0 or Instr(1, vEndereco_url, ";", 1) > 0 or Instr(1, vEndereco_url, "--", 1) > 0) Then sql = "insert into controle (ip,endereco) values('" & vIp & "','ACESSO BLOQUEADO:" & vEndereco_url & "')" Set rsControle = dbDados.Execute(sql) response.write "Caracteres Inválidos" Response.end() end if 'dbDados.Close 'Set dbDados = Nothing 'Set dbDados = Server.CreateObject("ADODB.Connection") 'dbDados.Open Application("ConnectionString") %> <% ' Rotina para formatar Numeros para o SQL Function fNum(Numero) If isNumeric(Numero) Then fNum = Int(Numero * 1) Else fNum = 0 End If End Function ' Rotina para formatar String para o SQL Function fStr(String) fStr = Replace(Replace(String, "'","''"),"|","' + CHAR(124) + '") End Function Function fJs(Texto) fJs = Replace(Replace(Replace(Replace(Texto,"\","\\"), "'", "\'"), vbCr, "\r"), vbLf, "\n") End Function ' Rotina para formatar Datas dd/mm/yyyy Function FormataData ( Data ) FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function ' Rotina para formatar Datas mm/dd/yyyy Function FormataDataAmericana ( Data ) FormataDataAmericana = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function ' Rotina para formatar Hora hh:mm Function FormataHora ( DataHora ) FormataHora = Right("0" & DatePart("H",DataHora),2) & ":" & Right("0" & DatePart("n",DataHora),2) End Function Function FormataDataHora (DataHora) FormataDataHora = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) & " " & Right("0" & DatePart("H",DataHora),2) & ":" & Right("0" & DatePart("n",DataHora),2) End Function ' Rotina para formatar textos para textarea (retira '&', '"', '<', '>') Function fHtml(Texto) x = Texto & "" x = Replace(x, "&", "&") x = Replace(x, """", """) x = Replace(x, "<", "<") x = Replace(x, ">", ">") fHtml = x End Function ' Rotina para Formatar Valores 9.999,99 Function FormataValor (Valor) Dim sp, sv, v sp = Mid(FormatNumber(1000, 0, -1, 0, -1),2,1) sv = Mid(FormatNumber(0.1, 1, -1, 0, -1),2,1) If isNumeric(Valor) Then v = FormatNumber (Valor, 2, -1, 0, -1) Else v = FormatNumber (0, 2, -1, 0, -1) End If v = Replace(v, sp, "p") v = Replace(v, sv, "v") v = Replace(v, "p", ".") v = Replace(v, "v", ",") FormataValor = v End Function 'Rotina para exibir a Data por extenso Function DataExtenso() Dim Agora, Dia, Mes, Ano, tmp Agora = Now Dia = Day(Agora) Mes = Month(Agora) Ano = Year(Agora) tmp = Dia If Dia = 1 Then tmp = tmp & "º." tmp = tmp & " de " Select Case Mes Case 1 tmp = tmp & "janeiro" Case 2 tmp = tmp & "fevereiro" Case 3 tmp = tmp & "março" Case 4 tmp = tmp & "abril" Case 5 tmp = tmp & "maio" Case 6 tmp = tmp & "junho" Case 7 tmp = tmp & "julho" Case 8 tmp = tmp & "agosto" Case 9 tmp = tmp & "setembro" Case 10 tmp = tmp & "outubro" Case 11 tmp = tmp & "novembro" Case 12 tmp = tmp & "dezembro" End Select tmp = tmp & " de " & Ano DataExtenso = tmp End Function %> <%= varTituloPagina %> <%'%> <% xScriptName = Request.ServerVariables("SCRIPT_NAME") xHttpHost = Request.ServerVariableS("HTTP_HOST") xCodigoMateria = Request.QueryString("CodigoMateria") xCodigoArtigo = Request.QueryString("CodigoArtigo") xCodigoTemasredacao = Request("CodigoTemasredacao") xCodigoAtividade = Request("CodigoAtividade") xCodigoProva = request("CodigoProva") xCodigoQuestao = request("CodigoQuestao") If request("tipobase") = "" then xTipo = Request("Tipo") else xTipo = Request("tipobase") xCodigoMateria = Request("CodigoMateria") end if select case xScriptName case "/artigos_1.asp" xTipo = "artigo" case "/materias_1.asp" xTipo = "materia" end select If xTipo <> "" Then select case xTipo case "materia" sql = "SELECT Caminho FROM Conteudos WHERE CodigoMateria = " & xCodigoMateria Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") else rsTipo.close sql = "select Conteudos.Caminho from Conteudos inner join Questoes on Questoes.CodigoMateria = Conteudos.CodigoMateria where Questoes.Codigo = " & xCodigoQuestao & xCodigoMateria Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") end if End if case "artigo" sql = "SELECT Path FROM Artigos WHERE Codigo = " & xCodigoArtigo Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if case "redacao" sql = "SELECT Caminho FROM Temasredacao WHERE Codigo = " & xCodigoTemasredacao Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if case "atividade" sql = "select Path from Atividades where codigo = " & xCodigoAtividade Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if case "gerador1" sql = "SELECT C.Caminho FROM Questoes AS Q INNER JOIN ProvasQuestoes AS PQ ON Q.Codigo = PQ.CodigoQuestao INNER JOIN Conteudos AS C ON Q.CodigoMateria = C.CodigoMateria WHERE CodigoUsuario = " & Session("usrCodigo") & " AND CodigoProva = " & xCodigoProva & " ORDER BY PQ.Indice" Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if end select End If %> <% vetAreas = Array("home","materias","enem","vestibular","simulados","apostilas","cultura","salaprofessores") vetTitulos = Array("Página Inicial","Matérias","Enem","Vestibular","Simulados","Apostilas","Cultura Geral","Sala dos Professores") vetLinks = Array("/", "/materias_indice_1.asp", "/enem.asp", "/vestibular.asp", "/simulado_menu_1.asp", "/editora/editora_intro.asp", "/cultura_geral.asp","/salaprofessores.asp") i2 = 0 For i = 0 to UBound(vetAreas) If varArea = vetAreas(i) Then i2 = i Exit For End If Next %>
<% For i = 0 to UBound(vetAreas) If varArea = vetAreas(i) Then tmpImagem = vetAreas(i) & "_1.gif" Else tmpImagem = vetAreas(i) & ".gif" End If Response.Write "" Next %>



Vestibulares passados
ENEM
Leitura obrigatória

Gerador de Provas
Aulas e Atividades
Matérias > Biologia > Biologia > Conservação dos Alimentos - Desinfecção e Esterilização
As diversas práticas utilizadas para a preservação dos alimentos podem ser resumidas como segue:

1. Manuseio asséptico

2. Calor

a) Fervura

A temperatura alta é um dos métodos mais seguros e mais confiáveis de preservação alimentar. O calor é amplamente utilizado para a destruição dos organismos existentes em produtos alimentares em latas, jarras ou outros tipos de recipientes que restringem a penetração de germes após o processamento.

b) Vapor sob pressão

O vapor sob pressão (autoclave), tal como numa panela de pressão, é o método mais eficaz, uma vez que mata todas as células vegetativas e os esporos. A conservação dos alimentos pelo calor requer o conhecimento da resistência térmica dos microrganismos, especialmente dos esporos. Além disso, deve-se considerar a taxa de penetração do calor em alimentos de consistências diferentes, assim como as dimensões dos continentes dos quais estão acondicionados.

A morte dos germes pelo calor envolve uma relação tempo-temperatura e muitas experiências foram feitas para que se determinassem os tempos de morte térmica das bactérias responsáveis pela deterioração dos alimentos. A partir de tais informações, é possível estabelecer satisfatórias condições de uso do calor.

Muito trabalho de pesquisa foi efetuado sobre o assunto, obtendo-se excelentes resultados quanto ao processo de enlatamento na conservação dos alimentos. A deterioração dos alimentos comercialmente enlatados ocorre muito raramente.

O organismo mais importante entre os que devem ser eliminados dos alimentos enlatados é o anaeróbio Clostridium botulinum, capaz de produzir uma toxina letal muito potente.


«   1 - 2 - 3 - 4 - 5 - 6 - 7 - 8   »
<% dbDados.Close Set dbDados = Nothing %>