Mateustg
-
Total de itens
382 -
Registro em
-
Última visita
Tudo que Mateustg postou
-
Valeu cara, vou dar uma olhada e ver o que posso fazer, qualquer coisa volto a postar aqui
-
Caro Reginaldo, Então devo fazer o que? Onde há strEncyptedPassword = strPassword & strSalt e devo alterar para uma senha?
-
Olá a todos, Bem, eu tenho um bate papo, mas nele não há a função para ignor um determinado ou vários usuários, portanto está querendo saber se alguém sabe como faço para acrescentar esta função em meu bate papo, se alguém tiver pronto ou pelo menos me ajudar a fazer, por favor poste aqui. Valeu!
-
sim a verificação está correta e tem acesso sim
-
Ai galera, estou precisando da ajuda de vocês, será que alguém sabe como fazer isto???
-
Tenho um site de cobertura de festas e baladas. Estou a procura de um site de grande porte e público para fazer uma parceria comigo. Site: VIP Seven Interessados entrem em contato por: vipseven@vipseven.com.br
-
Bem, tem como você postar aqui o código da sua página que não quer abrir? Será que você não está esqueçendo de enviar nenhum arquivo??? Posta o código pra gente poder saber o que está havendo.
-
Ok, valeu pela ajuda! Fico aguardando...
-
Olá!!! Não sei se aqui é o local correto de postar isto, mas imagino que seja.... Bem, eu estou querendo colocar uma fonte diferente em minha página, sei que se eu colocar uma fonte, esta para aparecer deve estar instalada nas máquinas de quem entrar no site para poder visualizá-la corretamente. Acontece que fiquei sabendo que se eu enviar a minha fonte para o meu servidor e colocar um código em minhas páginas, será possivel que todos os usuários da minha página vejam a letra. Portanto eu gostaria de saber se alguém aqui sabe como fazer isto, pois quero colocar uma letra diferente em todo o meu site, mas sem que seja imagem, que seja texto mesmo. Alguém sabe uma maneira de se fazer isto???
-
<body bgcolor="#FFFFFF" text="#000000"> <table width="518" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td align="center"> <h1>Guestbook Admin Login</h1> </td> </tr> </table> <br> <table width="347" border="0" cellspacing="0" cellpadding="1" align="center"> <tr> <td align="center">Enter your username and password (case sensitive)</td> </tr> </table> <br> <form name="Login" method="post" action="check_user.asp"> <table width="273" border="0" cellspacing="0" cellpadding="1" bgcolor="#000000" align="center"> <tr> <td> <table width="273" border="0" align="center" cellspacing="0" cellpadding="0" bgcolor="#CCCCCC"> <tr> <td align="right" height="46" valign="bottom" width="94">User name: </td> <td height="46" valign="bottom" width="172"> <input type="text" name="txtUserName"> </td> </tr> <tr> <td align="right" width="94">Password: </td> <td width="172"> <input type="password" name="txtUserPass"> </td> </tr> <tr> <td align="right" height="44" width="94"> </td> <td height="44" width="172"> <input type="submit" name="Submit" value="Enter"> <input type="reset" name="Submit2" value="Reset"> </td> </tr> </table> </td> </tr> </table> </form> <br> <center> Session Cookies must be enabled on your web browser<br> <br> </center> </body> </html> Pág. check_user.asp <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <% Option Explicit %> <!--#include file="common.asp" --> <!--#include file="functions/functions_hash1way.asp" --> <% Dim strUserName 'Holds the user name Dim strUserPassword 'Holds the user password Dim strPassword 'Holds the users password Dim strEncyptedPassword 'Holds the encrypted password 'Initalise the strUserName variable strUserName = Request.Form("txtUserName") strPassword = Request.Form("txtUserPass") 'Check form input strUserName = Replace(strUserName, "'", "''", 1, -1, 1) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Configuration.Password, " & strDbTable & "Configuration.Username " strSQL = strSQL & "FROM " & strDbTable & "Configuration " strSQL = strSQL & "WHERE " & strDbTable & "Configuration.Username ='" & strUserName & "'" 'Query the database rsCommon.Open strSQL, adoCon 'If the recordset finds a record for the username entered then read in the password for the user If NOT rsCommon.EOF Then 'Encrpt password 'Concatenate salt value to the password strEncyptedPassword = strPassword & strSalt 'Re-Genreate encypted password with new salt value strEncyptedPassword = HashEncode(strEncyptedPassword) 'Read in the password for the user from the database If strEncyptedPassword = rsCommon("Password") Then 'If the password is correct then set the session variable to True Session("blnIsUserGood") = True 'Reset Server Variables rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'Redirect to the admin menu page Response.Redirect"admin_menu.asp" End If End If 'Reset Server Variables rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'If the script is still running then the user must not be authorised Session("blnIsUserGood") = False 'Redirect to the unautorised user page Response.Redirect"unauthorised_user_page.htm" %> Por favor, ultilize CODE para indentifica sua pagina!!
-
Esqueci de falar que onde tem figura.gif, figura1.gif e figura2.gif, você deve colocar uma figura que você quiser, sendo que a figura.gif deve ser o fundo cinza claro, esse fundo você copia do proprio site do SB
-
Faz assim: <!-- inicio pop --> <div id="layer_promocao" style="background-image:url('figura.gif'); width:274px; height:331px; position:absolute; left:248px; top:129px; z-index:1; visibility:visible;"> <table cellpadding="0" cellspacing="0" border="0" width="201" align="center"> <tr> <td height="30"></td> </tr> <tr bgcolor="#FFCC00"> <td><img src="figura1.gif" width="201" height="81" alt="" border="0"></td> </tr> <tr bgcolor="#FFCC00"> <td background="figura2.gif" width="201" height="82" valign="middle"> <table cellpadding="4" cellspacing="2" align="center" height="62"> <tr> <td align="center"> <br><b><font face="Verdana" style="font-size:11px" color="#FF6600" size="2"><br>Texto Aqui....<font></b></p> </td> </tr> </table> </td> </tr> <tr> <td height="40" align="center"><input type="submit" value="Fechar" onclick="document.all['layer_promocao'].style.visibility='hidden'" class="botao" class="botao" style="color:white; background-color:red;"></td> </tr> </table> </div> <!-- final pop -->
-
Olá, galera que tanto me ajuda. Estou aqui novamente para pedir um ajuda com o meu mural de recados. Eu já tenho ele todo pronto e funcionando, mas nele há uma área de administração cuja a qual eu não consigo entrar, já coloquei todos os dados corretos, mas na hora de entrar ele sempre aparece os seguintes dizeres: Unauthorised Access Sorry, you are not authorised to view the material in this part of the web site. If you try again make sure you have session cookies enabled on your machine. Alguém sabe como posso resolver isto???? Grato pela ajuda!
-
Para resposta a sua 1ª pergunta, use isto: <marquee id="scroller" direction="up" width="150" style="background-color:#f9f9f9;font-size:8pt;font-family:verdana;color:#1c1c1c;"> seu texto aqui<br> seu texto aqui<br> seu texto aqui<br> </marquee> O direction="up" é o que indica que ele vai de baixo para cima
-
Eu tenho um pronto, posso te passar, mas primeiro vou ter que achá-lo aqui e assim que o tiver eu te mando.
-
Acho que o que v^c procura é isto aqui: <!------COMEÇA AQUI----------> <BODY> <script LANGUAGE="JavaScript1.2"> <!-- var brOK = false, mie = false; if (document.layers || document.all) brOK = true; if (document.all) mie = true; var ex = 0, ey = 0; var ae, le, re, x0, y0, tid, realx, realy; function navMove(e) { ex = e.pageX; ey = e.pageY; moveeye() return routeEvent(e); } function mieMove() { ex = document.body.scrollLeft + event.x; ey = document.body.scrollTop + event.y; moveeye(); } function moveeye() { dy = ey - y0 - 20; dx1 = ex - x0 - 20; dx2 = ex - x0 - 60; r = Math.sqrt(dx1 * dx1 + dy * dy); if (r < 20) r = 20; dx1 = dx1 * 10 / r + x0 + 10; dy1 = dy * 10 / r + y0 + 10; r = Math.sqrt(dx2 * dx2 + dy * dy); if (r < 20) r = 20; dx2 = dx2 * 10 / r + x0 + 50; ae.left = x0; ae.top = y0; le.left = dx1; le.top = dy1; re.left = dx2; re.top = dy1; } function setHandlers() { if (!mie) { y0 = document.eyeballs.top; x0 = document.eyeballs.left; ae = document.eyeballs; le = document.lefteye; re = document.righteye; window.captureEvents(Event.MOUSEMOVE); window.onMouseMove = navMove; } else { y0 = document.all.eyeballs.style.pixelTop; x0 = document.all.eyeballs.style.pixelLeft; ae = document.all.eyeballs.style; le = document.all.lefteye.style; re = document.all.righteye.style; window.document.onmousemove = mieMove; } realx = x0 + 0.1; realy = y0 + 0.1; moveall(); } function moveall() { rx = realx + 40; ry = realy + 40; rx += (ex - rx) * 0.1; ry += (ey - ry) * 0.1; realx = rx - 40; realy = ry - 40; x0 = Math.round(realx); y0 = Math.round(realy); moveeye(); tid = setTimeout('moveall()', 100); } function placeeyes(x, y) { if (brOK) { ex = x + 40; ey = y + 40; //as figura gifs estão logo abaixo s = '<DIV ID ="dummy" STYLE="position:absolute; ' + 'top:'+y+'; left:'+x+'; width:10; height:10;"> </DIV>'; s += '<DIV ID="eyeballs" STYLE="position:absolute; ' + 'top:'+y+'; left:'+x+'; width:80; height:40;"><IMG SRC=' + '"whites.gif" border=0></DIV>'; s += '<DIV ID="lefteye" STYLE="position:absolute; ' + 'top:'+(y+10)+'; left:'+(x+10)+'; width:20; height:20;">' + '<IMG SRC="pupil.gif" border=0></DIV>'; s += '<DIV ID="righteye" STYLE="position:absolute; ' + 'top:'+(y+10)+'; left:'+(x+50)+'; width:20; height:20;">' + '<IMG SRC="pupil.gif" border=0></DIV>'; document.writeln(s); } } function clearEyes() { if (tid) clearTimeout(tid); } placeeyes(200, 100); window.onload = setHandlers; window.onunload = clearEyes; // --> </script> <!------TERMINA AQUI----------> Caso queira ver um exemplo, acesse este link
-
sim, há registros sim
-
Bem o cód. todo é esse, mas conforme me falaram creio que talvez o problema esteje em outra parte, caso conferir esta ipótese, me corrijam por favor... <% 'Aqui conectamos com a Base de Dados Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DBQ=" & Server.MapPath("./postaisdigitais.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" ' Esta é a variável usada como identificador ' do postal digital Dim identifier ' goby é uma variável boolean para ' ajuda na validação Dim goby goby = 1 'lets start it with True %> <html><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <body bgcolor=white> <font face=3D"Arial"> <small><strong> <% ' Validamos então o nome; tem de ter um tamanho ' mínimo de 2 caracteres if len(session("nomepara")) < 2 then ' se existir problemas marcamos logo a nossa variável goby = 0 end if if len(session("nomede")) < 2 then goby = 0 end if ' validamos o email, If Len(session("emailde")) <= 5 Then goby = 0 Else If InStr(1, session("emailde"), "@", 1) < 2 Then goby = 0 Else If InStr(1,session("emailde"), ".", 1) < 4 Then goby = 0 End If End If End If If Len(session("emailpara")) <= 5 Then goby = 0 Else If InStr(1, session("emailpara"), "@", 1) < 2 Then goby = 0 Else If InStr(1,session("emailpara"), ".", 1) < 4 Then goby = 0 End If End If End If ' Aqui verificamos se o texto não tem mais de 500 caracteres. If len(session("message")) >= 500 Then goby = 0 End If ' Vamos agora verificar a nossa variável ' se estiver a zeros avisamos que hà erros if goby = 0 then %> <br><br><br><br><br> <center>ERRO....</center><br> <% end if ' Se não hà erros introduzimos a informação para a Base de Dados ' e enviamos a informação por email para o destinatário If goby = 1 then 'fazemos o update à Base de Dados SQLStmt = "INSERT INTO postal (" & _ "passw_postal, postal_postal, nomepara_postal, nomede_postal, " & _ "emailde_postal, emailpara_postal, mensagem_postal, data_postal) " & _ "VALUES (" ' vamos criar um número aleatório para que o postal fique protegido, ' usamos o randomize/rnd para criar um número aleatório randomize() passw = Int((9999-1)*Rnd + 1) SQLStmt = SQLStmt & passw & ",'" & session("postal") & _ "','" & session("nomepara") & "','" & _ session("nomede") & "','" & _ session("emailde") & "','" & _ session("emailpara") & "','" & _ session("message") & "',Now)" ' escrevemos a informação na BD definitivamente rs.Open SQLStmt, Conn, 3, 3 SQLStmt = "Select max(id_postal) AS maximo from postal" rs.Open SQLStmt, Conn, 1, 2 ident = rs("maximo") ' Vamos aqui usar o componente ASPMail ' pode usar um outro qualquer, este é o que é usado ' no servidor ond estamos Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.pt4free.net" Mailer.FromName = "O Site" Mailer.FromAddress = "mateustg@bol.com.br" Mailer.AddRecipient " ", session("emailpara") Mailer.Subject = "Envio de Postal Digital para si de " & session("nomede") & " ..." ' vamos buscar a data que está no servidor d = now() ' vamos acrescentar-lhe 30 dias, para por no aviso de limite ' de expiração do postal digital d = DateAdd("d",30,d) enviar = "Deixe-me informá-lo de que " & session("nomede") & _ Chr(13) & Chr(10) & _ " enviou-lhe um postal digital. Para o ver " & _ "siga o link :" & _ Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "http://www.pt4free.net/pd/visualizar.asp?uq=defora&" & _ "ident=" & ident & _ "&psw=" & passw & " " & Chr(13) & Chr(10) & _ " o postal vai estar disponível no nosso site até ao dia " & _ formatDateTime(d,2) & _ Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ Chr(13) & Chr(10) & _ " Obrigado," Mailer.BodyText = enviar Mailer.SendMail If Err <> 0 Then Response.write "ERRO..." Response.Write "<br><br>" & "Houve um Erro : " & Err.description & "<br><br>" Response.Write "<center><p>ERRO DO LADO DO SERVIDOR, " & "contacte o nosso webmaster.</p></center>" goby = 0 Else Response.Write "<br><br><br><center><p>POSTAL DIGITAL ENVIADO" & " SEM PROBLEMAS ...<br>" End if Set Mailer = nothing End If ' penso que reparou que uso o JavaScript history.back ' com este não perdemos a informação jà criada anteriormente %> <center> <a href="javascript:history.go('-2')"> <Refazer> </a> </center> </strong></small></font> </body> </html>
-
Sim dá suporte. O erro é: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] No current record. /sistemasweb/pd/pd/enviar.asp, line 92
-
Olá Galera, mais uma vez estou aqui pedindo um Help!!! Desta vez é o seguinte: Tenho um código de envio de cartões, ele funciona mostrando os cartões, mostrando a visualização antes de mandá-lo, mas na hora de enviar ele não está aceitando. Bem, não estou sabendo como configurá-lo, conferi e o que vi de diferente foram estas linhas de envio, será que pode ser isto: ' escrevemos a informação na BD definitivamente rs.Open SQLStmt, Conn, 3, 3 SQLStmt = "Select max(id_postal) AS maximo from postal" rs.Open SQLStmt, Conn, 1, 2 ident = rs("maximo") ' Vamos aqui usar o componente ASPMail ' pode usar um outro qualquer, este é o que é usado ' no servidor ond estamos Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.pt4free.net" Mailer.FromName = "O Site" Mailer.FromAddress = "mateustg@bol.com.br" Mailer.AddRecipient " ", session("emailpara") Mailer.Subject = "Envio de Postal Digital para si de " & session("nomede") & " ..." O sistema de cartões está em: http://www.websamba.com/sistemasweb/pd/pd/construir.asp
-
Borda Da Tabela Bem Fininha
pergunta respondeu ao Eughenio de Mateustg em Ajax, JavaScript, XML, DOM
você deverá criar uma imagem de uma linha bem fina, ai aplicá-la dentro de tabelas para que forme sua borda. -
Bem você pode copiar toda sua tabela do Excel e colar no Word, ai você manda salvar e cola salvar como tipo: HTML Esta é uma solução, mas não garanto se ficará bom, mas tenta que dá pra fazer.
-
Bem Felipe, primeiramente ajude a galera aqui do fórum a crescer, faça o seu cadastro aqui. Em segundo lugar a sua resposta é esta aqui, você deve usar assim: <OL TYPE=I> <LI>Documentos básicos <LI>Documentos avançados <OL TYPE=a> <LI >formulários <OL TYPE=i> <LI>CGI </OL> <LI>contadores <LI>relógios </OL> <LI>Detalhes sobre imagens </OL> Onde TYPE=I são os números em romanos e TYPE=a são as letras este é o modo correto de se fazer.
-
O único geito possivel que eu conheço é esse aqui: <center><marquee behavior=alternate scrollamount=5 width=500 bgcolor=black><font size=4 color=white>Script Fácil um</marquee></font></center> <!------------------------DESCRIÇÃO DE TAGS-------------------------------> <!--scrollamount=velocidade do letreiro / widht=largura / bgcolor=cor de fundo / font size=tamanho da font / font color=cor da fonte-->
-
Galera Eu To Querendo Ajuda!
pergunta respondeu ao bolomaster de Mateustg em Ajax, JavaScript, XML, DOM
você deve fazer assim: <script language="JavaScript1.2"> <!-- function fullScreen(theURL) { window.open(theURL, '', 'fullscreen=yes, scrollbars=auto'); } --> </script> <a href="javascript:void(0);" onClick="fullScreen('http://www.seuendereco.xxx/index.html');">Full Window</a>