% 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 %>
|
|
| <% 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 " | |
|
Matérias > Biologia > Biologia > Conservação dos Alimentos - Desinfecção e Esterilização
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. |