mariofdf
-
Total de itens
394 -
Registro em
-
Última visita
Tudo que mariofdf postou
-
veja se funciona, qualquer coisa poste ai. <%@LANGUAGE="VBSCRIPT" %> <!--#include file="../Connections/SiferSQL.asp" --> <% if isempty(request.form("txtnumero")) or request.form("txtnumero")="" then response.Write "<script language='javascript'> alert('Digite um código válido !!') </SCRIPT>" response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>" else IF not isdate(Request.Form("data1")) or not isdate(Request.Form("data2")) then response.Write "<script language='javascript'> alert('A data digitada não é válida !!! Favor verificar !!') </SCRIPT>" response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>" else vdata1a = Cdate(Request.Form("data1")) vdata1 = Month(vdata1a) & "/" & day(vdata1a) & "/" & year(vdata1a) vdata2a = Cdate(Request.Form("data2")) vdata2 = Month(vdata2a) & "/" & day(vdata2a) & "/" & year(vdata2a) %> <% Dim RsRelatorioDiario Dim RsRelatorioDiario_numRows Set RsRelatorioDiario = Server.CreateObject("ADODB.Recordset") RsRelatorioDiario.ActiveConnection = MM_SiferSQL_STRING RsRelatorioDiario.Source = "SELECT TbFuncionario.NmNome, TbFuncionario.NmDepto,TbFuncionario.NmFoto,TbPontoDiario.* FROM TbPontoDiario INNER JOIN TbFuncionario ON TbPontoDiario.CdFuncionario = TbFuncionario.NrFuncionario where cdfuncionario='"&request.form("txtnumero")&"'AND TbPontoDiario.DtPonto BETWEEN ' "& vdata1& " ' AND ' " &vdata2& " ' ORDER BY TbPontoDiario.DtPonto" RsRelatorioDiario.CursorType = 0 RsRelatorioDiario.CursorLocation = 2 RsRelatorioDiario.LockType = 1 RsRelatorioDiario.Open() if RsRelatorioDiario.eof then response.Write "<script language='javascript'> alert('O código do funcionario digitado não é valido. Favor verificar !!') </SCRIPT>" response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>" else RsRelatorioDiario_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RsRelatorioDiario_numRows = RsRelatorioDiario_numRows + Repeat1__numRows %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../intranet.css" rel="stylesheet" type="text/css"> </head> <body bgcolor="#eeeeee"onload="document.body.scroll='yes'"> <span class="titulo"> </span> <div align="right"><a href="javascript:history.back()">Voltar</a></div> <div align="center"> <table width="60%"border="0" align="center" bgcolor="#FFFFFF" class="titulo"> <tr> <th colspan="3" align="center"> <p><font size="4">SIFER INTRANET<br> </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br> </font><font size="2">Relatório mensal de entrada e saída<strong> </strong></font><strong><font size="2">do mês de <%response.write ucase(monthname(month(vdata1a)))%> <br> <br> </font></strong></p></th> </tr> <tr> <th width="49%" align="center"><font size="2">Colaborador</font></th> <th width="51%" align="center"><font size="2"><%=rsrelatoriodiario.fields("nmnome")%></font></th> <th width="51%" rowspan="2" align="center"><img src="<%=rsrelatoriodiario.fields("nmfoto")%>"></th> </tr> <tr> <th align="center"><font size="2">Departamento</font></th> <th align="center"><font size="2"><%=rsrelatoriodiario.fields("nmdepto")%></font></th> </tr> </table> </div> <br> <table width="100%" border="0" align="center" class="titulo"> <tr align="center"> <th> <strong>Data</strong></th> <td> <div align="center"><strong>Horário de Entrada</strong></div></td> <td><strong>Horário de Saída</strong></td> <td><strong>Justificativa de Atraso</strong></td> <th>Justificativa por sair mais cedo</th> </tr> <% atrasomes=0 saindocedo=0 While ((Repeat1__numRows <> 0) AND (NOT RsRelatorioDiario.EOF)) %> <% if (Repeat1__index mod 2)=0 then back="#FFFFFF" else back="#eeeeee" end if %> <tr align="center"> <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("dtponto")%></td> <td bgcolor="<%=back%>"> <%=rsrelatoriodiario.fields("hrentrada")%></td> <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("hrsaida")%></td> <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmatraso")%></td> <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmsaindocedo")%></td> </tr> <% totalMinutosTrabalhadosNoPeriodo = "0" Entrada01 = rsrelatoriodiario.fields("hrentrada") 'pega a diferença em minutos dia01 = DateDiff("n,Entrada01,08:30") 'faz a somatória dos minutos totalMinutosTrabalhadosNoPeriodo = totalMinutosTrabalhadosNoPeriodo + dia01 'separa horas:minutos do total %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RsRelatorioDiario.MoveNext() Wend minutos = totalMinutosTrabalhadosNoPeriodo Mod 60 horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60 Response.Write (horas & " horas e " & minutos & " minutos") %> </table> <p><strong><font size="2"><br> </font></strong></p> </body> </html> <% RsRelatorioDiario.Close() Set RsRelatorioDiario = Nothing end if end if end if %>
-
Manipulando arquivos TXT - parte I por: Fernando D'Angelo Por ser uma das formas mais antigas de armazenamento de dados, e também uma das mais simples, os arquivos TXT ainda são uma grande arma no armazenamento de informações, e como tal, tem seu destaque na linguagem ASP. Integração de diferentes bases de dados a baixo custo, armazenamento de grande quantidade de informação não padronizada e aceitabilidade em 100% dos sistemas operacionais são algumas das características/vantagens dos arquivos TXT. Um objeto chamado FileSystemObject foi desenvolvido com o intuito de permitir acesso a arquivos TXT a partir de ASP, e dispõe das seguintes funções: LER arquivos TXT, CRIAR arquivos TXT e adicionar dados em arquivos TXT. O ASPBRASIL dividiu este tutorial em 4 partes, como segue: 1. LER arquivos TXT 2. CRIAR arquivos TXT e gravar informações iniciais 3. ADICIONAR informações a um arquivo TXT já existente 4. ASPECTOS AVANÇADOS do objeto FileSystemObject Abaixo, segue um exemplo de leitura de um arquivo TXT. nome do arquivo: teste.txt (abaixo, layout do arquivo teste.txt) TESTE de leitura de arquivo TXT Este arquivo txt pode conter tanto texto puro quanto texto com formato HTML. Este tutorial será dividido em 4 partes, como segue: 1. A primeira parte, ensinara a ler um arquivo TXT 2. A segunda parte, a criar e gravar em um arquivo TXT 3. A terceira parte, a adicionar conteúdo a um arquivo TXT já existente 4. A quarta parte discutirá algumas funções avançadas e algumas aplicações dos arquivos TXT Abaixo, rotina ASP que lê arquivos TXT <% path_do_arquivo = "e:/teste/" nome_do_arquivo = "teste.txt" 'as linhas abaixo faz a conexão com o objeto FileSystemObject e abre o arquivo txt especificado. Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(path_do_arquivo & nome_do_arquivo, forreading, False) while (not thisfile.AtEndOfStream) and response.isclientconnected() 'as linhas abaixo lêem o arquivo TXT e então escrevem o seu conteúdo no Browser. linha_txt = thisfile.readline response.write linha_txt wend thisfile.Close set thisfile=nothing set fs=nothing %> Manipulando arquivos TXT - parte II por: Fernando D'Angelo Seguindo com o minitutorial sobre arquivos TXT, iremos abordar a criação de arquivos TXT e também a adição de dados a este arquivo. Exemplificaremos tais ações com o código de geração de arquivos LOG, que funciona da seguinte forma: Todo dia é criado um arquivo TXT, cujo nome é a data no formato invertido (aaaa/mm/dd). Para cada usuário que acessa uma página onde existe essa rotina, o arquivo TXT especificado recebe uma linha a mais. Caso este arquivo não exista, ele é criado, deixando assim o sistema totalmente automatizadol.(o primeiro acesso de cada dia irá perceber a falta do arquivo TXT do dia, o qual é criado neste momento.) Abaixo, rotina ASP que Cria e adiciona dados em arquivos TXT <% path_do_arquivo = "e:/teste/" Const forReading = 1, forWriting = 2, forAppending = 8 Const TriDef = -2, TriTrue = -1, TriFalse = 0 Dia = Day(Date()) if Dia < 10 then Dia = "0" & Dia Mes = Month(Date()) if mes < 10 then mes = "0" & mes Ano = Year(Date()) 'a linha abaixo gera o nome do arquivo de acordo com o dia. (todo dia tem que ser criado um arquivo novo) arquivo = path_do_arquivo & Ano & Mes & Dia & ".log" 'a linha abaixo abre a instância com o objeto Scripting. FileSystemObject Set ObjFSO = CreateObject("Scripting.FileSystemObject") 'abaixo, é feita a verificação da existência do arquivo procurado. Caso ele ainda não exista (o que ocorre 1 vez por dia, no primeiro acesso), ele é criado If ObjFSO.FileExists(arquivo) = False then 'abaixo, a linha que cria o arquivo TXT especificado objFSO.CreateTextFile(arquivo) End If 'a linha abaixo abre o arquivo desejado. Lembre-se, ou ele já existe ou ele foi criado na rotina acima. Set ObjFile = objFSO.GetFile(arquivo) 'a linha abaixo diz o tipo de manipulação que será utilizada no arquivo TXT, no caso é para adicionar dados. Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef) 'abaixo, são criadas algumas variáveis com valores que serão colocados no LOG (hora, IP, versão do Browser) Hora = Time() IpNum = Request.ServerVariables("REMOTE_ADDR") BrowVer = Request.ServerVariables("HTTP_USER_AGENT") 'o comando WriteLine, abaixo, grava os dados no arquivo TXT especificado. ObjStream.WriteLine Hora & " | " & Dia & "/" & Mes & "/" & Ano & " | " & IpNum & " | " & BrowVer & " --> " 'abaixo, o objeto ObjStream é fechado ObjStream.close Set ObjStream = nothing %> Estes são os artigos , os links estão certinhos. Qualquer duvida é so postar.
-
Crie seu proprio contador de clicks para isto crie uma tabela no access com os campos id(Autonumeração) e clicks crie uma página intermediária que receberá a id do link clicado exemplo: cont.asp?url=link.asp&id=3 'de modo que o nº id é o mesmo do banco de dados 'url é o endereço que deseja que a página vá após contar o click na página cont.asp coloque: <% id =Request.QueryString("id") url=Request.QueryString("url") set Conn = server.CreateObject("ADODB.Connection") Conn.opne "Conexão DSN" SQL=" UPDATE DISTINCTROW Tabela SET clicks = 'clicks+1' WHERE id = " & (id) & " Conn.execute(SQL) response.redirect("url") %> Prontinho está criado seu p´rprio sistema de registro de clicks Assunto tirado do forum aspbrasil. Qualquer duvida é só postar.
-
Tente escrever a data assim: mData = month(date)&"/"&day(date)&"/"&year(date) Se não der certo poste ai que te passo uma função para corrigir.
-
Função para bloquear caracteres especiais, quem me passou foi o Dark0. <%@LANGUAGE="VBSCRIPT"%> <% '---------------------------------------------------------------------------------- ' Função que retorna true caso exista os caracteres escolhidos na str ' Desenvolvido(eheheh) por D.eleete ' Email/MSN(não é suporte): deleeteweb@hotmail.com '----------------------------------------------------------------------------------- Function char_error(str) Dim blocked, arr_blocked, x ' Na variavel abaixo (blocked) devem ser inseridos os caracteres que não deve existir na string blocked = "\, /, :, *, ?, "&Chr(34)&", <, >, |, ', !, #, $, %, ¨, &, *, (, )," arr_blocked = split(blocked,", ") for x = lbound(arr_blocked) to Ubound(arr_blocked) if instr(str, arr_blocked(x)) > 0 then char_error = true exit for Else char_error = false End if next End function %> Chamar função. <% if char_error(""& variavel &"") = true then 'ação que voce quer executar caso for encontrado caracteres especiais. end if %>
-
Consegui arrumar... Muito obrigado a todos, especialmente ao URSO e ao DARK0, voces fazem juz ao cargo de moderadores. Pode feixar o Tópico.
-
tentei usar a função assim mas não deu certo, no que errei. txtemail = request.form("txtemail") txtlogin = request.form("txtlogin") char_error("'"&txtlogin&"'") if Resultado = true then response.redirect("recuperasenha.asp?mensagem=caracteres especiais") end if mesmo eu digitando caracteres especiais não pega o erro, ele submete normal.
-
eu intendi o post, mas como eu usaria isto para verificar se a caracteres especiais em minha consulta. No caso na hora do cadastro e do login.
-
Até a parte que eu pego as variaveis eu já fiz. E la eu inclementei o sistema de aspas, quando pego as variaveis eu já peço para que se tiver aspas simples mude para duplas, mas essa parte do for e as comparações não estou sabendo fazer, melhor nunca usei o comando for. Poderia me dar umas dicas ou algum tutorial que me ensine a usar for e fazer estas comparações. tenho isso em java script, se quiser eu posto... Não foi eu quem fez , peguei em um tutorial. Desculpe se estou abusando. Agradeço. OBS. Não quero nada pronto, só quero aprender a fazer.
-
eu li os tutoriais, só que estou com duvidas. 1º.´se eu bloquear somente as aspas simples eu já protejo meu sistema. 2º como montar a função para bloquear os demais caracteres especiais? Agradeço desde já.
-
com java script eu sei como fazer, tenho um codigo, mas corre o risco que voces comentaram logo acima, eu gostaria com asp. Tipo tanto na hora do cadastro quanto na ora de logar quando o formulario for submetido, fazer o teste, eu testei o sitema de mudar aspas simples e funcionol direitinho, mas se eu bloquear tudo , não tem a necessidade de usar aquele sistema....
-
E ai galera... A função para trocar aspas simples por dupla eu sá aprendi segundo a matéria que o reginaldo me passou, mas como eu faria para bloquear os caracteres especiais incluindo qualquer tipo de aspas. Só queria que digitassem letras normais e numeros.
-
Estou criando um sistema para um site pago, e sei que a algumas formas de burlar estes sistemas. já vi uns artigos sobre isso aqui, fiz a pesquisa li um monte de coisa mas não achei o que eu queria, acho que não estou pesquisando certo, gostaria de primeiro algum tutorial com dicas de segurança para sistemas de senha, e segundo saber como bloquear caracteres especiais tipo (*&%$#"";/') para que não possa tanto gravar no bd na hora do cadastro quanto não possa ser incluso na hora da pesquisa para checar senha e login, sei que pode ser feito em java script, mas gostaria que fosse em asp.... Se puderem me ajudar... Eu só gostaria de saber como eu posso fazer isto... Desde já agradeço.
-
Nos links que voce postou ambos dos sites usam fremes para que so mude o conteudo do centro quando se entra em um item do menu, e as figuras podem ser tanto Java script, como qualquer outra linguagem dinamica, ex: asp, php etc...
-
Gostaria de saber para que serve e quando devo usar o dim, pois uso as veses e nem sei o que é. Por exemplo: Dim Mail ' objeto Email Dim strFromName ' nome do remetente Dim strFromEmail ' endereço de Email do remetente Dim strToEmail ' endereço do destinatario Dim strSubject, strBody 'corpo da mensagem Para que se usa isto, parece um request, mas não sei a utilidade. Agradeço desde já.
-
Desculpe-me, estava errado realmente. Parabéns Dark0... Só queria tirar a duvida...
-
Parabéns dark0....
-
Aproveitando. Cade o resto da série de 4 artigos que voce prometeu, e não se esque RESOPI de quando for falar do aspmail, ensinar como fazer fila de envio para facilitar na hora de montar e-mail lista.!!! já estou pedindo muito...
-
tudo que precisa saber para trabalhar com cdonts. Crika Akri O amigo reginaldo esta certo , testei em minha maquina e funfou tambem,. Precisando Poste.
-
data = now() conecta ao bd instrução sql para gravar a variavel data no bd. qualquer duvida poste
-
Aqui segue o link que explica nos miiiiinimos detalhes como trabalhar com Datas. è mole mole só dar uma estudadinha. Clique Aqui Clique Aqui Clique Aqui Clique Aqui Clique Aqui Clique Aqui T++++++++++