ursolouco
-
Total de itens
2.314 -
Registro em
-
Última visita
Tudo que ursolouco postou
-
Brother!!! Veja: Este é seu banco de dados ? Esta dentro do mesmo diretorio dos arquivos ASP ? Se for, exeperimente esta string de conexão: cBanco = Server.MapPath("ecom.mdb") cn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& cBanco &";"
-
Salve Luciano!!! Para você adicionar o VS.Net 2003 na sua maquina, tem que haver os pre-requisitos instalados. Veja a versão do Windows e no pacote do 'VS' há um CD de pre-requesites que você pode instalar o que esta faltando e iniciar a instalação do produto. Abraços!!
-
Qué isso Xuxu, todu mundo aqui já foi iniciante e ainda é em alguma coisa. Deixa a vergonha de lado e se solte.... pode perguntar que a galera vai lhe ajudar. Bjurso!!1
-
Uma pequena falta de atenção... recordset.CursorLocation = AdUseClient Abraços!!
-
Brother!!! Sei lá, mas Eu, particularmente, depois que aprende usar estas paradas, dificilmente escrevo uma linha SQL em minha pagina ASP. Faço tudo em Stored Procedures no banco de dados e com o Command mando os parametros para as consultas serem executadas e retornar os dados mais rapido e seguro na tela Não há uma explicação tecnica para o método command, mas posso lhe dizer que o mesmo server para executar funções ou rotinas copiladas de outro objeto. Para não fica dificil, só vejo a ultilização do Command para execução de Stored Procedures em banco de dados, que uma vez copilada no servidor otimiza muito seu acesso e retorno de dados Como tudo que se aprende na vida é praticando, vamos então a um pequeno web-tutorial para você começar a trabalhar com Adodb.Command. Abraços !!!!
-
Cor Sim ou Cornão ? <% Cor1 = "#000099" Cor2 = "#FFCC00" Controle = 0 If Controle = 0 Then Cor = Cor1 Controle = 1 Else Cor = Cor2 Controle = 0 End if <td bgcolor=<%Response.Write(Cor)%>></td> %> Veja se pode lhe ajudar...
-
<html> <head> <title></title> </head> <body> <table border="0" width="100%"> <% refMenu=Trim(Request.QueryString("ListarCD")) refText=Trim(Request.QueryString("ReferenciaCD")) Set DB=Server.CreateObject("ADODB.Connection") Set TB=Server.CreateObject("ADODB.Recordset") cBanco = Server.MapPath("db/controle.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";" DB.Open(strConn) 'Abrindo o Banco If refMenu="Cantor" Then sqlCantor="SELECT TBTtitulos.Cantor FROM TBTitulos WHERE Cantor LIKE '%"&refText&"'" TB = DB.Execute(sqlCantor) End If if refMenu="Ano" then sqlAno="SELECT TBTtitulos.Ano FROM TBTitulos WHERE (Ano LIKE '%"&refText&"')" TB = DB.Execute(sqlAno) end if if refMenu="Genero" then sqlGenero="SELECT TBTtitulos.Genero FROM TBTitulos WHERE (Genero LIKE '%"&refText&"')" TB=DB.Execute(sqlGenero) end if While Not TB.EOF %> <tr> <td width="100%"> <table border="0" width="100%"> <tr> <td width="100%"><%=TB("Cantor")%></td> </tr> <tr> <td width="100%"><%=TB("Titulo")%></td> </tr> <tr> <td width="100%"><%=TB("Ano")%></td> </tr> <tr> <td width="100%"><%=TB("Produtora")%></td> </tr> <tr> <td width="100%"><%=TB("Genero")%></td> </tr> <tr> <td width="100%"><%=TB("QTDMusicas")%></td> </tr> <tr> <td width="100%"> <hr> </td> </tr> <% TB.MoveNext Wend TB.Close Set TB = Nothing DB.Close Set DB=Nothing %> </table> </body> </html> Experimenta aí...
-
Ai você inclui o que você quiser... []'s Victor Ah então firmeza.... Nunca me liguei naquelas paradas ali e suas devidas funções. Valeu Victor , fechem este tópico, por favor... Abraços à todos!!
-
Dúvida... mas estes artigos são enviado pra onde e pra quem ? porque não é atualizado ou re-avalido ?
-
Salve Dark!!! Brother, pode ser enviado via e-mail mesmo para o 'Resopi', ai ele colocava no portal... Totalmente ao seu lado cara!! Tem muita coisa legal que foi colocada aqui, por vocês..... Há muita gente com conhecimento e disposta a ajudar..... muitas vezes, ele pode fazer algo que você fazia de forma diferente e melhorar o desempenho do seu sistema. A principio, acho que um cara, legal para se escrever e tem bastante coisa pra mostar é o 'Victor', embora ele já tome conta da seção de <HTML> acho que ele pode arrumar um tempinho pra mandar alguma coisa pra lá....
-
Aspers!!!! Não sei se aqui é o local certo, mas como frequento mais aqui, quero saber sobre a opinião de todos. A pagina Asp-ScriptBrasil, há um bom tempo, sempre que vou dá uma olhada por lá, esta a mesma coisa, sem atualização. Como aqui, há uma grande quantidade de programadores experientes e disposto a ajudar, gostaria de saber.... O que vocês acham de pegar algumas coisas interessantes ou que merecem destaque na seção e leva-las para a pagina ? Acredito que o autor, como um membro desta comunidade poderia, se não for pedir muito, poderia escrever um artigo para a pagina da scriptbrasil, assim deixaria a pagina com conteudo muito interessante, que alem de ajudar muitos vai servir de referencia. O que acham ? Abraços!!! [urso] OBS: em relação a burocracia, podemos falar com o 'Resopi' que é o diretor da seção e ver sobre as aprovações ...
-
Vale lembra tambem que Asp.Net é uma arquitetura de exibição pois a linguagem de programação fica totalmente voltada para Vb.Net, C#, C++.Net . Abraços!!!
-
Tá na mão chefe.. <HTML> <HEAD> <TITLE>Distribuindo os registros em 3 Colunas - v1.0 - ursolouco@hotmail.com</TITLE> </HEAD> <BODY> <% strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ursolouco;Initial Catalog=Northwind;Data Source=." Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) Set Rs = Server.CreateObject("adodb.recordset") Rs.CursorLocation = 3 meuSQL = "SELECT * FROM Products" Set Rs = Conn.Execute(meuSQL) vetor = Rs.GetRows() Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing Total = UBound(Vetor, 2) Contador = 0 Response.Write("<table>") While Contador < Total Response.Write("<tr>") For C = 0 To 2 If Contador <= Total Then Response.Write("<td><p><font face='verdana' size='1' color='#000099'>" & Contador & "-> " & Vetor(1, Contador) & "</font></p></td>") End if Contador = Contador + 1 Next Response.Write("</tr>") Wend Response.Write("</table>") %> </BODY> </HTML> Da lirica bereta à lirica Block... manjas ?
-
Brother!! è um procedimento ou consulta armazenada dentro do seu banco de dados com comando t-sql para automatizar suas tarefas... abraços!!
-
Ae, num dá pra mim participar desse agora, mas vou dá uma dica, pra deixar a coisa mais quente, mais incorporada... Com uma stored procedure, dentro do seu banco de dados, dá pra se fazer isso ?
-
Sim, você vai aprender no seu curso o recurso SSI (Server Side Includes), mas sua pagina e seu servidor tem que dar supporte a conteudo dinamico
-
Agora, o arquivo com os Links do site!! Links.asp <!--#include file="processa.asp" --> <table width="780" height="20" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="200" height="20" class="grad"> <p align="center"><a href="<% Response.Write(vDir & "?secao=Home")%>" target="_parent">Home</a></p></td> <td width="200" height="20" class="grad"> <p align="center"><a href="<% Response.Write(vDir & "?secao=Asp")%>" target="_parent">Asp</a></p></td> <td width="200" height="20" class="grad"> <p align="center"><a href="<% Response.Write(vDir & "?secao=Php")%>" target="_parent">Php</a></p></td> <td width="200" height="20" class="grad"> <p align="center"><a href="<% Response.Write(vDir & "?secao=Xml")%>" target="_parent">Xml</a></p></td></tr> </table> Agora, o tão esperado.... Processa.asp <% 'Endereço: http://www20.brinkster.com/ursolouco/URL/processa.asp Function vDir() host = Request.ServerVariables("Server_Name") script = Request.ServerVariables("Script_name") nstring = host & script vString = Split(nString,"/") total = UBound(vString) For I = 0 To (Total-1) dir = dir + vString(i) & "/" Next vDir= "http://" & dir End Function %> Aí ficou facinho né ? Espera aí, faltou algumas coisinhas.. eURL.css p { font-family: Verdana; font-size: 10px; } .grad { background-attachment: fixed; background-image: url(_grad.gif); background-repeat: repeat-x; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-style: none; border-right-style: none; border-bottom-style: solid; border-left-style: none; border-top-color: #CCCCCC; border-right-color: #CCCCCC; border-bottom-color: #CCCCCC; border-left-color: #CCCCCC; } a { text-decoration: none; } a:hover { text-decoration: underline; } O arquivo Superior.asp, é uma pagina comun, para não consumir muito o Forum, não vou posta-lo aqui, podem testar o aquivo e vejam no que vai dar. Abraços!!! [urso] Download dos arquivos... Visualize : http://65.182.97.46/ursolouco/URL/
-
Ok, o 2°, q acho mais dificil, você pode resolver lendo este tutorial: Usar arrays para armazenar dados num bd
-
Iuhu 2 !! Editando o POST e ainda mais, colocando algumas previas do que fiz... bom, vamos lá: veja este código: <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="eURL.css" rel="stylesheet" type="text/css"> </head> <body link="#663333" vlink="#663333" leftmargin="0" topmargin="0"> <table width="780" height="200" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="795" height="200" valign="top"><table width="780" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="780" height="15"> <!--#include file="links.asp" --> </td> </tr> <tr> <td height="185" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="780" height="20" valign="middle"> <p><% Response.Write( Request.ServerVariables("SCRIPT_NAME"))%></p></td> </tr> <tr> <td height="165"> </td> </tr> </table></td> </tr> </table> </td> </tr> </table> </body> </html> É uma pagina simples, que você deve salvar em alguns arquivos com o seguinte nome: Asp.asp, Home.asp, Php.asp, Cgi.asp Seguindo, vamos bolar a pagina que vai manter os frameset: index.asp <!--#include file="processa.asp" --> <html> <head> <title>URL</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <% secao = Request.ServerVariables("QUERY_STRING") arquivo = "Home.asp" pIgual = Instr(1, Secao, "=", 1) ' Response.Write(pIgual) if pIgual > 0 Then arquivo = Mid(secao, pIgual+1, Len(secao)) arquivo = arquivo & ".asp" arquivo = vDir & arquivo Call Tela(arquivo) Else Call Tela(arquivo) End If Function Tela(arquivo) %> <frameset rows="*,100%" frameborder="no" framespacing="0" id="Molduras" > <frame src="superior.asp" name="Superior" scrolling="no" id="Superior" noresize> <frame src="<% Response.Write(arquivo)%>" name="Home" scrolling="auto" noresize id="Home"> </frameset> <% End Function %> <noframes> <body> </body> </noframes> </html> Continua no proximo POST!!!
-
Seria pedir muito para você escrever ou bolar algo para colocar pra gente se basear ? (se basear no script.... é claro!!! sem apologias no forum....) Abraços!!! [urso]
-
E dá 'Ok'
-
Este o cara aprende mesmo... Utilizando Recursos de Paginação - O QUE É PAGINAÇÃO? Por: Fernando D'Angelo
