Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2.500

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cyberalexxx

  3. Enviar E-mail

    em ASP

    Postado

    uma lógica:

    'recupera dado do form
usuario = request.form("user")

'busca no banco o usuario resgatado
SQL = "Select email, senha from usuarios where usuario='" & usuario & "'"
set rs = conexao.execute(sql)

'verifica se encontrou algo
if not rs.eof then
   'cria objeto de email (vou usar CDONTS)
   Set Mail = CreateObject("CDONTS.NewMail")
   Mail.From = "email@seudominio.com.br" ' coloque aqui seu email
   Mail.To = rs("email")
   Mail.Subject = "Recuperação de Senha"
   Mail.Body = "Sua Senha é " & rs("senha")
   Mail.Send
else
   response.write "Usuario não encontrado!!"
   response.end
end if

  5. Banco De Dados

    em ASP

    Postado

    Quanto ao problema do acento isso deve resolver:

    pesq=request("busca")
pesq = replace(pesq,"a","[a,á,à,ã,â,ä,A]")
pesq = replace(pesq,"e","[e,é,è,ê,ë,E]")
pesq = replace(pesq,"i","[i,í,ì,î,ï,I]")
pesq = replace(pesq,"o","[o,ó,ò,õ,ô,ö,O]")
pesq = replace(pesq,"u","[u,ú,ù,û,ü,U]")
pesq = replace(pesq,"c","[c,ç]")

sql = "Select * from tabela where campo like '*" & pesq & "*' order by campo"

    isso é necessário porque o access faz distinção entre os caractares normais e com acento.

    Agora quanto ao banco de dados p/ rodar na web recomendo o MySQL (gratis) ou MS SQLServer.

  6. Fso

    em ASP

    Postado

    faça comparações dentro do laço for next, por exemplo:

    registrosporpagina = 10
numerodapagina = 2
cursor = 0
For each file in pasta.Files
   cursor = cursor + 1
   if cursor > (resgistros por pagina * (numerodapagina-1) and cursor <= (resgistros por pagina * (numerodapagina) then
      'mostra dados
   end if 
next

    isso é só uma lógica voce vai ter que dar uma melhorada mais acho que já serve como pontapé inicial.

  8. Erro Na Duplicação

    em ASP

    Postado

    Galera eu to com um cadastro aqui e quando eu tento registrar um numero que já existe no meu banco de dados ta dando erro, ta correto, porque eu coloquei pra este campo não aceitar duplicação, mas como posso personalizar o texo. Ex Este numero que você tentou cadastrar já existe no sistema.

    Bom o erro que dá é este aqui!

    Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

    [Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

    /prod/insert.asp, line 33

    Quando não tem o registro eu sei que é

    if variável.eof

    Mas e quando já tem????

    Aguardo respostas, valeu

    Vamos supor que voce não queira duplicar um campo chamado login

    voce teria que fazer o seguinte:

    checar se já existe algum registro com esse login:

    Sql = "Select login from tabela where login='" & request("login") & "'"
set rs = conexao.execute(sql)
if not rs.eof then
   response.write "O login desejado já existe!"
   response.end
else
   sql2 = "insert into tabela (login) values ('" & request("login") & "')"
   conexao.execute(sql)
   response.write "Registro incluido com sucesso"
end if

  9. Verificar Se Existe Arquivo

    em ASP

    Postado

    tenta isso:

    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = ".\arquivos" ' defina aqui a pasta
set pasta = FSO.getfolder(server.mappath(caminho))
nr_arquivos = 0
for each arquivo in pasta.files
   nr_arquivos = nr_arquivos + 1
next
if nr_arquivos = 0 then
   response.write "Nenhum arquivo encontrado"
else
   response.write nr_arquivos & " arquivos encontrados"
end if

  10. Criar Um Usuário Padrão!

    em ASP

    Postado

    para fazer isso voce teria que criar um nivel de acesso na tabela de usuários, por exemplo uma tabela de usuários contendo nome, login, senha e nivel_acesso (coloque por exemplo 0 para administrador e 1 para usuário normal)

    No ato do login quando voce validar o usuário faça assim:

    SQL ="Select * from usuarios where login='" & request("login") & "' and senha='" & request("senha") & "'"
set rs = conexao.execute(sql)
if not rs.eof then
   'usuario logado
   session("usuario") = rs("login")
   if rs("nivel_acesso") = 0 then
      session("nivel_acesso") = 0
   else
      session("nivel_acesso") = 1
   end if
else
   response.write "Senha ou login invalido!"
   response.end
end if
    depois quando for exibir os registros faça assim: 
    if session("nivel_acesso") = 0 then
   RS_Max.Open "SELECT * FROM prod" 'seleciona tudo
else
   RS_Max.Open "SELECT * FROM prod where user='" & session("usuario") & "'" 'seleciona somente registros do usuário
end if

    isso é uma lógica, voce tem que adaptar ao seu sistema.

  13. Click Automático No Menu Suspenso?

    em ASP

    Postado

    tenta assim:

    <form name= "form1" method="POST" action="pagina.asp">
<p align="right">
                  <select size="1" name="Ordem" style="font-family: Verdana; font-size: 10 px; border-style: solid; border-width: 1" OnChange="document.form1.submit()">
                  <option selected value="Listar por:">Listar por:</option>
                  <option value="Maior valor">Maior valor</option>
                  <option value="Menor valor">Menor valor</option>
                  </select></p>
                </form>

  15. Limitando O Tamanho Do Arquivo Para Upload?

    em ASP

    Postado

    Nunca fiz, mais não custa tentar, da uma olhada de funciona:

    no inicio do código que faz o upload voce conta o total de bytes

    totaldebytes = request.TotalBytes
    depois compare com valor máximo que voce deseja
    if totaldebytes > 1024 then
   response.write "Tamanho do arquivo excedido!!" : response.end
end if

    é uma idéia! Tenta ai!!

  23. Lendo A Extenção Do Arquivo...

    em ASP

    Postado

    Bom não sei se entendi veja se é isso,

    No campo q você não quer q apareça nada inclua isso nos detalhes desse campo

    ReadOnly="true"

    Exemplo:

    <asp:TextBox CssClass="leitura" ID="Prio" ReadOnly="true" runat="server" Text='URGENTE' Width="70" />

    flwwww

    isso em asp.net!!

    usando html é só colocar o readlonly='true' no <input>

×
×
  • Criar Novo...