% 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 %>
|
|
| <% 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
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. |