vicoluis
-
Total de itens
99 -
Registro em
-
Última visita
Posts postados por vicoluis
-
-
1º O ASP está na versão 3.0
2º O ASP trabalha com VBscript e JavaScript, é questão de gosto, mas você vai achar mais exemplo em VBscript do que em JavaScript.
3º
ASP
<%
Response.Write "Olá
%>
PHP
<?
Echo "Olá";
?>
Esta é a única forma de abrir e fechar uma tag em sua devida linguagem.
4º ASP e ASP.NET não tem nada a ver um com o outro. Os códigos são totalmente diferentes. A forma de se programar é totalmente diferente, você trabalha com os recursos totalmente diferente.
Dizem que o .NET é bem mais poderos, trabalha com mais coisas e tals... é o futuro, se você ainda não estudou ASP, começe pelo .NET se você já sabe ASP, aumente seu curriculo, entrando no .NET
-
OFF:
Se você der o peixe, o cara tem comida para hoje, se você ensinar a pescar, ele pode pegar o peixe dele todo o dia, sem depender de mim...
Quanto ao renomear, dei uma forma, mas existem mais de uma SEMPRE...
-
se você verificar a documentação do FSO, verá que pode renomear arquivos...
PS: costumo ensinar a pescar... e não dar o peixe...
-
-
se você quiser um em ASP, tem este de gratis q é muito bom..
-
<%
Dim SQL, rsAgenda, hoje, data, titulo, conteudo, nenos1, mais6
%>
<font color="#660000" size="4" face="Courier New, Courier, mono"><strong>AGENDA
</strong></font><font color="#660000" size="4" face="Courier New, Courier, mono"><b>
<%response.write hoje%><p>
</b></font><p>
<%
hoje = date()
nenos1 = DateAdd("d", -1, hoje)
mais6 = DateAdd("d", 6, hoje)
SQL = "Select * From agenda WHERE data > "&nenos1&" AND data < "&mais6&" ORDER by data ASC"
set rsAgenda = meubd.execute(SQL)
do until rsAgenda.eof
%>
<b><a href="index.asp"><%=rsAgenda("titulo")%></a></b> - <%=rsAgenda("data")%> - <%=rsAgenda("conteudo")%><br>
<%
rsAgenda.movenext
loop
meubd.close
set rsAgenda = nothing
set meubd = nothing
%>
-
você pode usar o FSO para fazer isso,
http://www.asp4developers.com.br/index.asp?modo=ver&id=l0540
-
eu particularmente, acho mais facl de trabalhar com campos texto, onde
sim = 1 e
não = 0
dai fica mais facil o manuseio dos dados,
sua consulta sql ficaria assim:
sql="Select * from tabela where estoque > 0 and status='1' "
tendeu?
-
strSQL = "SELECT Tabela1.cod, tabela1.ocorrencia, tabela1.Data,Tabela2.cod, tabela2.local, tabela2.filial, tabela2.complemento FROM tabela1 INNER JOIN tabela2 ON Tabela1.cod = Tabela2.cod"
lembrando que não é bom você usar nomes de campos iguais, mesmo sendo tabelas diferentes... pode dar problemas em alguns selects como este caso, q ele vai achar dois campos iguais...
-
-
a que desenvolvi, o cara vai comprando tudo, e vai colocando no carrinho de compras dele... todos os produtos... ai depois que o cara decidir fechar a compra, é que ele tem qeu fazer login...
fiz mais ou menos o mesmo jeito q o felipefrancesco fez, assim q o cara coloca a primeira coisa no carrinho, ele ganha um ID, e vai jogando os produtos no banco... e fica relacionado estes produtos com o ID principal q ele ganhou...
depois q ele decidir fazer a compra, faz login e puxa todos os produtos q ele adicionou no banco q são baseados no ID inicial... mais ou menos isso...
http://www.iporto.com/ip/pastas/index/index.asp
-
Função para calcular preço de venda.
Muito usado por empresas de informática, que compram seus produtos em Dólar.
<%ValorProduto = 44.00 'Valor do Produto em $ Dólares.
Taxas = 10 'Taxas que serão embutidas no valor em $ Dólares.
Dolar = 3.00 'Valor atual do $ Dólar, em R$ Reais.
PorcentagemLucro = 20 'Porcentagem de Lucro ganha encima do valor de custo.
Function PrecoDeVenda(ValorProduto,Taxas,ValorDolar,PorcentagemLucro)
Taxas = ValorProduto * Taxas / 100
ValorProduto = ValorProduto + Taxas
ValorProduto = ValorProduto * Dolar
Lucro = ValorProduto * PorcentagemLucro / 100
ValorProduto = ValorProduto + Lucro
PrecoDeVenda = FormatNumber(ValorProduto)
End Function
response.write PrecoDeVenda(ValorProduto,Taxas,ValorDolar,PorcentagemLucro)
%>
Desenvolvido por Luis Otávio - iPorto.com
-
Calcular o valor de uma parcela
Utilizando Juros simples.
<%Porcentagem = 1.9 'Porcentagem de juros ao mes
Valor = 7000 'Valor total da compra
Parcelas = 36 'Número de parcelas
function ValorParcelaJuroSimples(Porcentagem,Valor,Parcelas)
Taxa = valor * Porcentagem / 100
TotalJuros = Taxa * Parcelas
Resultado = (TotalJuros + Valor) / Parcelas
ValorParcelaJuroSimples = FormatNumber(Resultado)
end function
response.write ValorParcelaJuroSimples(Porcentagem,Valor,Parcelas)
%>
Desenvolvido por Luis Otávio - iPorto.com
Bom para quem quer saber de quanto será o valor de uma parcela.
-
Primeira contribuição.
Função para calcular o valor do frete...
Margem = 1'KG.Fixo = 6.80 'Valor do Frete.
Adicional = 1.80 'Valor a ser cobrado a cada quilo excedido.
PesoTotal= 26.50 'Peso de todos produtos juntos.
function CalculaFrete(Margem,Fixo,Adicional,PesoTotal)
Amais = PesoTotal / Margem
FreteAmais = Amais * Adicional
ValorFrete = Fixo + FreteAmais
CalculaFrete = FormatNumber(ValorFrete)
end function
response.write CalculaFrete(Margem,Fixo,Adicional,PesoTotal)
-
tudo o q você pode saber de uma imagem, usando FSO
http://www.asp4developers.com.br/index.asp?modo=ver&id=l0237
lembrando que se você poder usar algum componente de imagem, seu trabalho diminui para 4 linhas
-
não sei se já tem ai... mas fica ai minha contribuição:
Contador de visitas usando FSO
ai vai... so vou comentar as linhas... creio que já fica de facil entendimento...
<%' Vemos, se o IP que está gravado no CooKie não é igual ao IP atual.
if Request.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")
' Se for
then
' Não contamos uma visita para este usuario, apenas mostramos o total de visitas
' até o presente momento.
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set gravar = fso.OpenTextFile(server.MapPath("contador.txt"), 1, False)
' Lemos o valor atual do numero de visitas, e colocamos em uma variável.
total = gravar.readline
' Fechamos o objeto
gravar.close
' Limpamos ele
set gravar = nothing
' Printamos na tela o total de visitas atual.
response.write"Total de visitas: "&total
' Porém, se for a primeira visita do ser humano.
else
' Abrimos nosso arquivo que conta as visitas.
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.MapPath("contador.txt")
Set gravar = fso.OpenTextFile(caminho, 1, False)
' Guardamos o valor atual de visitas em uma variavel.
Linha = gravar.readline
' Adicionamos uma visita na quantidade de visitas atual.
total = linha + 1
' Fechamos o objeto
gravar.close
' Limpamos ele
set gravar = nothing
' Então, gravamos o novo valor de visitas.
Set GRAVAR = FSO.CreateTextFile(caminho,true)
gravar.write ""&total
' Fechamos o objeto
gravar.close
' Limpamos ele
set gravar = nothing
' Printamos na tela o número atual de visitas.
response.write"Total de visitas: "&total
' Fechamos o IF
end if
' Gravamos em um cookie o IP do visitante, para em que sua próxima visita
' não seja adicionada uma visita em nosso arquivo.
Response.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")
%>
Pronto.
Agora crie um arquivo chamado contador.txt e salve na mesma pasta que você irá rodar este arquivo com o codigo asp.
Coloque o valor inicial de visitas que você quer começar contanto. neste contador.txt
Por padrão, se colocaria 0 ( zero ) mas se você quiser começar contando de 100 ( cem ) você pode, basta colocar 100 ( cem ) na primeira linha do TXT.
-
se você falar qual o erro, é mais facil de dar a solução.
-
CTRL + C
CTRL + V
<%ip = Request.ServerVariables("remote_addr")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = server.MapPath("ip.txt")
Set GRAVAR = FSO.CreateTextFile(caminho,true,0)
gravar.write ""&ip
gravar.close
response.write "IP: "&ip&" gravado com sucesso."
%>
-
bem.. vamos mais uma vez.. hehe
tinha ficado assim ne
if lcase(request.queryString(n)) = "p" then
vamos trocar por
if request.queryString("p") = "p" theno q você tem q mudar é o q esta em vermelho... vamos ver se desta vez vai...
-
como você ta se conectando?
o mysql ta rodando certinhu? ta a sinaleirinha verde do lado do seu relogio...
-
<%
set conn = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("news.mdb")
conn.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
usa este codigo, e coloca o banco na mesma pasta onde estaum seus arquivos .asp q precisam usar o bd...
-
eu acho que nem rola.. para isso tem o NetQui, se você num gosta dos gringos, usa ele, é igual o orkut... so q é brasileiro...
e orkutBR, entra nas variações do nome atual... isso ainda pode gerar processos contra você...
mas... cadum - cadum...
-
acho que você anda fazendo confusão amigo...
isso é include
<!--#include file="nomedapágina.html" -->
e você coloca em paginas.asp para que a pagina fique incluida dentro da mesma que você ta acesando...
e SSI tem haver com segurança... e seu usa em paginas de linguagem dinamica geralmente, não em .htm ou .html...
SSI é quando uma pagina usa o protocolo HTTPS e fica o cadiado do Browser la embaixo, indicando que a pagina esta em ambiente seguro...
isso quer dizer... uma duvida, nada a ver com a outra... poderia explicar um pouco mais sua duvida?
-
valeu to usano o oto tópico agora....vo entra nesses sites agora pra ver.....ma o foda se algum pedi CPF porque ai pesa né..........falow
os de gratis num pedem CPF... o maximo que pedem é um endereço de e-mail funcionando... como não tem cobrança, num tem por que pedir CPF...
Onde Esta O Erro
em ASP
Postado