cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Tudo que cyberalexxx postou
-
O FreeAspHost.com suporta alguns dominios (na verdade você tem que passar a manutenção do dominio a cargo deles, eles ganham algum na renovação do dominio) . Não sei se suporta .com.br eu sei que .org .com .net ele suporta.
-
Tambem já vi!! Ou esta no tópico de funções ou de tutoriais. de uma olhada la
-
Verificou c você tem permissão de escrita no servidor???
-
Da uma olhada aqui: http://scriptbrasil.com.br/forum/index.php...pic=20523&st=30 Aqui voce aprende como vefiricar se a pasta exite e como cria-la
-
Fiz um esquema muito louco aki, mais c voce adaptar com os dados dos seu banco/tabela deve funcionar: <% set conexao=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("vendas.mdb") conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath SQL="select * from vendas order by data" set rs = conexao.execute(sql) dim datas datas=array() %> <table bordercolor="#111111" bgcolor="#C0C0C0"> <tr> <td bgcolor="#000080"><b> <font face="Verdana" size="2" color="#66CCFF">Nome</font></td> <% dim data do while not Rs.Eof if data <> Rs.Fields("data") then data = Rs.Fields("data")%> <td bgcolor="#000080"> <font face="Verdana" size="2" color="#66CCFF"><%=Rs.Fields("data")%></font></td> <% redim preserve datas(Ubound(datas)+1) datas(Ubound(datas)) = Rs.Fields("data") end if Rs.MoveNext Loop SQL2="select * from vendas order by nome, data" set rs2 = conexao.execute(SQL2) dim nome dim n_vend(31) do while not rs2.eof if nome <> Rs2.Fields("nome") then for i = 0 to Ubound(datas) n_vend(i) = 0 next nome = Rs2.Fields("nome") %> <tr> <td bgcolor="#000080"><b> <font face="Verdana" size="2" color="#66CCFF"><%=Rs2.fields("Nome")%></font></td><% end if for i = 0 to Ubound(datas) if CStr(datas(i)) = CStr(Rs2.Fields("data")) then n_vend(i) = n_vend(i) + 1 end if next Rs2.MoveNext if not rs2.EOF then if nome <> Rs2.Fields("nome") then for i = 0 to Ubound(datas)%> <td bgcolor="#000080"> <font face="Verdana" size="2" color="#66CCFF"><%=n_vend(i)%></font></td><% next end if end if if rs2.EOF then for i = 0 to Ubound(datas)%> <td bgcolor="#000080"> <font face="Verdana" size="2" color="#66CCFF"><%=n_vend(i)%></font></td><% next end if loop %> Qualquer duvida, posta ai!!
-
Em ASP eu nunca fiz, mais da pra fazer em javascript olha ai: <script> window.open("endereço1.htm"); window.open("endereço2.htm"); window.open("endereço3.htm") </script>
-
Não pode usar um campo autonumeração???
-
Agora não sei o que é pois ta certo tem um Do while true e um loop no final, ta certo!!
-
A pasta tem que existir!!!
-
De um response.write PastaDestino & "\" & ArquivoNome pra ver se a construção esta ok
-
ASSIM: nome1 = Request.QueryString("pasta")
-
O problema ta no link mesmo, tenta tirar as aspas: index.asp?lcl=upload&pasta=<%=Request.QueryString("nome")%> method="post" enctype="multipart/form-data">
-
posta tambem o codigo de uploade e me fala em que link voce esta clicando quando acontece isso com o URL
-
Voce tem que colocar em um arquivo chamado global.asa conforme eu coloquei no post. Esse arquivo tem que ficar no raiz do diretorio virtual.
-
Mais uma tentativa <% if session("logado")= "" then response.redirect "index.asp?lcl=intro" end if if session("evento") < "2" then response.Redirect "index.asp?lcl=admineventos" end if cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset Set Rs = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Conn Set Rs=conn.execute("select * from fotos_eventos order by 2 ") %> <html> <head> <title>Intranet - Agência de Fomento de Goiás S/A</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../estilos/intranet.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="610" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD> </tr> <tr> <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td> <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#3399CC"> <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> <span class="titulobranco">FOTOS - EVENTOS</span></strong></font></div></td> </tr> </table> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5" colspan="3" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> <tr> <td width="339" height="20" bgcolor="#C4E4FD" class="textointrodutorio"> Escolha o Evento</td> <td width="134" bgcolor="#C4E4FD" class="textointrodutorio"> </td> <td width="122" bgcolor="#C4E4FD" class="textointrodutorio"> </td> </tr> </table> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#ECF8FF"> <td width="339" height="20" > <img src="imagens/tópico.gif" width="8" height="8"> <select name="areaSol" id="areaSol"> <% while Not Rs.EOF Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>") Rs.MoveNext wend Response.Write("<option selected>---</option>") %> </select></td> <td width="134" class="texto"> </td> <td width="60" bgcolor="#ECF8FF" class="texto"> </td> <td width="62" class="texto"> </td> </tr> <tr> <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> </table> <table width="595" border="0" cellspacing="1" cellpadding="1"> <tr> <td colspan="2" class="texto">LOCAL</td> </tr> <tr> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> <% if len(Request.QueryString("nome")) = 0 then response.write "<br>" & "É Neceesário escolher uma pasta de destino antes de fazer o upload" & "<br>" end if Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base Set pastas = principal.SubFolders pasta = Request.QueryString("nome") %> <%For each pastaUP in pastas%> <img src="../imagens/folder.gif" width="12" height="12"> <a href="index.asp?lcl=fotosnoevento&nome=<%=pastaUP.name%> "><%=pastaUP.name%></a> <br> <%next%> </div></td> </tr> <tr> <%if len(Request.QueryString("nome")) > 0 then%> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> <form action="index.asp?lcl=upload&pasta="<%=Request.QueryString("nome")%>" method="post" enctype="multipart/form-data"> <span class="texto"><br> Arquivo 1: <input type="file" name="txtArquivo1"> <br> Arquivo 2: <input type="file" name="txtArquivo2"> <br> <input type="submit" name="cmdEnviar" value="Enviar"> </span> </form> </div></td> </tr> <tr> <%end if%> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Novo Evento</a></strong></td> </tr> <tr> <td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td> <td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="javascript:history.back();" class="link"> Voltar</a></div></td> </tr> </table> <p></p></td> </tr> </table> </body> </html>
-
O que não esta dando certo??? da algum erro???
-
Acredito que no seu caso essa linha serve para não permitir SQL Injection
-
-
da pra fazer via session/application: global.asa: <script LANGUAGE=VBSCRIPT RUNAT=SERVER> Sub Application_OnStart() Application("Usersonline")=0 End Sub Sub Session_OnStart() Application("Usersonline")=Application("Usersonline")+1 End Sub Sub Session_OnEnd() Application("Usersonline")=Application("Usersonline")-1 End Sub </SCRIPT> Depois voce na sua pagina voce determina o nº maximo de usuários: if Application("Usersonline") > nr_max then response.redirect("pagina.asp") end if Da uma olhada se te ajuda
-
tenta isso: <% if session("logado")= "" then response.redirect "index.asp?lcl=intro" end if if session("evento") < "2" then response.Redirect "index.asp?lcl=admineventos" end if cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset Set Rs = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Conn Set Rs=conn.execute("select * from fotos_eventos order by 2 ") %> <html> <head> <title>Intranet - Agência de Fomento de Goiás S/A</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../estilos/intranet.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="610" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <TD width=15><IMG height=8 src="../imagens/1px.gif" width=8></TD> </tr> <tr> <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="../imagens/1px.gif" width=15></div></td> <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#3399CC"> <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> <span class="titulobranco">FOTOS - EVENTOS</span></strong></font></div></td> </tr> </table> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5" colspan="3" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> <tr> <td width="339" height="20" bgcolor="#C4E4FD" class="textointrodutorio"> Escolha o Evento</td> <td width="134" bgcolor="#C4E4FD" class="textointrodutorio"> </td> <td width="122" bgcolor="#C4E4FD" class="textointrodutorio"> </td> </tr> </table> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#ECF8FF"> <td width="339" height="20" > <img src="imagens/tópico.gif" width="8" height="8"> <select name="areaSol" id="areaSol"> <% while Not Rs.EOF Response.Write("<option value="""& Rs("Evento") &""">"& Rs("Evento") &"</option>") Rs.MoveNext wend Response.Write("<option selected>---</option>") %> </select></td> <td width="134" class="texto"> </td> <td width="60" bgcolor="#ECF8FF" class="texto"> </td> <td width="62" class="texto"> </td> </tr> <tr> <td height="5" colspan="4"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> </table> <table width="595" border="0" cellspacing="1" cellpadding="1"> <tr> <td colspan="2" class="texto">LOCAL</td> </tr> <tr> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> <% if len(Request.QueryString("nome")) = 0 then response.write "<br>" & "É Neceesário escolher uma pasta de destino antes de fazer o upload" & "<br>" end if Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\inetpub\intranet\fotos") 'pasta base Set pastas = principal.SubFolders pasta = Request.QueryString("nome") %> <%For each pastaUP in pastas%> <img src="../imagens/folder.gif" width="12" height="12"> <a href="index.asp?lcl=fotosnoevento&nome=<%=pastaUP.name%> "><%=pastaUP.name%></a> <br> <%next%> </div></td> </tr> <tr> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><div align="left" class="texto"> <form action="index.asp?lcl=upload&pasta="<%=Request.QueryString("pasta")%>" method="post" enctype="multipart/form-data"> <span class="texto"><br> Arquivo 1: <input type="file" name="txtArquivo1"> <br> Arquivo 2: <input type="file" name="txtArquivo2"> <br> <input type="submit" name="cmdEnviar" value="Enviar"> </span> </form> </div></td> </tr> <tr> <td height="20" colspan="2" align="center" bgcolor="#ECF8FF"><strong><a href="index.asp?lcl=novofotoevento" class="linkclaro">Novo Evento</a></strong></td> </tr> <tr> <td width="14" height="20" align="center" bgcolor="#FFFFFF"><div align="left"></div></td> <td width="574" align="center" bgcolor="#FFFFFF"><div align="left"><a href="javascript:history.back();" class="link"> Voltar</a></div></td> </tr> </table> <p></p></td> </tr> </table> </body> </html>
-
Vai Rolar um 4º desafio?? Pois eu acho que a galera não ta muito a fim de fazer o 3º, acho que por ser mais extenso, a galera deve ta sem tempo, pois leva pelo menos uma meia hora pra fazer.
-
Cara faz uma busca no google com: "asp" + "tutorial" qualquer tutoria basico de ASP ensina a fazer cadastro, alteração, exclusão e leiutura em um banco de dados.
-
Boa idéia abrir um pop-up forçando um Session_end()
-
Voce pode colocar um input tipo texto no formulário para o usuario digitar um nome caso queira criar uma nova pasta. depois é só pegar o nome através de request.form("novapasta") e criar a pasta usando FSO
-
Não entendi muito bem não!! da uma olhada se é isso que você quer: <% set conexao=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("banco.mdb") conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath set rs=conexao.execute("select * from tabela order by email") do while not Rs.eof Resonse.Write Rs.fields("email") & ";" Rs.MoveNext loop %>