- Fórum WMO
- → cinraq's Content
cinraq's Content
There have been 66 items by cinraq (Search limited from 08/05/2023)
#29610 Criacao de equipe
Posted by cinraq on 24/01/2003, 12:56 in ASP
(ps.: peco desculpas pela falta de acentuacao, mas meu teclado do trabalho e americano e nao tem nem til, bom, que tem tem, ~ mas ele nao pega nas vogais, hehe. E nao tem como configurar)
#16065 Criacao de equipe
Posted by cinraq on 21/12/2002, 12:59 in ASP
Eu tenho uma sugestão a fazer, uma é que o fórum aceite skins, tipo logo, cores, backgrounds, botões, smiles, avatares, etc. Eu até comecei um esquema desses a um tempo atrás, mas daí tive que parar por falta de tempo.
Chacal, sei que já deve estar começando, então o que acha do pessoal que vai desenvolver o layout/design já ir apresentando o esquema, pra galera escolher? Outra coisa, o nome, comecem também a postar suas sugestnões para nome do fórum.
Outra coisa, acho que o fórum deveria se adequar a todos os servidores, inclusive os gratuitos, portanto os scripts de sendmail, uploads, etc. deveriam ser configuraveis para não serem utilizados caso estaja sendo utilizado nesses servers. Além de não possuir suporte global.asa.
#15413 Criacao de equipe
Posted by cinraq on 19/12/2002, 14:18 in ASP
Mas....... Agora chega, esse tópico não foi aberto com o propósito de discutir sobre linguagens, quem quiser continuar discutindo que abra outro tópico para isso em uma das sessões ASP ou PHP, e poste lá suas mágoas, de agora em diante este tópico só aceitará posts de pessoas que querem realmente ajudar, pra isso ele está pendurado e é esse o propósito do Chacal. Portanto todas as mensagens postadas que não sejam nesse propósito ou serão deletadas ou movidas para outros tópicos, ok???
Pôxa, tenho que usar pelo menos uma vez na vida de minha autoridade de moderador, naum é???
#30044 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 13:34 in Banco de Funções ASP
Esta função além de validar se tem "@" e "." também verifica se possui alguns caracteres inválidos, do tipo "/" "\" e outros.
CÓDIGO POSTADO POR Tarkan
<% Sub chkmail(variavel) Dim VAcha, XAcha VAcha = 0 variavel = trim(variavel) '***** Verifica se encontrou o valor VAcha = InStr(1, variavel, "X") VAcha = VAcha + InStr(1, variavel, "/") VAcha = VAcha + InStr(1, variavel, "\") VAcha = VAcha + InStr(1, variavel, ",", 0) VAcha = (VAcha + InStr(variavel, "@.")) VAcha = (VAcha + InStr(variavel, ".@")) VAcha = (VAcha + InStr(variavel, "..")) VAcha = (VAcha + InStr(variavel, " ")) VAcha = (VAcha + InStr(variavel, "*")) VAcha = (VAcha + InStr(variavel, CHR(34))) VAcha = (VAcha + InStr(variavel, CHR(60))) VAcha = (VAcha + InStr(variavel, CHR(62))) VAcha = (VAcha + InStr(variavel, ";")) VAcha = (VAcha + InStr(variavel, ")")) VAcha = (VAcha + InStr(variavel, "(")) VAcha = (VAcha + InStr(variavel, ":")) '***** Encontra na última posição XAcha = InStr(Len(variavel),variavel, "@") If XAcha = Len(variavel) Then VAcha = VAcha + XAcha End If '***** Encontra na primeira posição XAcha = InStr(variavel, "@") If XAcha = 1 Then VAcha = VAcha + XAcha End If '***** Verifica se existe @ XAcha = InStr(variavel, "@") If XAcha = 0 Then VAcha = VAcha + 1 End If '***** Verifica se existe . XAcha = InStr(variavel, ".") If XAcha = 0 Then VAcha = VAcha + 1 End If '***** Resultado If vAcha = 0 Then variavel="0" 'valido Else variavel="1" 'inválido End If End Sub %>
#30027 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 13:05 in Banco de Funções ASP
<% 'FUNÇÃO QUE VALIDA O EMAIL Function Valida_Email(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If Valida_Email = bIsValid End Function
para fazer a verificação
if Valida_Email(nomedastrigdeemail) = true then response.write "email válido" else response.write "e-mail inválido" end if
#30024 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 13:01 in Banco de Funções ASP
Estou abrindo este tópico porque às vezes em uma mesma semana existem mais de um post igual, perguntando se alguém tem aquela tal função pra isso, e pra aquilo, e a medida que os posts vão avançando elas vão ficando esquecidas e jogadas para o final do fórum até terem que ser apagadas para não sobrecarregar o banco de dados. Então espero que este tópico sirva de referência para todos, porque pra mim seria, com certeza.
Somente algumas regrinhas que peço que sejam cumpridas:
1 - Não poste aqui dúvidas
Caso tenha alguma dúvida sobre erro ou como utilizar o código abra um tópico para isso, isso para que não sobrecarregue mais ainda esta seção. Apenas comentários do postador do código serão aceitas dentro do próprio post, comentando como utilizar e comentários adicionais. E até a nota que dão para o código.
2 - Não adicione anexos nesta seção.
De forma nenhuma, caso tenha algo para dowload que complete o código, do tipo, algum banco de dados, ou outro arquivo, coloque apenas um link para ele.
Mas lembrem-se, este tópico não é para adicionar lojas virtuais, foruns, ou portais em ASP, e sim somente códigos ou funções específicas, do tipo, validação de e-mail, upload, etc. Ok? Até mais então, e qualquer dúvida me contatem.
P.S.: Estarei acrescentando umas funções postadas por outros usuários, com seus respectivos nomes, caso o postador queira adicioná-las como se fosse um post seu me avise que apagarei o meu post.
Para uma melhor organização do tópico
INDÍCE:
- Função para validar e-mail
- Função para validar e-mail '2'
- Código para ver caracteres
- Código para ver caracteres '2'
- Código para salvar arquivos .DOC e .XLS
- Usuários ON - LINE
- Up Load de arquivos em ASP.NET
- Componentes instalados no servidor
- Ver variáveis CGI
- Passar Sobre nome para frente do nome
- Mostrar apenas um pedaço de um texto ( ... )
- Verificação "real" de e-mail
- Listar tabelas de um banco de dados
- Validar CPF
- Tirar aspas simples
- Ver hora em dois paises
- Caracteres da tabela ACS
- Iniciando em ASP.NET
- Formulário postback integrando atecnologia ASP.NET
- Formatar Moedas
- Banner rotativo usando session
- Conexão Base de dados Oracle
- Inserir dados no DB
- Calcular idade
- Pegar data de uma string
- Retirar acentos e aspas
- Criptografar
- Filtro de BADWORDS
- Mostrar nome da imagem
- Select - insere e update do asp
- Calcula idade '2'
- Criptografia '2'
- Validar CNPJ
Este é o indice com todas as funções deste tópico, para achar algo com mais facilmente, digite 'CTRL + F' e digite uma palavra para a busca.
#30048 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 13:37 in Banco de Funções ASP
CÓDIGO POSTADO POR Firehalk
Ae pessoal,
é basico o codigo, mas é útil, para quem não sabe por exemplo que caractere é o 35, e assim por diante.. Ele lista todos os caracteres possiveis e indica o numero de cada um deles. Fiz isso por necessidade própria, mas quem quiser, aí está:
<% For x=1 to 255 response.write "<font size=""2"" face=""verdana"">Caractere " & x & " = <b> " & chr(x) & "</b></font><br>" next %>
Abraços
#30055 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 13:51 in Banco de Funções ASP
CÓDIGO POSTADO POR yaru
Gente eu estava passeando por uns links qdo descobri, que alguem havia achado a solução para salvar arquivos como os doc, pdf e xls apenas com um script em asp!
bom o artigo tá ai!
<% 'Avisamos que o modelo do arquivo será para download response.AddHeader "Content-Type","application/x-zip-compressed" 'Identificamos o nome que queremos para o arquivo de destino 'mude o Filename para o nome que você deseja ! response.AddHeader "Content-Disposition","attachment; filename=DemonsASPFX.XLS" Response.Flush Response.Buffer = True Const adTypeBinary = 1 Dim strFilePath 'O ADODB Stream foi utilizado para lermos o arquivo em formato 'binário, o FileSystemObject não permite leituras binárias e 'se fosse convertido para texto poderíamos danificar o arquivo. Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary 'Informe aqui o caminho completo do arquivo no servidor, 'se você não souber o caminho completo, mude o "E:\Home..." por 'Server.MapPath("Nome_Do_Arquivo") objStream.LoadFromFile "E:\Home\FatorX\Web\FXWeb\ASP\Download\DemonsASPFX.xls" Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing Response.Flush %>
#30119 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 15:25 in Banco de Funções ASP
arquivo componentes.asp
<% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(11) Dim theComponentName(11) ' componentes theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" ' apelido do componente! theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" 'theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>Componentes encontrados - www.asparena.eti.br </title> </head> <body> <table> <tr> <td align="center"><b>Componentes instalados:</b></font></td> </tr> <tr> <td> <font face="Arial" size="2"> <table border=1> <% Dim i For i=0 to UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next on error goto 0 %> </table> </font> </td> </tr> </table> </BODY> </HTML>
#30070 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 14:08 in Banco de Funções ASP
O brinkster não possui componentes para upload de arquivo mas tem uma solução é em Asp.Net, com esse código que vou passar, só outra coisa, como a única pasta que tem permissão de gravação é a db, somente lá funcionará esse código, mas dentro dessa pasta você também pode criar outros diretórios que vão possuir também permissão de gravação.
arquivo upload.aspx
<script language="VB" runat="server"> Sub Upload( Sender As Object, e As System.EventArgs ) Dim sPath as String Dim sFile as String Dim colFiles As System.Web.HttpFileCollection Dim i As System.Int32 sPath = Server.MapPath(".") If Right(sPath, 1) <> "\" then sPath = sPath & "\" msg.Text="" colFiles = System.Web.HttpContext.Current.Request.Files Try For i = 0 To colFiles.Count - 1 sFile = System.IO.Path.GetFileName( colFiles(i).FileName ) If sFile <> "" then colFiles(i).SaveAs( sPath & sFile ) msg.Text = msg.Text & "<br>" & sFile & " - <font color=red>Salvo</font>" End If Next Catch Ex as Exception msg.Text = msg.Text & "<br>???? " & sFile & " ??,?????: " & Ex.Message End Try If msg.Text = "" then msg.Text = "<br> - Salvo" End Sub </script> <html> <head> <title>Multiple File Upload Example</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body> <form enctype="multipart/form-data" runat=server> <table border="0" cellspacing="0" cellpadding="4" style='border:1 solid #4358BE'> <tr> <td style='border-bottom:1 solid #4358BE;background-color:#7a96df;color:white'><b>????</b></td> </tr> <tr> <td><input id="file1" type=file runat=server><br> <input id="file2" type=file runat=server><br> <input id="file3" type=file runat=server><br> </td> </tr> <tr> <td align=right><asp:button id=Uploadbtn Text="Enviar" OnClick="Upload" width="70px" height="20px" runat=server/></td> </tr> </table> <asp:label id="msg" Font-Bold="True" runat=server/> </form> </body> </html>
Você pode acrescentar quantos campos quiser, só modificar o id do campo: <input id="file3" type=file runat=server>, por exemplo file4, file5, etc...
não se esqueçam a extensão de Asp.Net é .aspx, portanto o arquivo tem que ser salvo como upload.aspx, ou outronome.aspx, ok???
#30059 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 13:55 in Banco de Funções ASP
CÓDIGO POSTADO POR O_Chacal
Ae eu lembro que tinha umas pessoas tentando achar um codigo que mostrava quais users estao online...pois bem...este que eu fiz faz isso e sem o global.asa..ai vai o codigo..
O banco de dados:
Você deve ter um tabela com os dados dos cadastrados em seu site...
Crie uma tabela chamada online com os campos
hora - texto
ip - texto
user - texto
A página:
Na pagina em que faz o login do user adicione uma Session que loga o login do usuario. Aqui irei usar como se fosse a session login.
<% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("online") Conexao.Open ConStr agora=Time() ip=Request.ServerVariables("REMOTE_ADDR") If Session("login") = "" Then user="" Else user=Session("login") End If Sql="INSERT INTO online VALUES ('"&agora&"','"&ip&"','"&user&"')" Conexao.Execute(Sql) Sql="DELETE * FROM online WHERE hora < Time()-60 " Conexao.Execute(Sql) Sql = "SELECT DISTINCT ip FROM online" Set RS = Server.CreateObject("ADODB.Recordset") RS.open Sql,Conexao, 3, 3 If rs.EOF Then %> Nenhum usuario está online! <% else %> Existem <%=rs.recordcount%> online<BR> <% Sql1 = "SELECT DISTINCT ip FROM online WHERE user <> '' " Set RS1 = Server.CreateObject("ADODB.Recordset") RS1.open Sql1,Conexao, 3, 3 %> Sendo <%=rs1.recordcount%> membros e <%Sql2 = "SELECT DISTINCT ip FROM online WHERE user = '' " Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.open Sql2,Conexao, 3, 3 %> <%=rs2.recordcount%> visitantes.<BR> <% Sql="Select * from online" Set rs3=Conexao.Execute(Sql) If rs1.EOF then %> <% else %> Os membros online são: <% While Not rs1.EOF %> <%=rs3("user")%>, <% rs1.MoveNext Wend End If End If %>
------------------
EH so isso.....se pode dar umas mlehoradas e tal..espero ter ajudado..qualquer duvida perguntem..
#30054 FunçõEs Prontas
Posted by cinraq on 25/01/2003, 13:46 in Banco de Funções ASP
CÓDIGO POSTADO POR Tarkan
Interessante...
Um amigo meu pediu ontem pra eu fazer um code pra ele, que listasse letras de A até Z, para um site de letras de músicas.
É + - isso que estão postando.
Segue o código para quem precisar:
letra = "A" while letra <> chr(asc("Z")+1) response.write "<a href=coco.asp?artista=" & letra & ">" & letra & "</a> " letra = chr(asc(letra)+1) wend
#26493 Display aleatório
Posted by cinraq on 17/01/2003, 17:18 in ASP
<%
For i = 1 to 5
if i = ("banner_id") then exit for
Dim rndmax
rndmax = CInt (rsBanners.RecordCount)
rsBanners.Movefirst
Dim rndNumber
Randomize Timer
rndNumber = Int (RND * rndMax)
rsBanners.Move rndNumber
%>
Mas mesmo assim acho que seu código não vai dar certo, o que é esse banner_id, uma querystring, uma variável...?
teria que ser tipo isso:
if i = Request.QueryString("banner_id") then exit for
ou
if i = Rs("banner_id") then exit for
sei lá, o que você estiver indicando no seu código
#20594 Apache & ASP
Posted by cinraq on 30/12/2002, 00:35 in ASP
http://developer.chi....com/downloads/
#21078 Apache & ASP
Posted by cinraq on 31/12/2002, 06:57 in ASP
Nesse link que passei aí você pode escolher o sistema operacional, é o site oficial, da própria Sun, e você tem versões pra Linux, Unix, Windows, Solaris, etc....O ChiliASP é a ferramenta para emulação de ASP e Access no Apache....
Mas não sei se ele pode ser isntalado em servidores windows.... vc teria que estar usando o Linux....
#19425 Sistema de Notas Online
Posted by cinraq on 27/12/2002, 20:40 in ASP
Mas se for aprender, lembre-se que a galera tá aí pra te dar um suporte valew???
#20596 Hospedagens
Posted by cinraq on 30/12/2002, 00:44 in ASP
Eu recomendo aquela com que você tem mais familiaridade, pois de nada vai adiantar ficar quebrando cabeça com uma coisa que você não conhece, se não sabe nenhuma, procure baixar umas apostilas e estudar um pouco de ASP e PHP, depois veja com qual se adapta melhor, não adianta ir com todo mundo dizendo, ah!! a melhor é ASP, não a melhor é PHP!!! Você é que deve decidir com qual você se dá melhor depois de conhecer pelo menos o básico de cada uma, uns dois dias lendo e você já tem a condição de escolher, eu acho.Pergunta básica!
Vocês me recomendam que linguagem para se fazer uma home page?
Quanto ao host, ultimamente tenho usado o http://www.iphotel.com.br/, não é das mais baratas, mas até hoje não tive grandes problemas com eles, além de te darem um suporte excelente. E quanto ao domínio, eu recomendo que você depois de assinar com o host, você mesmo faça o registro do mesmo usando o DNS que o servidor vai lhe fornecer, e o CNPJ de sua empresa, fica bem mais barato do que pedir que alguém registre por você, pois vão cobrar por isso.
Espero ter ajudado, e qualquer coisa estamos aí pro que der e vier.
#30113 Erro 405 http
Posted by cinraq on 25/01/2003, 15:19 in ASP
#26473 Alguem me ajuda por favor ??
Posted by cinraq on 17/01/2003, 16:45 in ASP
server.HTMLEncode(string)
Assim se a pessoa digita <table></table>, ao invés de criar uma tabela no html ele somente mostra como texto comum.
Qualquer dúvida sobre como usar poste o código da página que mostra os posts aí que eu te digo aonde e como colocar ok?
#28893 Erro 405 http
Posted by cinraq on 23/01/2003, 01:02 in ASP
Poste o código da página que está dando erro aí!!!NBem, talvez eu não tenha explicado direito.
Esse erro ocorre no navegador, quando clico no botão "submit".
No dreamweaver, o meu form esta com a seguinte ação: MM_editAction
Não sei se ela tem algo a ver com esse erro
POR FAVOR; ME AJUDEM!!!!!!!!!
- Fórum WMO
- → cinraq's Content
- Privacy Policy
- Regras ·