Gnomo

Estou precisando montar um sistema de login onde o login e a senha são criados automaticamente o login é criado a partir do nome da pessoa, Ex: Nome: João da Silva Login: joaosilva A senha é criada por números e caracteres aleatórios. Alguém pode me ajudar a fazer isto? Desde já agradeço.

veja este post: http://forum.plugmasters.com.br/index.php?showtopic=4303 achei no google... espero ter ajudado.. :D

tem esse site aqui também ele gera um sitemap em xml para o google... http://www.xml-sitemaps.com/ espero ter ajudado... :D

e aí galera.. tenho esse codigo em JS que faz um menu tree.. exemplo: --Menu1 ----SubMenu --Menu2 ----SubMenu Só que ele esta dando erro no firefox.. no IE ele funciona normalmente, já no firefox da erro na linha 40, 47 e 54. Linha 40: Linha 47: Linha 54: Codigo completo: var ultObj, secAtual; var iAb = "img/fold-ab.gif"; var iFc = "img/fold-fc.gif"; var iNl = "img/fold-nl.gif"; function Lista() { for(i = 0; i < document.all.length; i++) { if(document.all(i).tagName == 'IMG'){ document.all(i).src = 'img/fold-' + document.all(i).src.substr(document.all(i).src.lastIndexOf('/')+1,2) + '.gif'; document.all(i).className = 'ii'; } else if(document.all(i).tagName == 'SPAN'){ document.all(i).className = 'it'; } else if(document.all(i).tagName == 'DIV'){ document.all(i).style.display='none'; document.all(i).className = 'is'; } } m1.style.display='block'; m1i.src = iAb; m1l.className = "ie"; ultObj = m1l; sMostrar(1); } window.onload = function() { Lista(); } document.onselectstart = function() { window.event.cancelBubble = true; window.event.returnValue = false; return false; } function sMostrar(codsec) { if(codsec != secAtual) top.admin.corpo.document.location = 'ConteudoCorpo.asp?cat=' + codsec; secAtual = codsec; } document.onmouseover = function() { var eSrc = window.event.srcElement; if (eSrc.className == "it") { eSrc.className = "id"; } } document.onmouseout = function() { var eSrc = window.event.srcElement; if (eSrc.className == "id") { window.event.srcElement.className = "it"; } } document.onclick = function() { var eSrc = window.event.srcElement; if (eSrc.className == "it" || eSrc.className == "id") { window.event.srcElement.className = "ie"; if(ultObj != null) ultObj.className = "it"; ultObj = window.event.srcElement; sMostrar(ultObj.id.substring(1,ultObj.id.length-1)); } else if(eSrc.className == "ii") { if(eSrc.src.substring(eSrc.src.length - iNl.length, eSrc.src.length) != iNl){ objid = document.all(eSrc.id.substring(0,eSrc.id.length-1)); if(objid.style.display == '') { objid.style.display='none'; eSrc.src = iFc; } else if (objid.style.display == 'none') { objid.style.display='block'; eSrc.src = iAb; } else { objid.style.display='none'; eSrc.src = iFc; } } } } document.ondblclick = function() { var eSrc = window.event.srcElement; if (eSrc.className == "it" || eSrc.className == "id" || eSrc.className == "ie") { window.event.srcElement.className = "ie"; if(ultObj != null && ultObj != eSrc) ultObj.className = "it"; ultObj = window.event.srcElement; iSrc = document.all(eSrc.id.substring(0,eSrc.id.length-1) + 'i'); if(iSrc.src.substring(iSrc.src.length - iNl.length,iSrc.src.length) != iNl){ objid = document.all(eSrc.id.substring(0,eSrc.id.length-1)); if(objid.style.display == '') { objid.style.display='none'; iSrc.src = iFc; } else if (objid.style.display == 'none') { objid.style.display='block'; iSrc.src = iAb; } else { objid.style.display='none'; iSrc.src = iFc; } } } } Desde já agradeço.

aí galera.. qria fazer um curso online de ajax, javascript DOM e Tableless sera que vale a pena? Fico com receio de fazer curso online. Eu vi este site http://visie.com.br/ parece ser bom. alguém pode me indicar outro site? Desde já agradeço;

Fala aí.. Consegui aqui.. Valeu!!

Fala galera... Surgiu-me uma ideia em separar as notícias do site que estou desenvolvendo por data.. Exemplo: alguém sabe como eu faço isso? Desde já agradeço..

muito obrigado avontzdnb!! Irei testar o código :)

Olá a todos.. Estou com uma dúvida sobre aquelas imagens de segurança de formulários de cadastros etc... Eu já tenho o código que gera a imagem com o código, mais como eu não tenho ideia de como fazer o formulário para a pessoa digitar o que ela vê na imagem. Já tentei com Session mas não funciona muito bem, veja: http://www.guareisp.com.br/img.asp Seguinte ao entrar nesta página você vera um código alfanumérico tipo esse: 11G9F3 ao visualizar o código fonte você irá reparar que o valor do input hidden esta em branco <img src="seguranca.asp" border="0" /><br> <input type="hidden" value="" name="codseg" /> Ao atualizar o código muda "6FXYRM" e o valor do input hidden passa a ser o código anterior "11G9F3". <img src="seguranca.asp" border="0" /><br> <input type="hidden" value="11G9F3" name="codseg" /> Alguém pode me ajudar com isso? Código da página img.asp <img src="seguranca.asp" border="0" /><br> <input type="hidden" value="<%=Session("seguranca")%>" name="codseg" /> Código da página seguranca.asp <% Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath("background.gif") Jpeg.Canvas.Font.Color = &HFFFFFF Jpeg.Canvas.Font.Family = "Verdana" Jpeg.Canvas.Font.Size = 20 Jpeg.Canvas.Font.Bold = True Jpeg.Canvas.Font.Quality = 4 Session("seguranca") = GerarCodigo Jpeg.Canvas.Print 11, 3, Session("seguranca") Jpeg.SendBinary Private Function GerarCodigo() Dim valores, i GerarCodigo = "" valores = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "que", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") Randomize For i = 1 to 6 GerarCodigo = GerarCodigo & valores(Int(uBound(valores) * Rnd)) Next End Function %> Desde já agradeço. :)

Graymalkin.. fiz no Crystal Reports um arquivo para imprimir as etiquetas.. salvei como etiqueta.rpt e agora como como faço um comando que imprima todas as etiquetas cadastradas no bd (access) e use o arquivo feito em crystal reports "etiqueta.rpt".. Desde já agradeço...

alguém sabe onde encontro um tutorial de um programa para imprimir etiquetas de endereço? Eu achei um no site do www.macoratti.net mas ele imprime via Word.. Eu queria que ele pegasse as dimensões da etiqueta e de espaçamento e o tamanho do papel e mandar o comando para a impressora imprimir de acordo com as dimensões inseridas no mesmo.. Desde Já agradeço...

Achei que o meu problema estava resolvido... mas me enganei.. esse script esta funcionando normal.. ele da o replace nas underlines só que não em todas... Ex: Normal: _Teste _Teste Era pra ficar assim: _Teste _Teste Mais está ficando assim: _Teste _Teste Como posso resolver isto?? desde já agradeço...

Consegui.. xD está aí o codigo pra qm quiser... function replace() { document.getElementById("texto").innerHTML = document.getElementById("texto").innerHTML.replace('_', '<font color=#D0630E><b>_</b></font>'); } window.onload = function() { replace(); } valeuuu xD

E aí galera.. Queria fazer uma funçao onde todo o texto dentro de uma div cujo id é texto mudar a cor para vermelho.. ex: <div id=texto>aaaaaaaaaaaaaaaaaaa</div> vai ficar assim <div id=texto><font color=red>aaaaaaaaaaaaaaaaaaa</font></div> Desde já agradeço...

po cara não está pegando não... erro:

Vou tentar.. Obrigado..

Posta o código aí....

e aí galera... eu tenho esse codigo aqui mais ele não funciona no firefox... alguém pode me dizer porque? Abaixo codigo: if(window.top != window.self){ window.top.location = window.self.location; } var Menus = new Array(3); Menus[0] = new Menu('Conteúdo','Conteudo.asp'); Menus[1] = new Menu('Relatórios','Relatorios.asp'); Menus[2] = new Menu('Administração','Administradores.asp'); function window.onload() { Muda(0); } function GeraMenu() { var strFinal = ''; strFinal = strFinal + '<TABLE border=0 cellpadding=0 cellspacing=0 height=25><TR>'; for (i = 0; i < Menus.length; i++) { if(Menus[i].status == true) { strFinal = strFinal + '<TD id=' + Menus[i].tid + '><TABLE border=0 cellpadding=0 cellspacing=0><TR><TD><IMG height=25 src=img/mn-sel-e.gif width=2></TD><TD background=img/mn-sel-f.gif valign=bottom><SPAN class=mn-sel>' + Menus[i].nome + '</SPAN><BR><IMG height=3 src=img/b.gif width=1></TD><TD><IMG height=25 src=img/mn-sel-d.gif width=1></TD></TR></TABLE></TD>'; } else { strFinal = strFinal + '<TD id=' + Menus[i].tid + '><A class=mplk href="java script:Muda(' + i + ');"><SPAN class=mn-t1>' + Menus[i].nome + '</SPAN><BR><SPAN class=mn-t2 id=' + Menus[i].gid + '>' + Menus[i].nome + '</SPAN><BR></A></TD>'; } if ((i + 1) < Menus.length) if(Menus[i].status == false && Menus[i + 1].status == false) strFinal = strFinal + '<TD><FONT class=mn-sep>|</FONT></TD>'; } strFinal = strFinal + '</TR></TABLE>'; return strFinal; } function Menu(nome, link) { d = new Date(); r = Math.ceil(Math.random() * 1000); this.nome = nome; this.link = link; this.gid = 'mnid' + d.getTime() + '_' + r; this.tid = 'tdid' + d.getTime() + '_' + r; this.status = false; } function Muda(mn) { for (i = 0; i < Menus.length; i++) { Menus[i].status = false; } Menus[mn].status = true; menubarra.innerHTML = GeraMenu(); window.admin.document.location = Menus[mn].link; } Desde já agradeço...

e aí galera.. eu queria fazer o seguinte: selecionar a coluna codigo da tabela contar quantas linhas tem e somar +1.. to fazendo isso: rstInserir.Open "SELECT ConteudoTipo.*, Count(Codigo)+1 AS Total FROM ConteudoTipo", conn, adOpenKeyset, adLockOptimistic, adCmdTable strTotal = rstInserir("Total") depois eu faço isso: <INPUT TYPE=TEXT VALUE="<%=strTotal%>"> so que está aparecendo isso: <INPUT TYPE=TEXT VALUE=""> O que estou fazendo de errado? Desde já agradeço..

e aí galera.. por encrivel que pareça essa era minha duvida estava lendo um forum falando sobre como indexar minhas paginas em sites de busca.. como o google, yahoo etc.. e la estava falando sobre isso.. uma das vantagens de usar a extençao html Se liga: Eu queria saber.. como que eles fazem isso tp: http://www.site.com.br/default.asp/pagina.html Valeu...

e aí.. po fiz o que o dark0 indicou.. sobre executar os codigos separadamente.. o AspJpeg Funcionou tranquilo... Aqui esta: imagem maior que 67x67pixels: http://www.foxmdesigner.com.br/admin3/jpeg.asp?img=10 imagem menor que 67x67pixels: http://www.foxmdesigner.com.br/admin3/jpeg.asp?img=8 Codigo que usei: <% dim strNomeArquivo, rstAvatar Set Jpeg = Server.CreateObject("Persits.Jpeg") Set rstAvatar = Server.CreateObject("ADODB.Recordset") rstAvatar.Open "SELECT * FROM Avatar WHERE Codigo = " & Request("img") & ";", conn, adOpenKeyset, adLockOptimistic If rstAvatar.EOF Then response.write("Não existe imagem com esse codigo") Else strNomeArquivo = rstAvatar("NomeArquivo") End If rstAvatar.Close() Jpeg.Open "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo largura = Jpeg.OriginalWidth altura = Jpeg.OriginalHeight if largura <> 67 And altura <> 67 then response.write("<BODY><IMG SRC=""img/avatar/" & strNomeArquivo & """ BORDER=0><BR><FONT FACE=VERDANA SIZE=2 COLOR=RED><B>A imagem é maior que 67x67 pixels!</FONT></BODY>") else Jpeg.Save "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo response.write("<BODY><IMG SRC=""img/avatar/" & strNomeArquivo & """ BORDER=0><BR><FONT FACE=VERDANA SIZE=2 COLOR=RED><B>A imagem é menor que 67x67 pixels!</FONT></BODY>") end if Jpeg.close %> E agora.. o que pode ser? Os dois codigos estao funcionando tranquilo... Não intendo porque quando junto os dois (upload e aspjpeg) o asp jpeg não verifica as dimensões da imagem... Desde já agradeço!

e aí darko.. é o seguinte.. o codigo esta funcionando.. não aparece erro nenhum.. tinha um erro aparecendo antes.. mais já consertei.. o erro era porque o valor de Jpeg.Open tava errado ele não tava encontrando a imagem para fazer a verificaçao... so que agora não aparece nada so faz o upload mais não roda o codigo do aspjpeg... e agora o que eu faço?! to quase desisitindo disso aeoihahoieioaeoiahoieae vlw.. Desde já agradeço

e aí galera.. to com um problema que não consigo resolver e não encontro nenhuma solucao para este problema. seguinte.. tenho um upload usando o componente persists upload.. ele faz o upload todo certo e tal.. so que eu inseri um codigo com o componente AspJpeg para limitar o upload para imagens com o tamanho 67x67px so que ele faz o upload sem verificar se é maior que 67x67px... segue o codigo: Dim Uploader Set Uploader = New FileUploader If Uploader.Form("aco") = "inserir" Then Dim rstAvatar, rstAvatarRel, rstAdmin, strNome, lngadm, intCont, intNumCampos, FOXM_PASTA_AVATAR_VIRTUAL, FOXM_PASTA_AVATAR_FISICO Set rstAvatar = Server.CreateObject("ADODB.Recordset") Set rstAdmin = Server.CreateObject("ADODB.Recordset") Set rstAvatarRel = Server.CreateObject("ADODB.Recordset") 'SET File = Uploader.Files(1) Set Jpeg = Server.CreateObject("Persits.Jpeg") FOXM_PASTA_AVATAR_VIRTUAL = "img/avatar/" FOXM_PASTA_AVATAR_FISICO = "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar" If Uploader.Form("adm") = "" Or Not isNumeric(Uploader.Form("adm")) Then lngadm = 0 Else lngadm = Uploader.Form("adm") strNome = "imagem" & intCont If Uploader.Files.Exists(strNome) Then rstAvatar.Open "Avatar", conn, adOpenKeyset, adLockOptimistic, adCmdTable rstAvatarRel.Open "AvatarRelacionamentos", conn, adOpenKeyset, adLockOptimistic, adCmdTable rstAvatar.AddNew() rstAvatar("AdminCodigo") = lngadm rstAvatar("Descricao") = Uploader.Form("desc" & intCont) rstAvatar("Tamanho") = Uploader.Files(strNome).FileSize() rstAvatar("Tamanho") = Uploader.Files(strNome).FileSize() rstAvatar.Update() lngAvatarCodigo = rstAvatar("Codigo") rstAvatar.Close() rstAvatar.Open "SELECT * FROM Avatar WHERE Codigo = " & lngAvatarCodigo, conn, adOpenKeyset, adLockOptimistic strNomeArquivo = rstAvatar("Codigo") & Mid(Uploader.Files(strNome).FileName, InStrRev(Uploader.Files(strNome).FileName, ".")) rstAvatar("URL") = FOXM_PASTA_AVATAR_VIRTUAL & strNomeArquivo Uploader.Files(strNome).FileName = strNomeArquivo Uploader.Files(strNome).SaveToDisk FOXM_PASTA_AVATAR_FISICO rstAvatar.Update() rstAvatarRel.AddNew() rstAvatarRel("Avatar") = rstAvatar("Codigo") rstAvatarRel("AdminCodigo") = lngadm rstAvatarRel.Update() rstAvatarRel.Close() rstAvatar.Close() End If Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo largura = Jpeg.OriginalWidth altura = Jpeg.OriginalHeight if largura <> 67 And altura <> 67 then Set rstRemover = Server.CreateObject("ADODB.Recordset") rstRemover.Open "SELECT * FROM Avatar WHERE Codigo=" & lngAvatarCodigo, conn If Not rstRemover.EOF Then If rstRemover("URL") <> "" Then DelArquivo(rstRemover("URL")) End If rstRemover.Close() conn.Execute("DELETE FROM Avatar WHERE Codigo=" & lngAvatarCodigo & ";") Set rstRemover = Nothing response.write("<script>alert('A imagem que você inseriu é maior que 67x67 pixels!'); { window.close(); }</SCRIPT>") else Jpeg.Save "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo end if Jpeg.close rstAdmin.Open "SELECT Avatar FROM Administradores WHERE Codigo = " & lngadm, conn, adOpenKeyset, adLockOptimistic rstAdmin("Avatar") = lngAvatarCodigo rstAdmin.Update() rstAdmin.Close() Set rstAvatar = Nothing Set rstAvatarRel = Nothing Set rstAdmin = Nothing Response.End End If alguém sabe o porque disso? Desde já Agradeço.

está sim.. pois eu uso esse DbAbre.asp em outras páginas e funciona perfeitamente.. so nesta página que não esta funcionando não sei porque... :( vlw...

está aí xD <% ' ADO command types adCmdText = 1 adCmdTable = 2 adCmdStoredProc = 4 adCmdUnknown = 8 ' ADO cursor types adOpenForwardOnly = 0 '# (Default) adOpenKeyset = 1 adOpenDynamic = 2 adOpenStatic = 3 ' ADO lock types adLockReadOnly = 1 adLockPessimistic = 2 adLockOptimistic = 3 adLockBatchOptimistic = 4 ' ADO cursor location types adUseServer = 2 adUseClient = 3 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\Admin3\dados\dados.mdb;" outra coisa pesquisei aqui no forum ai vi um tópico dizendo pra usar call abre_conexao so que eu não sei como usar.. desde já agradeço.