crucifier
Membros-
Total de itens
306 -
Registro em
-
Última visita
Tudo que crucifier postou
-
ahh dexa keto já descobri o erro..pode deleta esse tópico
-
tipw..quando eu adiciono um codigo html pelo sistema, em um campo text...ele adiciona td assim: <P><IMG alt=teste src="http://www.centropaulista.com.br/sistema/img_noticias/modelo2.jpg" align=left border=0></P> como que faiz pra adicionar certinho o html????tem algum campo q seja só pra isso?
-
aee deu certinhu andreia...muito obrigado...brigadao mesmo
-
eu peguei o codigo aki do forum para o campo só aceitar numeros...mas tem um problema...ele não aceitava os numeros dakele teclado numerico(do lado das setinhas, page up e tal)...daih eu tentei alterar...mas não deu..tentei por assim: function trava() { if ((event.keyCode<44)||(event.keyCode>57)||([COLOR=red]event.keyCode>96)||(event.keyCode<105)[/COLOR]){ event.returnValue = false; } } a parte q esta em vermelho foi eu que puiz...esses numeros 44, 57, 96 e 105 saum os codigos das teclas em ascii... mas tipw...ele não funciona porq o 44 no caso é menos que 96 e o 57 também...então não deu por causa dissu...tem jeito de mim fazer tipw(traduzindo como se fosse pra codigo) se a tecla for menor que 96 e maior que 105 não aceitar mas se a tecla for de 44 a 57 habilitar seria isso mas precisa passar para a programacao e eu não sei
-
eu estou usando aquele upload sem componentes do forum...so que como o sistema é para cliente...eu preciso que quando upe a imagem ele va com outro nome...ou então que mesmo que repita o nome da imagem upada, ele va como por exemplo: modelo_1.jpg supondo que o nome da imagem upada anteriormente fosse modelo.jpg daih se upasse de novo iria para modelo_2.jpg, modelo_3.jpg e assim por diante... eu adaptei o codigo...no codigo esta para selecionar a imagem, e colocar se ele quer alinhar direita esquerda centro etc...e para o cara escolher a borda... a janela de upar abre em um popup...então quando envia ele fecha o popup e envia as informacoes necessarias para a pagina(estou explicando para entenderem do porq do tamanho do codigo) vou postar o codigo inteiro pra voces, caso alguém for usar tambem...(mas vai precisar do arquivo freeASPupload.asp como include, que no meu caso esta como upload.asp) bom...aih vai o codigo(vou dividir em 2 partes...a primera é a que eu preciso de ajuda para trocar o nome...a segunda é o restante para caso alguém precisar do codigo): <!-- #include file="includes/upload.asp" --> <% caminho = Server.MapPath("img_noticias") If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST") Then Set Upload = New FreeASPUpload Upload.Save(caminho) agora = Now For i = 1 To Len(agora) If IsNumeric(Mid(agora, i, 1)) Then valor = valor & Mid(agora, i, 1) End If Next For Each upFile In upload.Files imagem = "http://www.centropaulista.com.br/sistema/img_noticias/" & valor Next alt = Upload.Form("alt") alinhamento = Upload.Form("alinhamento") borda = Upload.Form("borda") Set Upload = Nothing strImagem = "<img src="& imagem &" alt="& alt &" align="& alinhamento &" border="& borda &">" Response.Write "<script language='JavaScript'>" & VbCrLf Response.Write "{" & VbCrLf Response.Write "window.opener.frames.mensagem.focus();" & VbCrLf Response.Write "var htmlLink = window.opener.frames.mensagem.document.selection.createRange()" & VbCrLf Response.Write "htmlLink.pasteHTML('"& strImagem &"');" & VbCrLf Response.Write "window.opener.frames.mensagem.document.execCommand('paste', false, '');" & VbCrLf Response.Write "window.close();" & VbCrLf Response.Write "}" & VbCrLf Response.Write "</script>" & VbCrLf Response.End() End If %> continuacao: <html> <head> <title><%=tituloSistema%></title> <script language="JavaScript"> function Valida() { if ((document.formulario.imagem.value == '') || (document.formulario.imagem.value == 'http://')) { window.alert('Por favor, selecione a imagem para enviar e adicionar no documento.'); document.formulario.imagem.focus(); return false; } } </script> <link href="includes/estilo_site.css" rel="stylesheet" type="text/css"> </head> <body bgcolor="<%= strBgColour %>" leftmargin="6" topmargin="6" marginwidth="6" marginheight="6"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="middle"><table width="90%" border="0" cellpadding="2" cellspacing="0" class="texto10"> <form action="addimage_up.asp" method="post" name="formulario" enctype="multipart/form-data" onSubmit="javascript:return Valida();"> <tr> <td width="78">Imagem:</td> <td><input name="imagem" type="file" class="form" style="width:275px;" value="http://"></td> </tr> <tr> <td>Texto Alt:</td> <td><input name="alt" type="text" class="form" style="width:275px;"></td> </tr> <tr> <td>Alinhamento:</td> <td> <select name="alinhamento" class="form"> <option value="">Default</option> <option value="left">Left</option> <option value="right">Right</option> <option value="texttop">Texttop</option> <option value="absmiddle">Absmiddle</option> <option value="baseline">Baseline</option> <option value="absbottom">Absbottom</option> <option value="bottom">Bottom</option> <option value="middle">Middle</option> <option value="top">Top</option> </select> Borda: <select name="borda" class="form"> <option value="0">0</option> <option value="1">1</option> <option value="2">2</option> <option value="3">3</option> <option value="4">4</option> <option value="5">5</option> <option value="6">6</option> <option value="7">7</option> <option value="8">8</option> <option value="9">9</option> <option value="10">10</option> </select> </td> </tr> <tr> <td colspan="2"><hr size="1"></td> </tr> <tr> <td colspan="2" align="center"> <input name="submit" type="submit" class="button" style="width:80px;" value="OK"> <input name="button" type="button" class="button" style="width:100px;" onClick="javascript:window.close()" value="Cancelar"></td> </tr> </form> </table></td> </tr> </table> </body> </html>
-
não entendi muito bem mas acho que consegui chegar onde voce quis tipw..no recordset dos produtos está puxando a categoria pelo id_categoria que está no url...está puxando por um request.querystring.... nas tabelas...uma não ta puxando nada da outra...porque um é para exibir as categorias e o outro para exibir os produtos... ahh não sei se fui claro..mas dexa keto...se o cara vai lá muda o url ele não vai esperar que teja lindo maravilhoso aparencendo uma msg piscando falanu não faça isso...se ele mudar vai dar errro ...mai nem da nada...isso daih é o de menos..nem vo eskenta a cabeça com isso e não quero que o zotro eskente também..larguem ketoo..se kizerem deletar o tópico ou fechar pode=]]]
-
o problema é que só tem o campo sexo na tabela categoria...não tem na tabela produtos
-
tipw...na pagina produtos.asp tenho 2 recordset...um para exibir as categorias...que exibe do lado preto...e o outro recordset para exibir os produtos do lado branco... daih tipw..o recordset para exibir as categorias está assim: id_categoria = request.querystring("id_categoria") StrCAT = " SELECT * FROM categoria WHERE inativo=0 AND sexo='"& request.querystring("sexo") &"' ORDER BY id_CATEGORIA DESC" '----------------------------------------------------------- rscat.CursorType = 3 'Tipo do cursor do RecordSet rscat.PageSize = 6 'Qtde de registros a serem exibidos rscat.Open StrCAT '<- Executa o Select e o recordset para exibir os produtos está assim: id_categoria = request.querystring("id_categoria") StrQuery = " SELECT * FROM produtos WHERE id_categoria = "& id_categoria &" ORDER BY id DESC" '----------------------------------------------------------- objrs.CursorType = 3 'Tipo do cursor do RecordSet objrs.PageSize = 6 'Qtde de registros a serem exibidos objrs.Open StrQuery '<- Executa o Select tipw...pelo que deu pra percebe no recordset dos produtos...ele vai exibi os produtos de acordo com o request.querystring("id_categoria") só que no recordset da categoria ele só exibe as categorias que são do sexo masculino...e tipw...se eu colocar no url: produtos.asp?id_categoria=2&sexo=masc ele aparece os produtos da categoria 2...mesmo a categoria 2 ser do sexo feminino... como eu faço pra não acontecer isso? tipw...só exibir a categoria que tiver exibindo no recordset da categoria entenderam??o.O se alguém puder me ajudar=]]]
-
aeee deu certinhu cabei de testa em outro servidor onde a permisao ta certinha...deu certinhu o codigo...valewzaum cara...muito obrigado mesmo=DDD~
-
só mais uma coisa...percebi que quando coloco arkivos muito grande lá não da certo... achu que é porq o conteudo do arquivo aparece no url...e o url se não me engano suporta 1kb de texto apenas
-
humm certo... cara não dou certeza que deu certo porq o servidor ta cum problema de permisão...não ta dando pra autoriza...e apareceu o erro de permisao negada... provavelmente deu certo... se deu certo..muitooo obrigado mesmo...brigadão...=DDD se não deu certo: muito obrigado mesmo assim...foi de grande ajuda seu codigo=DDD
-
humm...precisa colocar o caminho fisico completo ou da certo como dedo.asp??? deu esse erro aih:
-
hummm....certinhu cara....brigadao mais uma pekena duvida para alterar...o cara foi lá exibiu esse codigo e ele altero umas coisas no codigo...e clico em alterar como que faria nesse eskema de fso aih? num precisa passa codigo de botao nem nada...só o codigozinhu que faz alterar... se der pra kebra mais esse galho=]
-
por exemplo... quero que apareça o codigo da pagina "dedo.asp" dentro da caixa de texto...
-
como faiz pro codigo do arquivo aparecer na caixa de texto??
-
ahhhhhhhhhhhhhhhhhhhhhhh falta de atenção minha...a tabela estava como total acesso e tinha que estar total acessos disculpem-me=\
-
ta tudo certinho na pagina lá...e diz que não acho a tabela total_acessos... mas fui verificar e está la...tudo certo... deu essa msg d erro: alguém sabe o que pode ser???
-
se voce der uma procuradinha no forum acha hein?se não me engano ta no tópico de funcoes q ta pendurado aih
-
tipw..sabe o select?lá não ta assim?: identificador do campo > valor do campo tem jeito de mim pegar só o identificador?? entenderam?
-
na verdade eu não consigui...eu fiz de um outro jeito...coloquei pra exibir as subcategorias caso tivesse...caso tivesse só fotos...exibia só fotos...caso houvesse sub-categorias e fotos apareceria fotos em cima e subcategorias embaixo... mas eu passo o codigo..o codigo que ficou é esse(vou postar o codigo inteiro...): <table width="97%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><a href="galeria.asp"><img src="images/tit_galeria.gif" alt="Clique aqui para ver todas as categorias disponíveis" width="178" height="52" border="0"></a></td> </tr> <tr> <td valign="top"> <div align="center"><strong> <% if request.querystring("id_categoria") = "" then response.redirect "galeria.asp" end if Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.ConnectionString = strcon ObjConn.CursorLocation = 3 '<- Cursor de conexão ObjConn.Open '<- Abre a conexão 'Estou utilizando aqui o driver MySQL ODBC 3.51, mas funciona com qualquer um viu!! 'Conexão com o banco de dados '----------------------------------------------------------- 'Criação de RecordSet Set ObjRecSet = Server.CreateObject("ADODB.RecordSet") '----------------------------------------------------------- 'Conexão Ativa Set ObjRecSet.ActiveConnection = ObjConn '----------------------------------------------------------- 'Select na tabela do banco if not request.QueryString("id_sub") = "" then StrQuery = "Select Fotos.*, subcategoria.* From Fotos, subcategoria Where Fotos.id_categoria= "& request.querystring("id_categoria") StrQuery = StrQuery & " AND Fotos.id_subcat=" & request.querystring("id_sub") StrQuery = StrQuery & " AND Fotos.id_subcat = subcategoria.id_sub Order by Fotos.ID desc" else StrQuery = "Select * From Fotos Where id_categoria= "& request.querystring("id_categoria") & " AND id_subcat = 0" end if '----------------------------------------------------------- ObjRecSet.CursorType = 3 'Tipo do cursor do RecordSet ObjRecSet.PageSize = 12 'Qtde de registros a serem exibidos ObjRecSet.Open StrQuery '<- Executa o Select Set Objcat = Server.CreateObject("ADODB.RecordSet") '----------------------------------------------------------- 'Conexão Ativa Set Objcat.ActiveConnection = ObjConn Strcat = "Select * From categoria Where id_categoria= "& request.querystring("id_categoria") Objcat.CursorType = 3 'Tipo do cursor do RecordSet Objcat.PageSize = 12 'Qtde de registros a serem exibidos Objcat.Open Strcat '<- Executa o Select %> <% if request.querystring("id_sub") = "" then response.write "» " & objcat("nome") else response.write "<a href=" & request.servervariables("script_name") &"?id_categoria=" & request.querystring("id_categoria") & "><font color=#DD8500>» " & objcat("nome") & "</font></a><font color=#DD8500> - " & ObjRecSet("subcategoria") & "</font>" end if %></font> </strong><br> <% '----------------------------------------------------------- 'Controles de Paginação pag = Request.QueryString("pagina") If pag = "" Then pag = 1 End if '----------------------------------------------------------- colunas = 4 'Número de Colunas a serem apresentadas If ObjRecSet.Eof Then If objcat.eof then Response.Write("<b>Não Existem Dados cadastrados!</b>") else response.write "" end if Else ObjRecSet.AbsolutePage = pag Response.Write "<br><table border=0 cellspacing=5 width=546 cellpadding=0 >" & Chr(13) i = 0 Do While ((NOT ObjRecSet.EOF) AND (i < ObjRecSet.PageSize)) Response.Write " <tr>" & Chr(13) For x = 1 to colunas 'Número de Colunas If ObjRecSet.EOF = True then id_categoria = "" id = "" miniatura = "" imagem = "<td align=center valign=middle><img src=""images/spacer.gif"" border=0 width=95 height=63 /></td>" & Chr(13) Else id_categoria = ObjRecSet("id_categoria") id = ObjRecSet("id") miniatura = ObjRecSet("miniatura") urlsis = "admin/" imagem = "<td align=center valign=middle height=""70""><a href=javascript:; onclick=""MM_openBrWindow('exibe_foto.asp?id=" & id & "','foto','width=400,height=300')"" border=0><img src=" & urlsis&miniatura&" border=0 width=95 height=63 /></a></td>" ObjRecSet.MoveNext i = i + 1 End If Response.Write imagem & Chr(13) Next Response.Write "</tr>" & Chr(13) Loop Response.Write "</table>" & Chr(13) '----------------------------------------------------------- '-------------------------------------------------------------------------------------------------------- TotalPaginas = objrecset.PageCount If Pag > 1 then 'não estamos no comeco, mostra o link de Anterior voltar = "<a href=galeria_fotos.asp?id_categoria="& request.querystring("id_categoria") &"&pagina=" & pag - 1 & "&id_sub="& request.querystring("id_sub") &">« Voltar</a>" Else voltar = "" End If If CInt(Pag) <> CInt(TotalPaginas) then avancar = "<a href=galeria_fotos.asp?id_categoria="& request.querystring("id_categoria") &"&pagina=" & pag + 1 & "&id_sub="& request.querystring("id_sub") &">Avançar »</a>" else avancar = "" End If 'Numero de páginas (Paginação) criação de links para a navegação With Response .Write("<br><table width=""500"" align=""center"" cellspacing=""0"" cellpadding=""2"" border=""0"">") .Write("<tr><td width=""250"" align=right>"&voltar&"</td><td width=""250"" align=""right"">"&avancar&"</td></tr></table>")& Vbcrlf End With end if %> <br> <br> </div></td> </tr> <tr> <td valign="top"> <table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#333333"> <% Set objrs = Server.CreateObject("ADODB.RecordSet") '----------------------------------------------------------- 'Conexão Ativa Set objrs.ActiveConnection = ObjConn '----------------------------------------------------------- 'Select na tabela do banco sqlstmt2 = "Select * From Subcategoria Where id_categoria="& request.querystring("id_categoria") & " Order by subcategoria ASC" '----------------------------------------------------------- objrs.CursorType = 3 'Tipo do cursor do RecordSet objrs.Open sqlstmt2 '<- Executa o Select do while not objrs.eof %> <tr> <td height="20" bgcolor="#FEDA5C" > <strong><font color="#000000"> »</font></strong> <% if ObjRecSet.eof = true then response.write "" else response.write "<a href=" & request.servervariables("script_name") & "?id_categoria=" & request.querystring("id_categoria") & "&id_sub=" & objrs("id_sub") & ">" & objrs("subcategoria") & "</a>" end if %> </td> </tr> <%objrs.movenext loop %> </table> <br> </td> </tr> <tr> <td valign="top"> </td> </tr> </table>
-
não precisa mais...consigui aki e desculpem por ser meio que grossero no outro tópico=\ tava moh nervoso por causa de prazo e tal..desculpem-me
-
então...eu coloquei a explicação no outro tópico onde eu pedia ajuda...mas eu ponho aki de novo...vo copia e cola:
-
bom...ninguém quis me ajudar no caso foxplay/subcategorias... então vou te que tirar dinhero do bolso mesmo porq só assim pra me darem atenção... o negocio é fazer uma única página...onde seja +/- isso: http://www.foxplay.com.br/galeria_galeras.htm só que se a pessoa não kizer cadastrar a subcategoria td bem...vai aparece do mesmo jeito... preciso disso o mais breve possivel..e me mandem um e-mail pra dizer o preço: pedro@centropaulista.com.br vo tenta conversa ca empresa pra paga..se não aceitarem eu vo te que tira do meu proprio bolso..então sejam generosos..
-
obrigado
-
ok ok..vamos lá... o codigo que tenho apenas faz a paginacao e as colunas...como eu adaptaria pro jeito q eu falei????? colunas = 4 'Número de Colunas a serem apresentadas If ObjRecSet.Eof Then Response.Write("<b>Não Existem Dados cadastrados!</b>") Else ObjRecSet.AbsolutePage = pag Response.Write "<table border=0 cellspacing=5 width=95% cellpadding=0 >" & Chr(13) i = 0 Do While ((NOT ObjRecSet.EOF) AND (i < ObjRecSet.PageSize)) Response.Write "<tr>" & Chr(13) For x = 1 to colunas 'Número de Colunas If ObjRecSet.EOF = True then id_categoria = "" id = "" miniatura = "" imagem = "<td align=center valign=middle> </td>" & Chr(13) Else id_categoria = ObjRecSet("id_categoria") id = ObjRecSet("id") miniatura = ObjRecSet("miniatura") foto = objrecset("foto") urlsis = "admin/" imagem = "<td align=center valign=middle height=75><a href= # onClick=""openPictureWindow_Fever('undefined','"& urlsis&foto&"','400','300',':::Fox Play:::','100','100')"" border=0><img src=" & urlsis&miniatura&" border=0 width=95 height=63 /></a><td align=center valign=middle></td>" ObjRecSet.MoveNext i = i + 1 End If Response.Write imagem & Chr(13) Next Response.Write "</tr>" & Chr(13) Loop Response.Write "</table>" & Chr(13)