Ir para conteúdo
Fórum Script Brasil

+.jr_Designer.+

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    91

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que +.jr_Designer.+ postou

  1. +.jr_Designer.+
    Valeu cara! Pesquisei e achei. Agora ta funcionando do jeito que eu queria. PS: Valeu a intnção do adddate(google it) :lol: pacei batido :lol:!
  2. +.jr_Designer.+
    Rafael cara, desculpa a minha ignorância, mas não entendi o que você quis dizer com "dateadd(google it)"
  3. +.jr_Designer.+
    Jonathan Queiroz, obrigado pela dica, mas esse aí não me serve! eu já tentei destas duas formas: 1ª forma response.Cookies("acesso").item("data") = date() response.Cookies("acesso").expires = DateAdd("d",1,Now) 2ª forma response.cookies("acesso").item("data") = date response.cookies("acesso").item("data").Expires = day(Now)+1&"/"&month(now)&"/"& year(now) A segunda até que funcionou, mas fazendo os testes, mudei a data para o dia 30, aí quando é acrecentado +1 no dia, da erro porque neste mês (maio) não temos o dia 31. Se tiver alguma sugestão...
  4. +.jr_Designer.+
    Olá pessoal, Estou tentando fazer um contador de acesso para um site e preciso trabalhar com cookie para que ele conte a visita a cada dia. Pra isso preciso saber como fazer um cookie expirar todos os dias às 23:59:59? Alguém pode me ajudar?
  5. +.jr_Designer.+
    Olá pessoal, Já estou com a cabeça doendo de raiva... :angry: Tenho que fazer um cadastro no Banco de dados MySQL e fazer também um Upload de um arquivo pdf. o problema é que o Insert tá gravando dois egistros na tabela, um com os dados coretos e outro em branco. Form: <!--#include file="../config.asp"--> <!-- #INCLUDE file="fckeditor/fckeditor.asp" --> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="content-type" content="application/xhtml+xml;charset=iso-8859-1"> <!--<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />--> <title>Untitled Document</title> <style type="text/css"> <!-- body,td,th { font-family: Arial, Helvetica, sans-serif; font-size: 11px; color: #958D78; } body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <link href="../css/edit_busca_login.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- .style2 { font-size: 14px; font-weight: bold; } .style3 {color: #CC0000} .style4 {font-size: 9px} --> </style> &lt;script type="text/javascript"> function retiraAcento(sem_acento) { var f = document.forms[0]; if(f.elements[1].type == 'textarea' || f.elements[1].type == 'text') { f.elements[2].value = f.elements[1].value.toLowerCase(); var valor = f.elements[1].value.toLowerCase(); valor = valor.replace(/á/g, "a"); valor = valor.replace(/à/g, "a"); valor = valor.replace(/â/g, "a"); valor = valor.replace(/ã/g, "a"); valor = valor.replace(/é/g, "e"); valor = valor.replace(/è/g, "e"); valor = valor.replace(/ê/g, "e"); valor = valor.replace(/í/g, "i"); valor = valor.replace(/ì/g, "i"); valor = valor.replace(/ó/g, "o"); valor = valor.replace(/ò/g, "o"); valor = valor.replace(/ô/g, "o"); valor = valor.replace(/õ/g, "o"); valor = valor.replace(/ú/g, "u"); valor = valor.replace(/ù/g, "u"); valor = valor.replace(/ü/g, "u"); valor = valor.replace(/ç/g, "c"); valor = valor.replace(/ /g, "_"); //alert(valor) f.elements[2].value = valor; } } </script> </head> <body> <form id="form" name="form" ENCTYPE="multipart/form-data" method="post" action="uploadMonografia.asp"> <table width="100%" border="0" cellpadding="0" cellspacing="2"> <tr> <td height="28" align="left"> </td> <td height="28" colspan="3" align="left"><span class="style2">C A D A S T R A R M O N O G R A F I A</span></td> </tr> <tr> <td width="11%" align="right">Autor</td> <td align="left"><label> <input name="autor" type="text" class="edit" id="autor" size="45" /> </label> <label></label> <label></label></td> </tr> <tr> <td width="11%" align="right">Título</td> <td align="left"><label></label> <label></label> <label> <input name="titulo" type="text" class="edit" id="titulo" size="60" onblur="retiraAcento()" maxlength="43" /> <input type="text" name="semAcento" id="semAcento" /> </label></td> </tr> <tr> <td align="right"><p>Edital</p> </td> <td colspan="3" align="left"><span class="style4"> <input name="monografia" id="monografia" type="file" class="edit" size="50" /> </span></td> </tr> <tr> <td height="21" align="right"> </td> <td colspan="3" align="left"><label> <input name="atualizar" type="image" src="imagens/btn_atualizar.jpg" /> </label></td> </tr> </table> </form> </body> </html> Upload: <!-- #include file = "../config.asp" --> <%Response.CodePage = 1252%> <html> <head> <Title></Title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <!--<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />--> <style type="text/css"> body { font-family: Verdana, Arial, serif; font-size: 11px; background: white; padding: 0em; margin: 0; background-image: url(); background-color: #FFFFFF; } a { text-decoration: none; } a:link { color: #333333; text-decoration: none; } a:visited { color: #333333; text-decoration: none; } a:active { color: #333333; text-decoration: none; } a:hover { text-decoration: none; color: #006666; } body,td,th { color: #323232; } .style1 {font-size: 10px} .style3 {font-size: 10px; font-weight: bold; } </style> </head> <BODY> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False On Error Resume Next Upload.SetMaxSize 70088979 pasta = Server.MapPath("monografia/") Count = Upload.Save titulo = Upload.Form("titulo") autor = Upload.Form("autor") nome = Upload.Form("semAcento") data = Date() For Each File in Upload.Files File.SaveAs (pasta&"/"&nome&".pdf") arquivo = File.FileName Next Set File = Upload.Files(1) ' Conecta-se ao Banco de Dados' Set Inserir = Server.CreateObject("Adodb.Recordset") Inserir.CursorLocation = 3 Inserir.CursorType = 2 Inserir.open "INSERT INTO monografia (data,titulo,autor,monografia) VALUES('"&data&"','"&titulo&"','"&autor&"','"&arquivo&"')",conexao 'Response.Write(pasta&"/"&nome&".pdf") %> <div align="center"> Monografia cadastrada com sucesso. </div> <div align="center"> <br> <a href="cadMonografia.asp" target="main">Voltar</a></div> </BODY> </HTML>
  6. +.jr_Designer.+
    Que bom! Qualquer coisa posta ai.
  7. +.jr_Designer.+
    :rolleyes: Realmente Jonathan, não tinha atentado para um possível mal funcionamento neste sentido. Pode ser que seja feita uma busca que retorne resultados onde parte ou todos os id's sejam ímpares ou pares, ai já viu né!
  8. +.jr_Designer.+
    Você só precisa colocar o seu script para dar um select na tabela desejada e adaptar ao código seguinte. <table width="50%" border="0" cellpadding="0" cellspacing="2"> <tr> <td width="25%" align="left" valign="bottom"><span class="style13">Campo</span></td> <td width="65%" align="left" valign="bottom"><span class="style13">Campo</span></td> </tr> <tr> <td colspan="2" align="center"><img src="imagens/linha_solida.jpg" width="508" height="2" /></td> </tr> <%do while not Seu_Select.eof if (Seu_Select("id") MOD 2) = 0 then cor = "#FFCC00" else cor = "#CC0000" end if %> <tr> <td align="left" bgcolor="<%=cor%>"><span class="style14"><%=Seu_Select("Campo")%></span></td> <td align="left" bgcolor="<%=cor%>"><%=Seu_Select("Campo")%></td> </tr> <tr> <td colspan="2" align="center">&nbsp;</td> </tr> <% Seu_Select.MoveNext Loop end if %> </table>
  9. +.jr_Designer.+
    Veja se este script serve pra você: Página que exibe os carros que serão selecionados: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> <!--#include file="../config.asp"--> <% Response.Expires = 0 'MINHA CONEXAO COM O BANCO DE DADOS, VOCÊ PODE FAZER DO SEU JEITO Set carro = Server.CreateObject("Adodb.Recordset") carro.CursorLocation = 3 carro.CursorType = 2 carro.open "Select id,marca,modelo,ano,cor from carros",conexao %> <form method="GET" action="mostra_selecionados.asp"> <table width="675" height="53" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#F0F0F0"> <tr bgcolor="#f1f1f1"> <td width="22" height="26" align="center" bgcolor="#f1f1f1">ID</td> <td width="51" align="center" bgcolor="#f1f1f1">Marca</td> <td width="45" align="center" bgcolor="#F1F1F1">Ano</td> <td width="476" align="left" bgcolor="#F1F1F1">Modelo</td> <td width="55" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" class="botao" value="Excluir" /></td> </tr> <%While Not carro.EOF %> <tr > <td width="22" height="1" align="center" bgcolor="#FFFFFF"><%Response.write carro("id")%></td> <td height="1" align="center" bgcolor="#FFFFFF"><%Response.write carro("marca")%></td> <td height="1" align="center" bgcolor="#FFFFFF"><%Response.write carro("ano")%></td> <td width="476" align="left" bgcolor="#FFFFFF"><%Response.write carro("modelo")%></td> <td width="55" align="center" bgcolor="#f1f1f1"><input name="id" type="checkbox" id="id" value="<%=carro(0)%>" /></td> </tr> <% 'Movendo para o proximo registro carro.MoveNext Wend 'Fechando as conexes carro.close Set carro = Nothing %> </table> </form> </body> </html> Página que exibe os carros selecionados pelo checkbox salve como mostra_selecionados.asp <!--#include file="../config.asp"--> <% Response.CodePage = "1252" Response.Expires = 0 id = Request.QueryString("id") On error Resume Next %> <html> <head> <LINK REL=stylesheet HREF="../liks_etc.css" TYPE="text/css"> <title>Tela de Excluso</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #323232; } body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .style1 { color: #CC0000; font-weight: bold; } --> </style> </head> <body bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <% if id = "" then Response.Write("Voc deve selecionar uma Lei") else if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "carros.id = " & Trim(array_id(i)) & " OR " Next sql_id = left(sql_id,(len(sql_id)-4)) 'MINHA CONEXAO COM O BANCO DE DADOS, VOCÊ PODE FAZER DO SEU JEITO Set carro = Server.CreateObject("Adodb.Recordset") carro.CursorLocation = 3 carro.CursorType = 2 carro.open "Select id,ano,marca,modelo from carros Where "&sql_id&"",conexao end if if not carro.eof then %> <form name="form1" method="post"> <table width="80%" border="0" align="center" cellpadding="2" cellspacing="2"> <tr> <td height="32" colspan="7" align="left"><strong>Carro(s) selecionado(s)</strong></td> </tr> <%while not carro.eof%> <tr> <td width="7%" align="right" valign="middle"><span class="style1">X</span></td> <td width="4%" align="right" valign="middle"><strong>Ano:</strong></td> <td width="5%" align="left" valign="middle"><% Response.Write(carro("ano")) %></td> <td width="6%" align="right" valign="middle"><strong>Marca:</strong></td> <td width="6%" align="left" valign="middle"><% Response.Write(carro("marca")) %></td> <td width="6%" align="left" valign="middle"><strong>Modelo:</strong></td> <td width="66%" align="left" valign="middle"><%Response.Write(carro("modelo"))%></td> </tr> <% carro.MoveNext wend %> </table> </form> <% end if end if%> </body> </html>
  10. +.jr_Designer.+
    Valeu! Problema resolvido.
  11. +.jr_Designer.+
    Não. Não retorna erro nenhum, mas também não retorna nada!
  12. +.jr_Designer.+
    Pessoal preciso de uma função que retire os acento das letras! Este é o código completo da minha página, só a função que retira o acento das letras não funciona. <!--#include file="../config.asp"--> <!-- #include file = "upload_funcoes.asp" --> <style type="text/css"> <!-- body,td,th { font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #666666; } body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #212121; } --> </style> <link href="../admin/edit.css" rel="stylesheet" type="text/css" /> <link href="../admin/botao.css" rel="stylesheet" type="text/css" /> <link href="../botao.css" rel="stylesheet" type="text/css" /> <link href="../edit.css" rel="stylesheet" type="text/css" /> <style type="text/css"> <!-- .style1 { font-size: 14px; font-weight: bold; } a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #CC0000; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: #CC0000; } a:hover { text-decoration: underline; color: #99CC00; } a:active { text-decoration: none; color: #CC0000; } --> </style> <script language="JavaScript"> function retira_acentos(palavra) { com_acento = "áàãâäéèêëíìîïóòõôöúùûüçÁÀÃÂÄÉÈÊËÍÌÎÏÓÒÕÖÔÚÙÛÜÇ"; sem_acento = "aaaaaeeeeiiiiooooouuuucAAAAAEEEEIIIIOOOOOUUUUC"; nova=""; for(i=0;i<palavra.length;i++) { if (com_acento.search(palavra.substr(i,1))>=0) { nova+=sem_acento.substr(com_acento.search(palavra.substr(i,1)),1); alert(nova) } else { nova+=palavra.substr(i,1); } } document.form.Sacento.value = novo; return nova; } </script> <script language="javascript"> function valida_campo() { var data = document.form.data.value if (data==""){ alert("Por favor, informe a data do projeto!"); document.form.data.focus() return false } var obra = document.form.obra.value if (obra==""){ alert("Digite o nome da obra!"); document.form.obra.focus() return false } var descricao = document.form.descricao.value if (descricao==""){ alert("Por favor, preencha o campo descrição!"); document.form.descricao.focus() return false } var local = document.form.local.value if (local=="") { alert("Informe o local da obra! Ex: Sede, Povoado de ..."); document.form.local.focus() return false } if(document.getElementById("foto").value == ""){ window.alert("Localize a foto de exibição do album!"); document.getElementById("foto").focus(); return false; } } </script> <table width="90%" border="0" align="center" cellpadding="2" cellspacing="2"> <tr> <td height="56" align="center"><span class="style1">Obras realizadas no munic&iacute;pio</span></td> </tr> <tr> <td align="center"><table> <form action="upload_obra.asp" method="post" enctype="multipart/form-data" name="form" id="form" onsubmit="return valida_campo()"> <tr> <td width="128" align="right">Data:</td> <td colspan="2"><input name="data" type="text" class="edit" id="data" size="12" maxlength="10" /></td> </tr> <tr> <td width="128" align="right">Obra:</td> <td colspan="2"><input name="obra" type="text" class="edit" id="obra" size="51" onblur="retira_acentos(this.value)" /></td> </tr> <tr> <td width="128" align="right">Sem acento:</td> <td colspan="2"><input name="Sacento" type="text" class="edit" id="Sacento" /></td> </tr> <tr> <td width="128" align="right">Local da obra:</td> <td colspan="2"><input name="local" type="text" class="edit" id="local" size="40" /></td> </tr> <tr> <td width="128" align="right" valign="top">Descri&ccedil;&atilde;o:</td> <td colspan="2"><textarea name="descricao" cols="50" rows="8" class="edit" id="descricao"></textarea></td> </tr> <tr> <td align="right">Foto principal:</td> <td colspan="2"><input name="foto" id="foto" type="file" class="edit" size="55" /></td> </tr> <tr> <td align="right">&nbsp;</td> <td width="309" align="right"><input name="submit" type="submit" class="botao" value="Enviar" /></td> <td width="27" align="right">&nbsp;</td> </tr> <tr> <td colspan="3">&nbsp;</td> </tr> </form> </table></td> </tr> <tr> <td align="center"><a href="cad_foto_obra.asp" target="main">Incluir Imagens &agrave; uma obra cadastrada</a></td> </tr> </table> Alguém pode me ajudar?!
  13. +.jr_Designer.+
    Tente assim: objMailer.Body = "Nome....... " & request.form("nome") & vbcrlf &"E-mail..... " & request.form("email") & vbcrlf &"Cidade..... " & request.form("cidade") & vbcrlf &"Estado..... " & request.form("estado") & vbcrlf &"Telefone... " & request.form("telefone") & vbcrlf &"Assunto.... " & request.form("assunto") & vbcrlf &"Mensagem... " & request.form("mensagem") & vbcrlf
  14. +.jr_Designer.+
    Você fez o teste do script que te mandei on-line?
  15. +.jr_Designer.+
    ele ta retornando vários tipos de erro, por exemplo: "Tipos incompatíveis" número do erro 13, mas como te falei ta "funcionando", porque ele não retorna File.OriginalPath e nem File.Filename no final do script código <BODY> <% Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False On Error Resume Next Upload.SetMaxSize 10088979 pasta = Server.MapPath("leis/") Count = Upload.Save 'Salva o novo arquivo pdf que será enviado Set File = Upload.Files id = Upload.Form("id") descricao = Upload.Form("descricao") ano = Upload.Form("ano") numero = Upload.Form("numero") arquivo_atual = Upload.Form("atual") envia_arquivo = Upload.Form("envia_arquivo") 'Recebe o nome arquivo que será enviado if envia_arquivo = "" then'Se a variável arquivo_novo estiver vazia, significa que o usuário irá atualizar apenas as informações da lei (ano, descrição, numero) e não o arquivo. ' Conecta-se ao Banco de Dados Set Verificalei = Server.CreateObject("Adodb.Recordset") Verificalei.CursorLocation = 3 Verificalei.CursorType = 2 Verificalei.open "SELECT id,ano,num,lei FROM lei_norma WHERE id ='"&id&"'",conexao if not VerificaLei.eof then Set FSO = Server.CreateObject("Scripting.FileSystemObject") 'Cria uma instância do FSO lei_atual = Verificalei("lei") 'Recebe o nome do arquivo atual do DB para ser alterado pelo ano e número, caso o usuário os altere Set fileobject = FSO.GetFile(pasta&"/"&lei_atual) 'Recupera o nome do arquivo físico no servidor para ser alterado fileobject.Name = ano&"_"&numero&".pdf"'altera o nome do arquivo de acordo com o ano e numero da lei nova_lei = ano&"_"&numero&".pdf" 'criei o mesmo nome nesta variável para gravar no DB ' Conecta-se ao Banco de Dados para fazer a atualização Set AtlzLei = Server.CreateObject("Adodb.Recordset") AtlzLei.CursorLocation = 3 AtlzLei.CursorType = 2 AtlzLei.open "UPDATE lei_norma SET ano='"&ano&"', num='"&numero&"', descricao='"&descricao&"', lei='"&nova_lei&"' WHERE id='"&id&"'",conexao end if else if envia_arquivo = "sim" then' se a variável não estiver vazia, significa que o usuário irá alterar o arquivo e possivelmente o ano, número e descrição da lei selecionada 'Conecta-se ao Banco de Dados Set Verificalei = Server.CreateObject("Adodb.Recordset") Verificalei.CursorLocation = 3 Verificalei.CursorType = 2 Verificalei.open "SELECT id,ano,num,lei FROM lei_norma WHERE id ='"&id&"'",conexao if Not Verificalei.Eof Then 'verifica se já existe uma lei cadastrada com o mesmo nome do NOVO arquivo que será enviado Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile pasta&"/"&arquivo_atual 'Deleta o arquivo PDF que está na pasta leis que não será mais utilizado For Each File in Upload.Files File.SaveAs (pasta&"/"&ano&"_"&numero&".pdf") Set File = UploadFiles(1) Set AtlzLei = Server.CreateObject("Adodb.Recordset") AtlzLei.CursorLocation = 3 AtlzLei.CursorType = 2 AtlzLei.open "UPDATE lei_norma SET ano='"&ano&"', num='"&numero&"', descricao='"&descricao&"', lei='"&File.FileName&"' WHERE id='"&id&"'",conexao Next end if end if end if If Err <> 0 Then %> <div align="center"> <span class="style5">Ocorreu um erro durante o envio do arquivo: </span>"<%=Err.Description %>" número do erro: <%=Err%> <%Else %> </div> <table width="80%" border="0" align="center" cellpadding="3" cellspacing="2"> <tr> <td colspan="4" align="center"><span class="style4"><center>Altera&ccedil;&atilde;o realizada com sucesso.</center></span></td> </tr> <tr> <td width="23%" align="right"><span class="style3">Arquivo Enviado:</span></td> <td width="31%" align="left"><span class="style1"><%=File.OriginalPath%></span></td> <td width="14%"><span class="style3">Salvo como:</span></td> <td width="32%" align="left"><%=File.FileName%></td> </tr> <tr> <td align="right"><span class="style3">Descri&ccedil;&atilde;o:</span></td> <td align="left"><span class="style1"><%=descricao%></span></td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td align="right"><span class="style3">Ano:</span></td> <td align="left"><span class="style1"><%=ano%></span></td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td align="right"><span class="style3">N&uacute;mero:</span></td> <td align="left"><span class="style1"><%=numero%></span></td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> <div align="center"> <br><a href="cad_lei.asp" target="main">Voltar</a> </div> <%End if%> </BODY> </HTML>
  16. +.jr_Designer.+
    Jow meu velho, eu já consegui resolver. A única questão, é que agora no tratamento de erro ele retorna "Objeto necessário", e eu tenho que descobrir o que é isso! Mas mesmo assim tá funcionando.
  17. +.jr_Designer.+
    Bom dia Roseane! Não sei o que está errado com o script que você postou, mas se quiser pode substituí-lo por este que funciona. <% nome = request.Form("nome") email = request.form("email") fone = request.Form("telefone") mensagem = request.Form("comentario") mensagem = replace(mensagem, "<br>", chr(13)) 'cria o objeto para o envio de e-mail' Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP' Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "LOCALHOST"'"mail.meusite.com.br" 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail' Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente' objCDOSYSMail.From = email 'e-mail preenchido no form 'e-mail do destinatário' objCDOSYSMail.To = "destinatario@provedor.com.br" 'assunto da mensagem objCDOSYSMail.Subject = "Assunto do email" 'conteúdo da mensagem' objCDOSYSMail.TextBody = mensagem 'objCDOSYSMail.fields.update ' 'envia o e-mail' objCDOSYSMail.Send 'destrói os objetos' Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing end if %>
  18. +.jr_Designer.+
    Eu já fiz dessa forma. e também não da certo. O problema todo está em tentar recuperar os valors do form antes da linha Count = Upload.Save(pasta). Então pensei em fazer de outra forma: E se fizer uma função na mesma página do form (form_altera_lei.asp) pra verificar se o arquivo existe ou não? Essa função será chamada ao clicar no botão ENVIAR, e receberá o valor do campo thefile. Apos receber o valor do campo, fará uma consulta no DB pra ver se já existe um arquivo cadastrado com o mesmo nome do que será enviado, ai se o arquivo existir podemos colocar um Response.Write e se não existir podemos colocar um form.send... sei lá, algo tesse tipo. Você acha que vale a pena ou o correto é tentar da forma que já está?
  19. +.jr_Designer.+
    Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Upload = Server.CreateObject("Persits.Upload") arquivo_novo = FileOriginalPath 'recupera o nome do arquivo que será enviado ' Conecta-se ao Banco de Dados Set lei = Server.CreateObject("Adodb.Recordset") lei.CursorLocation = 3 lei.CursorType = 2 lei.open "SELECT id,lei FROM lei_norma WHERE lei = '"&arquivo_novo&"'",conexao if lei("lei") = arquivo_novo Then 'verifica se já existe uma lei cadastrada com o mesmo nome do NOVO arquivo que será enviado Response.Write("Já existe um arquivo com este nome. Por favor renomeie o arquivo que deseja enviar!") Response.End() else FSO.DeleteFile pasta&"/"&arquivo_atual 'Deleta o arquivo PDF que está na pasta leis que não será mais utilizado Aqui inicia o script de upload do arquivo. Upload.OverwriteFiles = False On Error Resume Next Upload.SetMaxSize 10088979 pasta = Server.MapPath("leis/") 'Salva o novo arquivo pdf que será enviado Count = Upload.Save(pasta) If Count > 0 Then Set File = Upload.Files(1) ' Conecta-se ao Banco de Dados' Set Atualiza = Server.CreateObject("Adodb.Recordset") Atualiza.CursorLocation = 3 Atualiza.CursorType = 2 id = Upload.Form("id") ano = Upload.Form("ano") numero = Upload.Form("numero") descricao = Upload.Form("descricao") arquivo_atual = Upload.Form("atual") arquivo_novo = File.OriginalPath Atualiza.Open "UPDATE lei_norma SET ano = '"&ano&"', anum = '"&num&"', descricao = '"&descricao&"', lei = '"&arquivo_novo&"' Where id = '"&id&"'",conexao end if end if
  20. +.jr_Designer.+
    Da o seguinte erro: Informações técnicas (para a equipe de suporte) * Tipo de erro: (0x80020009) Exceção. /prefeitura/admin/leis_normas/altera_lei.asp, line 61 Percebi que ele da esse erro porque a consulta no db não retorna nada, porque a variavel vthefile tamém não recebe nada. Bom, pelomenos aqui!
  21. +.jr_Designer.+
    Bom dia Jow! Olha não consegui. O problema é o mesmo, eu não consigo recuperar os dados do form sem antes interpretar a linha Count = Upload.Save(pasta) e eu não posso deixar esta linha ser interpretada primeiro, porque se não ele vai upar o arquivo pdf antes de verificar se o mesmo já está cadastrada. Vou mandar meus códigos: form_altera_lei.asp <html> <head> <title>Cadastro em ASP com foto</title> <script language="javascript"> function valida_campo() { <!-- var nome = document.form.nome.value if (nome==""){ alert("Informe o seu nome!"); document.form.nome.focus() return false } var telefone = document.form.telefone.value if (telefone==""){ alert("Informe o seu telefone!"); document.form.telefone.focus() return false } var email=document.form.email.value; if (email==""){ alert("Informe o seu email!") document.form.email.focus() return false } } function confere(){ if (document.form.email.value.indexOf('@', 0) == -1 || document.form.email.value.indexOf('.', 0) == -1){ alert("E-mail invalido!"); document.form.email.focus() } } //--> </script> <% Response.CodePage = "1252" %> <link href="../botao.css" rel="stylesheet" type="text/css"> <!--<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">--> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #212121; } body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <link href="../edit.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #212121; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: #212121; } a:hover { text-decoration: none; color: #006600; } a:active { text-decoration: none; color: #212121; } --> </style> <LINK REL=stylesheet HREF="../liks_etc.css" TYPE="text/css"> <style type="text/css"> <!-- .style3 { font-size: 14px; font-weight: bold; } --> </style> <head> <!--#include file="../config.asp"--> <% id = Request.QueryString("id") Response.Expires = 0 Set lei = Server.CreateObject("Adodb.Recordset") lei.CursorLocation = 3 lei.CursorType = 2 lei.open "Select id,ano,num,descricao,lei from lei_norma where id = '"&id&"' order by ano, num, descricao",conexao %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2"> <tr align="center"> <td width="19%" height="20" bgcolor="#f5f5f5"><a href="cad_lei.asp" target="main" class="menu">Cadastrar</a></td> <td bgcolor="#f5f5f5" width="29%"><a href="form_excluir_lei.asp" class="menu">Excluir</a></td> <td width="18%" bgcolor="#f5f5f5"><a href="procura_lei.asp" class="menu">Pesquisar</a></td> </tr> </table> <div align="center"></div> <form action="altera_lei.asp" method="post" enctype="multipart/form-data" name="form" target="main"> <div align="center"> <center> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td></td> </tr> </table> <table> <tr> <td height="58" colspan="5" align="center"><span class="style3">Alterar lei</span></td> </tr> <tr> <td width="141" align="right">Ano:</td> <td width="83"><input name="ano" type="text" class="edit" id="ano" value="<%=lei("ano")%>" size="12" maxlength="10" /></td> <td width="83" align="right">N&uacute;mero:</td> <td width="127"><input name="numero" type="text" class="edit" id="numero" value="<%=lei("num")%>" size="12" maxlength="10" /></td> <td>&nbsp;</td> </tr> <tr> <td width="141" align="right">Descri&ccedil;&atilde;o:</td> <td colspan="4"><input name="descricao" type="text" class="edit" id="descricao" value="<%=lei("descricao")%>" size="51" /></td> </tr> <tr> <td width="141" align="right">Lei atual (arquivo .pdf):</td> <td colspan="4"><input name="atual" type="text" class="edit" id="atual" value="<%=lei("lei")%>" size="51" /> <input name="id" type="hidden" id="id" value="<%=lei("id")%>"> o que será substituido</td> </tr> <tr> <td align="right">Lei:</td> <td colspan="4"><input name="thefile" type="file" class="edit" id="thefile" size="55" /></td> </tr> <tr> <td height="53" align="right">&nbsp;</td> <td colspan="3" align="right" valign="bottom"><input name="submit" type="submit" class="botao" value="Enviar" /></td> <td width="127" align="right">&nbsp;</td> </tr> <tr> <td colspan="5">&nbsp;</td> </tr> </table> </center> </div> </form> </td> </tr> </table> </body> </html> altera_lei.asp <!-- #include file = "../config.asp" --> <%Response.CodePage = 1252%> <HTML> <head> <style type="text/css"> body { font-family: Verdana, Arial, serif; font-size: 11px; background: white; padding: 0em; margin: 0; background-image: url(); background-color: #FFFFFF; } a { text-decoration: none; } a:link { color: #333333; text-decoration: none; } a:visited { color: #333333; text-decoration: none; } a:active { color: #333333; text-decoration: none; } a:hover { text-decoration: none; color: #006666; } body,td,th { color: #323232; } .style1 {font-size: 10px} .style3 {font-size: 10px; font-weight: bold; } </style> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> </head> <BODY> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Upload = Server.CreateObject("Persits.Upload") arquivo_novo = FileOriginalPath ' Conecta-se ao Banco de Dados Set lei = Server.CreateObject("Adodb.Recordset") lei.CursorLocation = 3 lei.CursorType = 2 lei.open "SELECT id,lei FROM lei_norma WHERE lei = '"&arquivo_novo&"'",conexao if lei("lei") = arquivo_novo Then 'verifica se já existe uma lei cadastrada com o mesmo nome do NOVO arquivo que será enviado Response.Write("Já existe um arquivo com este nome. Por favor renomeie o arquivo que deseja enviar!") Response.End() else FSO.DeleteFile pasta&"/"&arquivo_atual 'Deleta o arquivo PDF que está na pasta leis que não será mais utilizado Upload.OverwriteFiles = False On Error Resume Next Upload.SetMaxSize 10088979 pasta = Server.MapPath("leis/") 'Salva o novo arquivo pdf que será enviado Count = Upload.Save(pasta) If Count > 0 Then Set File = Upload.Files(1) ' Conecta-se ao Banco de Dados' Set Atualiza = Server.CreateObject("Adodb.Recordset") Atualiza.CursorLocation = 3 Atualiza.CursorType = 2 id = Upload.Form("id") ano = Upload.Form("ano") numero = Upload.Form("numero") descricao = Upload.Form("descricao") arquivo_atual = Upload.Form("atual") arquivo_novo = File.OriginalPath Atualiza.Open "UPDATE lei_norma SET ano = '"&ano&"', anum = '"&num&"', descricao = '"&descricao&"', lei = '"&arquivo_novo&"' Where id = '"&id&"'",conexao end if If Err <> 0 Then %> <div align="center"> Ocorreu um erro durante o envio do arquivo:"<%=Err.Description %>" <%Else %> Lei cadastrada com sucesso. </div> <TABLE width="599" BORDER="0" align="center" CELLPADDING="3" CELLSPACING="2"> <tr> <TD width="69" height="26" align="right"><span class="style3">Arquivo:</span></TD> <TD colspan="2" ALIGN=left><span class="style1"><%=File.OriginalPath%></span></TD> </tr> <TR> <TD align="right"><span class="style3">Descri&ccedil;&atilde;o:</span></TD> <TD width="512" align="left"><span class="style1"><%=descricao%></span></TD> </TR> <TR> <TD align="right"><span class="style3">Ano:</span></TD> <TD align="left"><span class="style1"><%=ano%></span></TD> </TR> <TR> <TD align="right"><span class="style3">N&uacute;mero:</span></TD> <TD align="left"><span class="style1"><%=numero%> </span></TD> </TR> </TABLE> <div align="center"> <br><a href="cad_lei.asp" target="main">Voltar</a> </div> <%End if%> <%End if%> </BODY> </HTML> Veja se o que eu estou fazendo está correto por favor!
  22. +.jr_Designer.+
    E ai Rafael, beleza? (valeu pela ajuda ai cara) Olha eu já tive essa idéia, mas ainda não consigo resolver o problema por completo, é uma série de problemas. Quando dou um jeito em um aparece outro! Tá louco! :angry: Usei FSO pra deletar o arquivo e consegui. Porém não consigo fazer upload do arquivo que é PDF. Ocorre que antes de upar o arquivo eu tenho que verificar se já existe um com o mesmo nome no diretório destino, e pra fazer isso, é necessário recuperar o nome do arquivo que será enviado, que no caso, este nome vem de um campo "file" do formulário. Observe o script: Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False On Error Resume Next Upload.SetMaxSize 10088979 ' Limit files to 1MB' pasta = Server.MapPath("leis/") Count = Upload.Save(pasta) O problema é que eu não consigo recuperar os dados do form antes da linha Count = Upload.Save(pasta). E se esta linha for interpretada ai minha lógica cai por terra, porque ai ele acapa upando o arquivo antes de ser verificado. Será que tem jeito? Vou até tomar um banho que minha cabeça tá doendo :wacko:
  23. +.jr_Designer.+
    Se alguém tiver um script que verifique se um arquivo já existe em um determinado diretório antes de ser upado utilizando AspUpload tamém serve!
  24. +.jr_Designer.+
    Esse não rolou, tem que ser um com componente por que além de ser mais seguro ou vou trabalhar imagens e com PDF.
  25. +.jr_Designer.+
    Na verdade a pessoa responsável pela administração do site é quem vai fazer isso. E mesmo que seja como o orkut, o importante é que o script localize o arquivo no diretório, com base no nome gravado no db.
×
×
  • Criar Novo...