- Fórum WMO
- → cinraq's Content
cinraq's Content
There have been 66 items by cinraq (Search limited from 20/04/2023)
#172540 Organização
Posted by cinraq on 21/08/2003, 08:51 in ASP
ORDER BY clng(variável) DESC
#31926 Meus Favoritos
Posted by cinraq on 28/01/2003, 16:54 in HTML, CSS e Metodologias
Na verdade não é bem isso que estou procurando, quero salvar o conteúdo dos meus favoritos do cliente em algum lugar entendeu? Eu até encontrei alguma coisa, mas não estou conseguindo dar partida nisso, vejam o que eu encontrei:pelo q eu entendi vc quer adicionar um site aos favoritos e mais tarde visitá-lo sem entrar na net...
existem vários programas para baixar websites... tente achar no Superdownloads e noBaixaki
se naum for isso, me corrija!!
// 'true' indica que os favoritos serão importados do server(o nome do arquivo é bookmark.html. window.external.ImportExportFavorites( true,"http://www.seusite.com.br"); // 'false' indica que os favoritos serão exportados do server(o nome do arquivo é bookmark.html. window.external.ImportExportFavorites( true,"http://www.seusite.com.br"); // Se a string que recebe o endereço estiver vazia uma caixa para procurar o arquivo bookmark.html é aberta window.external.ImportExportFavorites(false, "");
A partir daí acho que tem uma solução, mas não estou conseguindo pensar, se alguém souber...
#31572 Favoritos
Posted by cinraq on 28/01/2003, 04:29 in ASP
#31550 Meus Favoritos
Posted by cinraq on 28/01/2003, 02:28 in HTML, CSS e Metodologias
#31528 Meus Favoritos
Posted by cinraq on 28/01/2003, 01:55 in HTML, CSS e Metodologias
#31509 Como uso tabelas?
Posted by cinraq on 28/01/2003, 01:23 in Dreamweaver
function layer(){ var tela_width,meulayer //aqui estou pegando a definição do vídeo do cliente e atribuindo a uma variável tela_width = screen.width //aqui eu declaro qual o layer será modificado, onde está XXX vc coloca a id de seu layer meulayer = document.getElementById('XXX') //lembre-se que aqui somente está atribuido o valor horizontal do layer, caso você precise do valor vertical também o atributo é top no lugar de left if(tela_width == 1024){ meulayer.style.left = 855 } else if(tela_width == 1152){ meulayer.style.left = 935 } else if(tela_width != 800 && tela_width != 640){ alert("Suas definições de vídeo não permitem que essa página seja corretamente exibida. \n As melhores definições são: \n \t 640X480(pouca definição mas conteúdo intacto) \n \t 800X600(boa visualização) \n \t 1024X768(boa visualização) \n \t 1152X864(média visualização)") } }
depois é só chamar a função em:
<body onLoad="layer()">
#30256 Agora que Já Consegui o Pws
Posted by cinraq on 25/01/2003, 19:44 in ASP
Agora, quanto ao pws, pra saber mais como configurar e trabalhar com ele acesse: http://www.construin...instalando.shtm
#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>
#30116 Utilizar o JMail - URGENTE
Posted by cinraq on 25/01/2003, 15:21 in ASP
Veja que neste tópico tem um código para testar quais os componentes estão instalados no servidor:
http://forum.wmonlin...=5&t=5214&st=0
#30113 Erro 405 http
Posted by cinraq on 25/01/2003, 15:19 in ASP
#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..
#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 %>
#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
#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
#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.
#29885 Validação de E-Mail
Posted by cinraq on 25/01/2003, 00:09 in 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
#29878 Erru por favor me ajudem
Posted by cinraq on 25/01/2003, 00:03 in ASP
#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)
- Fórum WMO
- → cinraq's Content
- Privacy Policy
- Regras ·