<% Session("varTipoTop") = "a" varArea = "home" varTituloPagina = "Matérias > Biologia > Biologia > Conservação dos Alimentos - Desinfecção e Esterilização - Página 2" 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

4. Desidratação

Os alimentos secos foram usados durante séculos, sendo mais comuns, no mundo, do que os alimentos congelados. A remoção da água por secagem ao sol e ao ar ou através da aplicação de calor causa a desidratação.

O efeito conservador da desidratação é, principalmente, devido à microbiostase, já que os germes não são, necessariamente, mortos. O crescimento de todos os microrganismos pode ser inibido pela redução da umidade do ambiente até abaixo de um nível crítico. Este nível crítico é determinado pelas características do germe em particular e a capacidade do alimento em conservar água, o que reduz a umidade livre. Deve-se assinalar que as culturas liofilizadas dos microrganismos sobrevivem durante anos.

5. Pressão osmótica

a) Em açúcar concentrado

b) Com salmoura

É retirada água dos microrganismos colocados em soluções que contêm grandes quantidades de substâncias dissolvidas, tais como açúcares ou sais. As células são plasmolisadas e o metabolismo se interrompe. Assim, a condição antimicrobiana imposta pelo aumento da pressão osmótica se relaciona, em princípio, com a inibição por desidratação.

Embora as leveduras e os bolores sejam relativamente resistentes às alterações osmóticas, os processos de conservação de alimentos baseados neste fundamento são, no entanto, muito úteis. As geléias e compotas são raramente afetadas pela ação bacteriana em virtude de seu alto conteúdo em açúcar. Não é incomum, porém, encontrar o crescimento de bolores na superfície de geléias que foram expostas ao ar. O leite condensado é conservado, em parte, pelo aumento na concentração da lactose e pela suplementação em sacarose. Resultados similares são obtidos pela cura de carnes e outros alimentos em salmouras.

As altas pressões osmóticas podem inibir o desenvolvimento microbiano, mas não podem destruir todos os microganismos.


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