Developer
-
Total de itens
254 -
Registro em
-
Última visita
Tudo que Developer postou
-
Acho que isso não tem como..
-
<!--#include file="../global/autentica_cadastra_ilustra.asp" --> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.open "select * from tabela", conn, 3 If Request.QueryString("action") = 1 Then titulo = Request.Form("titulo") texto = Request.Form("texto") if not rs.EOF then sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')" set Rs_INSERT = Conn.execute(sql) response.write "Cadastrado com sucesso!" else response.write "Não." end if end if %> <% sNomForm = "form"'Recebe o nome do formulario principal da pagina sNomCampo = "texto"' Recebe o nome do campo que vai armazernar as alterações no editor sValInicialCampo = ""'Receber o valor que vem do banco de dados para o editor %> <form action="cadastra_ilustra.asp?action=1" method=POST name="form" id="form" onsubmit="document.<%=sNomForm%>.<%=sNomCampo%>.value = Composition.document.body.innerHTML"><P> <center><H2>Formulário de cadastro de Ilustrações</H2></center><P><p> <TABLE border=2 cellpadding=5 cellspacing=5 align=center width=100%> <tr> <td colspan=2> <TABLE> <TR> <TD><font size=+1>Título:</font></TD> <TD><INPUT TYPE="text" NAME="titulo" VALUE="" SIZE=59 MAXLENGTH=60></TD> </TR> <TR> <TD><font size=+1>Texto:</font></TD> <TD><!--#include file="../JSeditor/editor.asp" --></TD> </TR> </TABLE></font> </TD> </tr> </table><P> <center> <input type="submit" name="submit" value="enviar" onClick="return CriticaFormulario()"> <input type="reset" value="Limpar Campos"> </center> </FORM> </body> </html>
-
Posta o codigo pra dar uma olhada...
-
Não entendi... Pode explicar melhor?
-
if Recordset.EOF then response.write "Não cadastra..." else response.write "Cadastra" end if
-
Ta ai <% If Request.QueryString("action") = 1 Then titulo = Request.Form("titulo") texto = Request.Form("texto") if titulo="" or texto="" then response.write "Algo ficou errado!" else sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')" set Rs_INSERT = Conn.execute(sql) response.write "Cadastrado com sucesso!!!" end if %>
-
Em ASP é mais facil... PHP já ér melhor só que é mais dificil... Se quiser posso te ajudar a criar um em ASP.
-
Quais componentes seu server suporta?
-
<% function email_cdonts(de_email, para_email, subject, mensagem) Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.mailformat=0 'para enviar html como mensagem objmail.bodyformat=0 'para enviar html como mensagem objmail.from = de_email objmail.to = para_email objmail.subject = subject objmail.body = mensagem objmail.send Set objmail = nothing end function %> Faz assim... Que quando você for enviar não precisa ficar repitindo toda hora... Ai quando você quiser enviar você faz: call email_cdonts("emaildousuario", "seuemail", "ASSUNTO", "Mensagen")
-
Como assim se ele não der certo... Você quer algo que quando não digitar um campo ele aparece uma mensagem falando para preencher os campos... Isso?
-
byval seria uma variavel criada..
-
No SB tem varias galeria fotos em ASP... Procura la
-
1) <a href="pagina.asp?pagina=teste.asp"> <% session("pagina") = request("pagina") %> <%="A página que você está acessando se chama: "&session("pagina")%> 2) <% If Request.QueryString("action") = 1 Then titulo = Request.Form("titulo") texto = Request.Form("texto") sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')" set Rs_INSERT = Conn.execute(sql) response.write "Cadastrado com sucesso!!!" %>
-
Olá bolomaster, Tenta assim: <title>Bibioteca Online - Faculdade Atenas de Paracatu</title> <style type="text/css"> <!-- .style1 { font-size: x-small; font-weight: bold; } --> </style> <!-- #include File="ColStyle.css"--> <body leftmargin="0" rightmargin="0" bottommargin="0" topmargin="0"> <%PagAtual = Request.QueryString("PagAtual") %> <!-- #include file="conexaobib.asp"--> <% 'Sistema desenvolvido por: Rafael Marciano titulo = request.form("titulo") nome = request.form("nome") sobrenome = request.form("sobrenome") ano = request.form("ano") edicao = request.form("edicao") Set RS = Server.CreateObject("ADODB.Recordset") sql = "SELECT VOLUME, TITULO, PAGINAS, ANO, EDICAO, SOBRENOME, NOME FROM BIBPESQ WHERE 1=2" If titulo<>"" Then sql = sql &"OR titulo like '%"&titulo&"%'" End if If nome<>"" Then sql = sql &"OR nome like '%"&nome&"%'" End if If sobrenome<>"" Then sql = sql &"OR sobrenome like '%"&sobrenome&"%'" End if If ano<>"" Then sql = sql &"OR ano like '%"&ano&"%'" End if If edicao<>"" Then sql = sql &"OR edicao like '%"&edicao&"%'" End if rs.Open sql, conn, 3 if RS.eof = true then response.write "Nada encontrado" response.end end if Const NumPorPage = 15 Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros RS.MoveFirst 'Move o RecorSet para o início RS.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = RS.PageCount RS.AbsolutePage = PagAtual 'Configura a página atual '############## paginacao Introdução - FIM ################# %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="Imagens/Titulo_bibonline.gif"></td> </tr> <tr> <td> <% Count = 0 'Zera o contador i = 0 DO WHILE NOT RS.EOF And Count < RS.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#F4F4F4" else cor = "#e1e1e1" end if '------------------------------- %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr > <td bgcolor="#333333"></td> </tr> <tr> <td><br> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="fonte"> <tr> <td colspan="2"><div align="left" class="style1"> TITULO: <font color="#CC0000"><%=RS.fields("titulo")%></font> </div></td> </tr> <tr valign="top"> <td colspan="2"><div align="left"><strong>Autor:</strong> <%=RS.fields("Sobrenome")%>, <%=RS.fields("Nome")%></div> <div align="left"></div></td> </tr> <tr valign="top"> <td width="62%"><div align="left"><strong>Paginas:</strong> <%=RS.fields("Paginas")%></div></td> <td width="38%"><div align="left"><strong>Ano:</strong> <%=RS.fields("Ano")%></div></td> </tr> <tr valign="top"> <td><div align="left"><strong>Edição:</strong> <%=RS.fields("edicao")%></div></td> <td><div align="left"><strong>Volume:</strong> <%=RS.fields("Volume")%></div></td> </tr> <tr valign="top"> <td> </td> <td> </td> </tr> </table></td> </tr> </table> <% i = i+1 Count = Count + 1 'paginacao RS.MoveNext LOOP 'tb paginacao %> </td> </tr> </table> <% 'Coloca o Nº página atual / Nº Total de páginas Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> ") 'Mostra os botões: Anterior e Próxima, utilizando da opção de IF Response.Write("<br>") Response.Write("<br>") IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='Pesquisar.asp?PagAtual=" & 1 & "' class='link2'>") Response.Write("Primeira") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='Pesquisar.asp?PagAtual=" & PagAtual - 1 & "'class='link2'>") Response.Write("Anterior") Response.Write("</a></font></B> ") Else Response.Write("<B><font color=""#ffffff"" size=""1"" face=""Arial"">") Response.Write("Primeira") Response.Write("</font></B> ") Response.Write("<B><font color=""#ffffff"" size=""2"" face=""Arial"">") Response.Write("Anterior") Response.Write("</font></B> ") End If '------------------- numero ------------------------- '---------- Numero de numeros para ser mostrados ---- max_n_mostrados = 9 intervalo = Int(max_n_mostrados /2) inicio = PagAtual - intervalo final = PagAtual + intervalo If CInt(inicio) <1 Then inicio = 1 final = 10 END IF If CInt(final) > CInt(TotalPages) Then final = TotalPages For i = inicio To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#3333FF"" size=""1"" face=""Arial"">( <B>" & i & "</B> <font color=""#3333FF"">)</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='Pesquisar.asp?PagAtual=" & i & "'class='link2'>" & i & "</a> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='Pesquisar.asp?PagAtual=" & i & "'class='link2'>" & i & "</a> " END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN 'Se estiver na última página, mostra apenas o botão Anterior e Primeira Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='Pesquisar.asp?PagAtual=" & PagAtual &+1 "'class='link2'>") Response.Write("Próxima") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='Pesquisar.asp?PagAtual=" & TotalPages & "'class='link2'>") Response.Write("Ultima") Response.Write("</a></font></B> ") Else Response.Write("<B><font color=""#ffffff"" size=""2"" face=""Arial"">") Response.Write("Próxima") Response.Write("</font></B> ") Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("Ultima") Response.Write("</font></B> ") End If '################## fim paginacao 01 ######################## %>
-
Tanto faz, Tenho página com informações relaciondos ao site só preciso fazer essa integração. Tipo Index Sistemas Contato Etc Por favor entre em contato... Email: victor@ckless.com.br TEL: (13) 3472 6314
-
Você quer isso em ASP ou PHP?
-
É isso ae Bareta... Esse foi bem simpeles o que eu ia fazer era bem mais complicado ahhahha.. Mas você já fez... Então como pedido ele disse que se o usuario digitasse letra maiuscula do 2º caracter pra frente ele passava para minuscula e só a primeira letra fica maiuscula...Então eu só dei uma modificação no codigo do bareta... <% mensagem= "testando um codigo ASP" response.write Ucase(left(mensagem,1))&Lcase(right(mensagem,len(mensagem)-1)) %>
-
Mas como ele vai tirar a primeira letra do que vai ficar com o 2º caracter pra frente?
-
Isso é Css ou JavaScript se não me engano... Posta la...
-
E bem complicado fazer isso.. Vou ver se faço uma função e até de noite eu posto aqui... A função vai ser um pouco extensa
-
tenta assim: <% Dim var_razao_social, var_endereco, var_bairro, var_cep, var_cidade, var_uf, var_fone, var_cnpj, var_ie, var_cond_pgto, var_transportador, var_frete, var_tabela, var_produto_para, var_desconto, var_ipi, var_st var_razao_social = replace(request.form("razao_social"), "'", "''") var_endereco = replace(request.form("endereco"), "'", "''") var_bairro = replace(request.form("bairro"), "'", "''") var_cep = replace(request.form("cep"), "'", "''") var_cidade = replace(request.form("cidade"), "'", "''") var_uf = replace(request.form("uf"), "'", "''") var_fone = replace(request.form("fone"), "'", "''") var_cnpj = replace(request.form("cnpj"), "'", "''") var_ie = replace(request.form("ie"), "'", "''") var_cond_pgto = replace(request.form("cond_pgto"), "'", "''") var_transportador = replace(request.form("transportador"), "'", "''") var_frete = replace(request.form("frete"), "'", "''") var_tabela = replace(request.form("tabela"), "'", "''") var_produto_para = replace(request.form("produto_para"), "'", "''") var_desconto = formatNumber(request.form("desconto"),2) var_ipi = formatNumber(request.form("ipi"),2) var_st = formatNumber(request.form("st"),2) sql_clientes = "INSERT INTO Clientes(RazaoSocial, Endereco, Bairro, Cidade, UF, CEP, CNPJ, IE, CondPgto, Desconto, Fone, Frete, Transportador, Tabela, ProdutoPara, IPI, ST) VALUES ('"&var_razao_social&"','"&var_endereco&"','"&var_bairro&"','"&var_cidade&"','"&var_uf&"','"&var_cep&"','"&var_cnpj&"','"&var_ie&"','"&var_cond_pgto&"','"&var_desconto&"','"&var_fone&"','"&var_frete&"','"&var_transportador&"','"&var_tabela&"','"&var_produto_para&"','"&var_ipi&"','"&var_st&"')" Set rs_cliente = Server.CreateObject("ADODB.RecordSet") rs_cliente.Open sql_clientes, conexao, 1, 3 %>
-
Isso se pode fazer com JS numa extensao .html, não em HTML
-
Seria +/- assim: recordset.execute "Select * top 9 from tabela", conexao, 3 for i=1 to 4 response.write "<a href="link">"&recordset("noticia")&"</a>" next for i=5 to 9 response.write recordset("noticia") next recordset.close ou poderia ser assim: recordset.execute "Select * top 4 from tabela", conexao, 3 while not recordset.EOF response.write "<a href="link">"&recordset("noticia")&"</a>" recordset.Movenext wend recordset.close Ve se funciona ai... Mas você teria que criar um matriz para elhor o script...
-
Tem Como Saber Que Anti-virus O User Esta Usando?
pergunta respondeu ao Davis Tome de Developer em ASP
Então... Era isso que tentamos falar... Não tem como por um codigo num servidor web verificar se existe a pasta da mesma no serivor local... -
1) Já usa o FSO quando for criar a pasta... Ai você cria e já pega o nome da pasta que você criou... Entendeu? 2) Acho que é possivel sim... 3) Isso não tem como.. Pelo menos nunca vi... Só se fizer um comando left, que pega os caracters... 4) Usa asim: SQL="SELECT * FROM produtos WHERE promocao = true"