Ir para conteúdo
Fórum Script Brasil

ursolouco

Veteranos
  • Total de itens

    2.314
  • Registro em

  • Última visita

Tudo que ursolouco postou

  1. ursolouco

    Asp

    MACORATTI!!
  2. ursolouco

    Sobre Um Login E Senha

    Antes de inciar, digo que atendo como Raquel após as 20:00 em São Paulo!!!! Pois a vida de Analista de Suporte e Developer, a cada dia que passa, esta mais dificil e mal reconhecida. Seja então, humilde, não é feio pedir por favor e muito menos dizer 'Obrigado'. Se você não esta recebendo nada pelo seu trabalho e precisa de algo, se vira, pois não há funcionário seu aqui. Bareta!!! Não zoa vai!!!! Dar esperanças aos mal-educados e igual iludir menininhas de 16 anos. [ E não pense que não já fiz isso!!! ] Salvo sobre, você conhecer o cara. Abraços à todos!!
  3. ursolouco

    Texto - Asp

    Brother!! Não sei o seu conhecimento em ASP, mas quando você for realizar a consulta no seu arquivo HTML ou banco de dados, selecione apenas os campos necessarios para exibição. Assim, você não consome muito recurso do servidor e agiliza o processo em seu sistema. Abraços!! [urso]
  4. tá, e o erro ? dá problem onde ? o q você deseja fazer ?
  5. ursolouco

    Usando Dll

    Brother!! Normalmente os Host não deixa registrar DLL nem em sonho (aparece, access denied, numa nuvenzinha branca), acredito mesmo, que você deverá, relacionar suas funções em códigos externos e utilizar includes para fazer o processo, mas se não seu caso, você for amigo do /Host, pode ser que haja exessões. Para instanciar seu objeto, é daquele mesmo jeito: Dim nObj Set nObj = Server.CreateObject("Componente.NomedaClasse") nObj.NomePropriedade = valor variavel = nObj.Método(Argumento_se_Necessario) Abraços!!!
  6. ursolouco

    Checkbox

    Há um código no tópico de funções, que alem de ser ótimo, funciona, na boa.!! Se for interessante, dá uma olhadinha lá. Abraços!!!
  7. ursolouco

    Binaryread

    Marcelo!!! Há pouca informação aí, dá uma olhada de como estão sendo enviadas as informações (GET ou POST) e como estão sendo recolhidas (Request.Form ou Request.Querystring) Abraços!!!
  8. Quando você estiver montando sua string para inserir no corpo do e-mail, você utiliza o <br> Ex: MensagemHMTL = "<HTML>" MensagemHMTL = MensagemHMTL & "<head>" MensagemHMTL = MensagemHMTL & "<title>" MensagemHMTL = MensagemHMTL & "</title>" MensagemHMTL = MensagemHMTL & "<body>" MensagemHMTL = MensagemHMTL & "<p>" MensagemHMTL = MensagemHMTL & "Olá Urso" MensagemHMTL = MensagemHMTL & "</p>" MensagemHMTL = MensagemHMTL & "<br>" MensagemHMTL = MensagemHMTL & "<p>" MensagemHMTL = MensagemHMTL & "Amo muito você. Sabia ?" MensagemHMTL = MensagemHMTL & "</p>" MensagemHMTL = MensagemHMTL & "</body>" MensagemHMTL = MensagemHMTL & "</html>"
  9. Brother!! Minha opinião, acho que ela esta apenas mal organizada. Dá uma olhada no tamanho do seu 'Copyright', esta gigante... Dá uma olhadinha na loja do superasp e se basea na organização. Abraços!!
  10. Brother!! Dentro do arquivo que vai para o <iframe>, coloque este script: <script language="JavaScript1.2"> var speed, currentpos=curpos1=0,alt=1,curpos2=-1 function initialize(){ if (window.parent.scrollspeed!=0){ speed=window.parent.scrollspeed scrollwindow() } } function scrollwindow(){ temp=(document.all)? document.body.scrollTop : window.pageYOffset alt=(alt==0)? 1 : 0 if (alt==0) curpos1=temp else curpos2=temp window.scrollBy(0,speed) } setInterval("initialize()",10) </script> Depois, nas imagens que indicam o scroll, utilize o script que você já possui. <a href="#" onMouseover="scrollspeed=-2" onMouseout="scrollspeed=0"> Abraços!!
  11. ursolouco

    Do Asp Para O Word

    Brother!! Segundo nossa busca no forum, achei uma dúvida semelhante a sua, do usuario 'GolBranco' Asp: Salvando Arquivo .doc Os dados contido no arquivo, vão ser retornados da consulta a um banco de dados, e isso ae, to ligado, que você já sabe. Abraços!!!
  12. ursolouco

    Consulta Ao Bd

    Brother!! De boa, deveria dar aulas de lógicas de programação. Falou a resposta do problema, diria, deu o processamento do servidor ao cara, agora, só ele desenvolver. Vamos lembrar que, ele, manja de ASP. Abração!!!
  13. ursolouco

    Criar Pasta No Asp

    Olá Viviane!! Veja as permissões de acesso, clickando bom botão direito do Mouse sobre o diretorio (Propriedades) dentro do IIS. Ative lá, 'Gravação' e Script e Executaveis Bjursos!!!
  14. ursolouco

    Consulta Ao Bd

    ID = Request("Id") tSQL = "SELECT * FROM Tabela WHERE id ="& ID &"" Abraços!!
  15. Brother!! Você pode montar um sistema de rolagem (semelhante a este aqui) e utilizar em seu site. Valeu ?
  16. Utilizando chamadas Assíncronas com Remote Script
  17. Ê!!!! Skol gelada para os dois..... Deividy, Chamadas assicronas com javascript e ASP Veja o tutorial sobre o assunto!! Abraços!!!
  18. Bom, sei lá Deividy!! Eu, particularmente, gosto de usar o DW por causa das cores do código (são boas) mas para realizar programação, utilizando os recursos do DW, acho ele um pouco dificil D+, sou mais no Código mesmo. Abraços!!!
  19. Teske!! Este simples script abaixo, conecta ao banco de dados. cBanco = Server.MapPath("banco.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source= "& cBanco & ";" Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn)'Aqui, esta sendo aberta a conexão com banco de dados Recomendo que você leia um pequeno tutorial em ASP de como conectar com banco de dados e deixe o DW apenas para editar seus códigos. Abraços e Boa Sorte!!!
  20. <% sMensagem = "<HTML><HEAD><TITLE></TITLE></HEAD>" sMensagem = sMensagem & "<BODY>" sMensagem = sMensagem & "<TABLE>" sMensagem = sMensagem & "<TR>" sMensagem = sMensagem & "<TD>" sMensagem = sMensagem & "<IMG SRC=" sMensagem = sMensagem & "http://www.site.com.br/news/01/imagens/sammi_gatinha.jpg" sMensagem = sMensagem & "WIDTH=350 HEIGHT 250" sMensagem = sMensagem & "> sMensagem = sMensagem & "</TD>" sMensagem = sMensagem & "</TR>" sMensagem = sMensagem & "</TABLE>" sMensagem = sMensagem & "<BR>" sMensagem = sMensagem & "<P>" sMensagem = sMensagem & "AMO O URSOLOUCO" sMensagem = sMensagem & "</P>" sMensagem = sMensagem & "</BODY>" sMensagem = sMensagem & "</HTML>" Mailer.BodyText = sMensagem %> Organize melhor sua estrutura da mensagem que seu e-mail, vai funcionar.. Abraços!!
  21. Deletando multiplos registro com checkbox (se possivel, edite seu relacionamento no banco de dados para realizar 'exclusão em cascata') usando consultas armazenadas: index.asp <!--#include file="adovbs.inc" --> <% Session.LCID = 1046 Response.Expires = 0 cBanco = Server.MapPath("NWIND2000.mdb") strConn = "Provider=Microsoft.jet.oledb.4.0; Data Source=" & cBanco & ";" Set Conn = Server.CreateObject("adodb.connection") Conn.Open strConn Set objCmd = Server.CreateObject("adodb.command") With objCmd .ActiveConnection = Conn .CommandType = AdCmdStoredProc .CommandText = "cst_Lista" End With Set Rs = Server.CreateObject("adodb.recordset") Set Rs = objCmd.Execute Set objCmd = Nothing %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Listando Produtos !</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="lista.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- .style1 { color: #990000; font-weight: bold; } .style2 {color: #990000} --> </style> </head> <body> <form action="deletar.asp" method="post" name="Produtos" id="Produtos"> <table width="495" border="0" align="center" cellpadding="0" cellspacing="0" class="bordafina"> <tr valign="middle"> <td width="38" height="25" class="r1"><p align="center"><b>ID</b></p></td> <td width="327" height="25" class="r1"><p><b>&nbsp;Nome do Produto </b></p></td> <td width="100" height="25" class="r1"><p align="center"><b>Pre&ccedil;o</b></p></td> <td width="28" height="25" class="inf"><p align="center" class="style1">&nbsp;</p></td> </tr> <% While Not Rs.Eof %> <tr> <td height="17" class="r1"><p align="center" class="style2">&nbsp;<% Response.Write(Rs(0))%></p></td> <td height="17" class="r1"><p>&nbsp;<% Response.Write(Rs(1))%></p></td> <td height="17" class="r1"><p align="center">&nbsp;<% Response.Write(FormatCurrency(Rs(2)))%></p></td> <td height="17" class="inf"><p align="center"> <input name="idProduto" type="checkbox" id="idProduto" value="<% Response.Write(Rs(0))%>"> </p></td> </tr> <% Rs.MoveNext Wend %> <tr> <td height="30" colspan="4"><p align="center"> <input name="Submit" type="submit" class="botao" value="Excluir / Atualizar"> </p></td> </tr> </table> </form> </body> </html> <% Conn.Close Set Conn = Nothing %> cst_Lista: SELECT Products.ProductID, Products.ProductName, Products.UnitPrice FROM Products; deletar.asp <!--#include file="adovbs.inc" --> <% id = Trim(Request.Form("idProduto") ) vId = Split(id, ",") If Not isNull(id) Then cBanco = Server.MapPath("NWIND2000.mdb") strConn = "Provider=Microsoft.jet.oledb.4.0; Data Source=" & cBanco & ";" Set Conn = Server.CreateObject("adodb.connection") Conn.Open strConn Set objCmd = Server.CreateObject("adodb.command") objCmd.CommandType = adcmdstoredProc objCmd.ActiveConnection = Conn objCmd.CommandText = "cst_Deletar" For I = 0 to UBound(vId) objCmd.Parameters.Append objCmd.CreateParameter(":idDeletar", AdInteger, AdParamInput, 2, 1) objCmd(":idDeletar") = CInt(vId(i)) objCmd.Execute objCmd.Parameters.Delete ":idDeletar" Next Set objCmd = Nothing Conn.Close Set Conn = Nothing Response.Redirect("index.asp") Else Response.Redirect("index.asp") End If %> cst_Deletar: DELETE Products.ProductID, * FROM Products WHERE (((Products.ProductID)=[:idDeletar])); Espero que seja util!!! Abraços!!!
  22. Atribua a linha interpretada em uma variavel Depois conte de 0 até o maximo de caracteres E, usando o método 'WriteBlankLines(numOfLines)', você pode substituir a linha, ou até mesmo com o bom e velho Replace Deduzo que seja isso... lembre-se que eu chutei.... Abraços e Boa Sorte!!!
×
×
  • Criar Novo...