mariofdf
-
Total de itens
394 -
Registro em
-
Última visita
Tudo que mariofdf postou
-
Muito obrigado jissa por me ajudar novamente... Precisando estamos ai... Vou pedir para fechar o tópico...
-
Para fazer request dos dados eu não sei mas voce pode fazer assim. Colocar se o upload der certo . Response.Write "mensagem qualquer" Response.Write File.FileName Response.Write "Aquarde..." Response.Write "<meta http-equiv='refresh' content='3; URL=pagina que voce quer que abra.asp>" Fale qual programa de upload voce usa que fica mais facil de o pessoal ajudar...
-
A variavel se declara assim: Variavel = Upload.Form("Nomecampo") O erro era o seguinte. em ves de : Upload.Save "c:\upload\'"&variavel&"'" tem de ser: Path = "c:\upload\" & variavel Upload.CreateDirectory Path, True Dai para salvar eu usei: For Each File in Upload.Files File.SaveAs Path & "\" & File.FileName next Quebrei a cabeça a noite inteira... Fui descubrir agora de manhã... mas é isso ai agradeço a ajuda e precisando estamos ai...
-
Eu não sei nada de javascript. Como ficaria em meu formulario? <HTML> <BODY> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload-acao.asp"> <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="10%"><font face="Verdana" size="4" color="#FAAF16"><b>Categoria:</b></font></td> <td width="90%"> <select name="NomeCategoria" size="1"> <% SQL = "SELECT * FROM TbCategoria ORDER BY NomeCategoria" Set RC = Connexao.Execute(SQL) Do While NOT RC.EOF %> <option value="<%=RC("NomeCategoria")%>"><%=RC("NomeCategoria")%></option> <% RC.MoveNext Loop %> </select> </td> </tr> <tr> <td width="10%"><b><font size="4" face="Verdana" color="#FAAF16">Arquivo:</font></b></td> <td width="90%"> <INPUT TYPE="FILE" SIZE="40" NAME="FOTO" style="color: #000000; border: 1px outset #FFFFFF; background-color: #C5C5C5"></td> </tr> <tr> <td width="10%"> </td> <td width="90%"> <INPUT TYPE=submit VALUE="Upload!" style="color: #000000; border: 2px outset #FFFFFF; background-color: #FAAF16; font-family:Verdana; font-size:10 pt; font-weight:bold"></td> </tr> </table> </FORM> </BODY> </HTML> Agradeço;;;
-
O istema de upload eu já arrumei o problema agora é o seguinte,,, Minha galeria de fotos é dividiva em pastas cada categoria é uma pasta e o codigo do upiload vem com o caminho fixo, eu teneu fazer e=um request form mas não da certo. Gostaria de ajuda... Segue o codigo... ------Arquivo Upload-------- <!--#include file="cabeca.asp"--> <hr> <% Diretorio = Request.Form("NomeCategoria") Set Upload = Server.CreateObject("Persits.Upload") ' Limit file size to 100000 bytes, throw an exception if file is larger Upload.SetMaxSize 100000, True ' Intercept all exceptions to display user-friendly error On Error Resume Next ' Perform upload Count = Upload.Save("C:\home3\diitroya.com.br\web\Books\'"& imagem &"'\") ' 8 is the number of "File too large" exception If Err.Number = 8 Then Response.Write "<small>" Response.Write "<font id='resumo'>" Response.Write "<b>O tamanho da foto excedeu o limite.</b><br>" Response.Write "<a href=javascript:window.history.back()>Voltar</a>" Response.Write "</font>" Response.Write "</small>" Else If Err <> 0 Then %> <small> <font id="resumo"> <b>Algum erro encontrado!!!</b><br> <a href=javascript:window.history.back()>Voltar</a> </font> </small> <%Else%> <small> <font id="resumo"> <b>Marcio... Foto Transferida com sucesso!!!</b><br> <b>Obrigado por participar!</b><br> <b>Aguarde...</b><br> <meta http-equiv="refresh" content="1; URL=book-inclui.asp"> </font> </small> <%End If End If %><!--#include file="rodape.asp"--> ----- Form ------- <!--#include file="cabeca.asp"--> <hr> <HTML> <BODY> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload-acao.asp?"> <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="10%"><font face="Verdana" size="4" color="#FFFF00"><b>Categoria:</b></font></td> <td width="90%"> <select name="NomeCategoria" size="1"> <% SQL = "SELECT * FROM TbCategoria ORDER BY NomeCategoria" Set RC = Connexao.Execute(SQL) Do While NOT RC.EOF %> <option value="<%=RC("NomeCategoria")%>"><%=RC("NomeCategoria")%></option> <% RC.MoveNext Loop %> </select> </td> </tr> <tr> <td width="10%"><b><font size="4" face="Verdana" color="#FFFF00">Arquivo:</font></b></td> <td width="90%"> <INPUT TYPE="FILE" SIZE="40" NAME="FOTO" style="color: #000000; border: 1px outset #FFFFFF; background-color: #C5C5C5"></td> </tr> <tr> <td width="10%"> </td> <td width="90%"> <INPUT TYPE=submit VALUE="Upload!" style="color: #000000; border: 1px outset #FFFFFF; background-color: #CCFFFF"></td> </tr> </table> </FORM> </BODY> </HTML> <!--#include file="rodape.asp"--> Da a mensagem: Algum erro encontrado!!! Voltar
-
Não sei nada de javascript e preciso de uma função que verifique a extenção do arquivo e não deixe submeter o upload a não ser que seja .JPG ou .GIF
-
alguém por favor...
-
Eu peguei o sistema de paginação e estou tentando fazer o seguinte. Crieu um campo para o pessoa digitar o que ela deseja, dai teria que pegar a palavra que a pessoa digitou e verificar o BD para achar as lojas que contem o produto dai retornar as lojas de 10 em 10. Precisaria a categoria da loja o banner e a url. Mas não sei como fazer. Poderia me dar umas dicas ou me indicar um tutorial... Gostaria de aprender... Agradeço...
-
poste seu codigo completo... Assim fica mais facil ajudar...
-
urso voce poderia fazer a gentileza de postar o link para este tutorial que voce se referil, gostaria de lelo. Agradeço.
-
eu mudei mas o erro continua. A paginação normal esta ok. O problema é na pesquisa... Ele fala encontrei 32 registros mostrando de 1 á 20 e aparecem 16 dai clico em proximo e não aparece nada...
-
Se alguém tiver uma outra sujestão para esse codigo eu agradeço...
-
Criei um sistema de busca, quando eu efetuo uma pesquisa ele apresenta o seguinte erro, era para exibir 20 resultados por vez mas só mostra 16 e quando clico em proximo não aparece nada se quiser ver o erro entre em http://www.diitroya.com.br/shopping/index.asp e faça uma procura por palavra, digite por exemplo a e mande procurar. Quando acessa pelos links esta tudo normal só na pesquisa que acontece o erro. e quando deixa em branco da um erro tambem... Estou aprendendo asp e espero que me ajudem o codigo é esse... <!--#include file="cabeca.asp"--> <% Const TamanhoPagina = 20 Pagina = Request.QueryString("Pagina") Pagina = Se(Pagina = "", 1, Pagina) codcategoria = Request.QueryString("codcategoria") codcategoria = Se(codcategoria = "", Request.Form("codcategoria"), codcategoria) palavra = Lcase(Request.Form("palavra")) palavra = Se(palavra = "", Lcase(Request.QueryString("palavra")), palavra) codcategoriapalavra = Request.Form("codcategoriapalavra") codcategoriapalavra = Se(codcategoriapalavra = "", Request.QueryString("codcategoriapalavra"), codcategoriapalavra) response.write "<font id='resumo'>" 'Veririca se alguns campos não foram preenchidos corretamente If codcategoria <> "" Then SQL = "SELECT TbBanners.*, TbCategoria.*, TbBanners.codcategoria " SQL = SQL & "FROM TbBanners INNER JOIN TbCategoria ON TbBanners.codcategoria = TbCategoria.CodCategoria " SQL = SQL & "WHERE (((TbBanners.codcategoria) = "& codcategoria &")) ORDER BY TbBanners.data DESC" SQLpt = "SELECT COUNT(*) AS TotalPessoas FROM TbBanners WHERE codcategoria = "& codcategoria &"" ElseIf palavra <> "" Then SQL = "SELECT TbBanners.*, TbCategoria.*, TbBanners.codcategoria " SQL = SQL & "FROM TbBanners INNER JOIN TbCategoria ON TbBanners.codcategoria = TbCategoria.CodCategoria " SQL = SQL & "WHERE (((TbBanners.descricao)LIKE '%" & palavra & "%') AND ((TbBanners.nome)LIKE '%" & palavra & "%')) ORDER BY TbBanners.data DESC" SQLpt = "SELECT COUNT(*) AS TotalPessoas FROM TbBanners WHERE nome LIKE '%" & palavra & "%' Or descricao LIKE '%" & palavra & "%'" Else Response.Write("não pegou nada") Response.Write("<a href=javascript:window.history.back()>Voltar</a>") End If Set RP = Connexao.Execute(SQL) Set RPT = Connexao.Execute(SQLpt) Total = 0 Total= RPT("TotalPessoas") 'não encontrou camponumero ou senha é invalida If RP.BOF And RP.EOF Then %> <font id="resumo") <b>Pesquisa não encontrada!!</b><br> <a href=javascript:window.history.back()>Voltar</a> </font> <br> <% ELSE %> <%If codcategoria <> "" then%> <font id="resumo">Categoria pesquisada: <b><%=lcase(RP("nomecategoria"))%> (<%=RPT("TotalPessoas")%>)</b></font> <%end if%> <%IF palavra <> "" then%> <font id="resumo">Palavra pesquisada: <%=palavra%></font> <%If codcategoria <> "" then%> <font id="resumo"> Categoria pesquisada: <%=codcategoria%></font> <%end if%> <font id="resumo">(<%=RPT("TotalPessoas")%>)</font> <%end if%> <hr> <%If Not RP.EOF Then De = (Pagina - 1) * TamanhoPagina + 1 Ate = (Pagina) * TamanhoPagina Ate = Se(Ate > Total, Total, Ate) Linha = 1 RP.Move TamanhoPagina * (Pagina - 1)%> <table width="100%" cellpadding="2" cellspacing="5"> <tr><td> <%Do While not RP.EOF and Linha <= TamanhoPagina %> <%IF palavra <> "" then %> <font id="resumo-index">Categoria: <%=RP("nomecategoria")%></font><br> <%end if %> <% if session("autenticado") = true then %> <a href="link-altera.asp?codbanner=<%=RP("codbanner")%>" target="_blank"><img src="../bt-alterar.gif" width=15 height=15 alt="alterar ou excluir" border="0"></a> - <a href="mailto:<%=RP("email")%>"><%=RP("email")%></a><br> <% end if %> <a href="<%=RP("site")%>" target="_blank"> <%if RP("imagem") <> "" then %> <img src="imagens/<%=RP("imagem")%>" border="1" width="470" height="60" alt="<%=RP("nome")%> - <%=RP("descricao")%>"></a><br><br> <%end if%> <%=RP("linhacodigo")%> <br> <%RP.MoveNext%> <% Linha = Linha + 1 %> <%loop%> </td></tr> </table> <%end if%> <hr> <table width="100%"> <tr valign="middle"> <td align="right"> <font id="titulo-index"> Total de links: <% = Total %> (<% = De %> a <% = Ate %>) <% 'Cria links para nagegação em outras páginas TotalPagina = Total / TamanhoPagina TotalPagina = Int(Se(TotalPagina - Int(TotalPagina) = 0, TotalPagina, TotalPagina + 1)) If TotalPagina > 1 Then 'Cria link Anterior If Int(Pagina) > 1 Then If codcategoria <> "" Then Response.Write("<a href='pesquisa-acao.asp?codcategoria=" & codcategoria & "&Pagina=" & Pagina - 1 & "'>Anterior</a> | ") End If If palavra <> "" Then Response.Write("<a href='pesquisa-acao.asp?palavra="&palavra&"&codcategoriapalavra="&codcategoriapalavra&"&Pagina="&Pagina - 1 & "'>Anterior</a> | ") End If End If 'Cria link Próxima If Int(Pagina) < TotalPagina Then If codcategoria <> "" Then Response.Write("<a href='pesquisa-acao.asp?codcategoria=" & codcategoria & "&Pagina=" & Pagina + 1 & "'>Próxima</a>") End If If palavra <> "" Then Response.Write("<a href='pesquisa-acao.asp?palavra="&palavra&"&codcategoriapalavra="&codcategoriapalavra&"&Pagina="&Pagina + 1 & "'>Próxima</a> | ") End If End If End If%> </font> </td></tr> </table> <%End if%><!--#include file="rodape.asp"-->
-
preciso do arquivo wswinsck.ocx do win98 quem puder me ajudar ficaria grato.