mariofdf
-
Total de itens
394 -
Registro em
-
Última visita
Tudo que mariofdf postou
-
Só por curiosidade usando array. <% Set Connexao = Server.CreateObject("ADODB.Connection") Connexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados.mdb") SQL = "SELECT * FROM tabela order by nome" Set RS = Connexao.Execute(SQL) Dim vetor vetor = array( ) Do While not RS.EOF ReDim preserve vetor (UBound( vetor )+1) vetor ( Ubound( vetor ) ) = rs("nome")&"," RS.MoveNext loop for i = LBound( vetor ) to UBound ( vetor ) response.write vetor( i ) next %>
-
<% Set Connexao = Server.CreateObject("ADODB.Connection") Connexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bancodedados.mdb") SQL = "SELECT * FROM tabela order by campo" Set RS = Connexao.Execute(SQL) variavel = "" dim variavel Do While not RS.EOF variavel = variavel &","&rs("campo") RS.MoveNext loop response.write variavel %>
-
se for campo texto da pra somar... tipo. conexão rs not ...... variavel = variavel "," + rs("") mov.... loop Se não entendeu bolufas nenhuma, me fale que te passo um exemplo, eu já fiz isso uma vez, mas tem outras formas também...
-
Eu pretendo fazer, mas so poderei entregar semana que vem...
-
é de gratis, desde que tenha um bom motivo para requisitar o mesmo.
-
caros amigos, é só chegar no correio mais perto de sua casa e pedir a lista atualizada de ceps e ruas e eles te fornecerão um cd e um link para atualizar o mesmo, logico que você tera que explicar para que o quer, dai é so dizer que é programador e esta montando uma loja para uma empresa e coisa e tal... entenderam, á e aquele banco do download tava ultrapassado, era de 2003...
-
Desejo boa sorte e bom trabalho para o novo moderador da sessão... Acho que foi uma grande decisão colocar 3 moderadores aqui no asp...
-
eu te cobro uma bagatela de 50 mil mais o dinheiro do busão... OBS. pode ser passe....
-
tenta este aqui... http://www.phidji.com/
-
cara é o seguinte, servidor gratuito dificilmente da suporte a e-mail e guando dá normalmente é para cdonts, então acredito que este seje o problema, seu codigo apesar de meiu estabanado parece estar funcionando... vou ver se acho algum gratuito que da suporte a e-mail, se alguém suber fala ai ou veje se o websamba da suporte a algum componente, ....
-
Olha quando você instala o iis ele já roda asp então o desafio é fazer ele rodar php, tem varias formas de se fazer isso, tem uma explicação boa no link que vou te passar é so seguir os passos.... http://www.imasters.com.br/artigo.php?cn=1317&cc=44
-
agora sim, cadastrado da mais vontade de ajudar, que server... se possivel mande a url da pagina e do server...
-
O meu iis roda asp e php, e é 100% nunca deu problemas...
-
cara você esta testando isso aonde, em sua maquina ou em um server? a, e outra coisa se cadastra ai....
-
tai colega... <html> <head> <title>Calculadora</title> </head> <body> <FORM METHOD="POST" ENCTYPE="application/x-www-form-urlencoded" name="calc"> <CENTER> <P><B><FONT SIZE="5" COLOR="#0000FF" FACE="Verdana">Calculadora</FONT></B></P> <P> <HR ALIGN="CENTER" WIDTH="41%"> </P> </CENTER> <CENTER> <P><script language="JavaScript"> <!-- function compute(obj) {obj.expr.value = eval(obj.expr.value)} var one = '1' var two = '2' var three = '3' var four = '4' var five = '5' var six = '6' var seven = '7' var eight = '8' var nine = '9' var zero = '0' var plus = '+' var minus = '-' var multiply = '*' var divide = '/' var decimal = '.' function enter(obj, string) {obj.expr.value += string} function clear(obj) {obj.expr.value = ''} // --></SCRIPT> <TABLE BORDER="2"> <td colspan=4><input type="text" name="expr" size=25 action="compute(this.form)"> <TR> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 7 " onClick="enter(this.form, seven)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 8 " onClick="enter(this.form, eight)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 9 " onClick="enter(this.form, nine)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" / " onClick="enter(this.form, divide)"> </TD> </TR> <TR> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 4 " onClick="enter(this.form, four)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 5 " onClick="enter(this.form, five)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 6 " onClick="enter(this.form, six)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" * " onClick="enter(this.form, multiply)"> </TD> </TR> <TR> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 1 " onClick="enter(this.form, one)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 2 " onClick="enter(this.form, two)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" 3 " onClick="enter(this.form, three)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" - " onClick="enter(this.form, minus)"> </TD> </TR> <TR> <TD COLSPAN="2"><input type="button" value=" 0 " onClick="enter(this.form, zero)"></TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" . " onClick="enter(this.form, decimal)"> </TD> <TD ALIGN="CENTER"> <P ALIGN="CENTER"><input type="button" value=" + " onClick="enter(this.form, plus)"> </TD> </TR> <TR> <TD ALIGN="CENTER" COLSPAN="2"> <P ALIGN="CENTER"><input type="button" value=" = " onClick="compute(this.form)"> </TD> <TD ALIGN="CENTER" COLSPAN="2"> <CENTER> <P><INPUT TYPE="RESET" VALUE="AC"> </CENTER> </TD> </TR> </TABLE> </P> </CENTER> <SPAN STYLE="Position : Relative; Left : 0px; Top : 0px; Width : 150px; Height : 140px"> <P ALIGN="CENTER"> <P> <CENTER> <P><BR> <BR> </CENTER> <P> </P> </SPAN> <P> <HR ALIGN="CENTER"> </FORM> </body> </html> é so adaptar... codigo by Jissa
-
Tem, isso você pode colocar em qualquer lugar...
-
Tem um post pendurado ali de script, la eu vi uma vez uma calculadora em java script, você pode pegar o cogigo e adaptar...
-
Tem sim... eu pensei em algo assim: <script language="JavaScript1.2"> var delay=5000 //tempo em milesegundos var fcontent=new Array() begintag='<center>' fcontent[0]="<a href=''><img src=banner.jpg border=0>Primeiro banner</a>" fcontent[1]="<a href=''><endereço do banner></a>" fcontent[2]="<a href=''><endereço do banner></a>" fcontent[3]="<a href=''><endereço do banner></a>" fcontent[4]="<a href=''><endereço do banner></a>" closetag='</center>' var fwidth=230 //set scroller width var fheight=20 //set scroller height var ie4=document.all&&!document.getElementById var ns4=document.layers var DOM2=document.getElementById var faderdelay=0 var index=0 if (DOM2) faderdelay=1500 function changecontent(){ if (index>=fcontent.length) index=0 if (DOM2){ document.getElementById("fscroller").style.color="rgb(113,103,103)" document.getElementById("fscroller").innerHTML=begintag+fcontent[index]+closetag colorfade() } else if (ie4) document.all.fscroller.innerHTML=begintag+fcontent[index]+closetag else if (ns4){ document.fscrollerns.document.fscrollerns_sub.document.write(begintag+fcontent[index]+closetag) document.fscrollerns.document.fscrollerns_sub.document.close() } index++ setTimeout("changecontent()",delay+faderdelay) } frame=20; rhex=113 ghex=103 bhex=103 function colorfade() { if(frame>0) { rhex+=12.75; ghex+=12.75; bhex+=12.75; document.getElementById("fscroller").style.color="rgb("+rhex+","+ghex+","+bhex+")"; // Set color value. frame--; setTimeout("colorfade()",20); } else{ document.getElementById("fscroller").style.color="rgb(255,255,255)"; frame=20; rhex=113 ghex=103 bhex=103 } } if (ie4||DOM2) document.write('<div id="fscroller" style="border:0px solid black;width:'+fwidth+';height:'+fheight+';padding:0px"></div>') window.onload=changecontent </script>
-
Ai galera, Esta bem bacana este desafio apesar de na minha opinião ser o mais facil dos três que tiverão, pena que acho que não terei tempo para resolvelo , visto estar com muito serviço, mas se tiver um tempinho vou bolar algo, t+ e boa sorte...
-
cara é o seguinte, eu coloquei 0 na variavel user isto quer dizer que seu bd no campo user não aceita valor vazio, então va no seu bd e mude isso,
-
Testa assim <body onunload="window.location='deleta_usuarioonline.asp'"> <% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dados") Conexao.Open ConStr agora=Time() ip=Request.ServerVariables("REMOTE_ADDR") If Session("login") = "" Then user="0" Else user=Session("login") End If Sql="INSERT INTO online VALUES ('"&agora&"','"&ip&"','"&user&"')" 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 %> </body>
-
Ai galera beleza.... Bem quanto ao ultimo codigo,eu diria que o guto usou quase a mesma logica qua os outros usaram mas em outras palavras por assim dizer, achei legal o codigo, nem tinha imaginado em fazer desta forma, vou analisalo e tentar encontrar algum bug, vou comparar tambem o tempo de execução dele para ver se é mais agil que o meu...