cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Posts postados por cyberalexxx
-
-
tenta assim:
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
nomearquivo = server.mappath("/sistema/instalar.asp")
Set arquivo = FSO.OpenTextFile(nomearquivo,2,false,0)
arquivo.writeline ("<" & "%")
arquivo.WriteLine ("Response.write " & chr(34) & "response.write ""texto""" & chr(34))
arquivo.writeline "blabla bla bla bla bla bla bla bla"
%>
-
certo...outra coisa...q q é esses negocios de chr(34)
CHR(34) = "
se voce colocar o " ele entende como final de string ai vira uma zica só!!
-
-
hum isso é trash..
mas tipw...usando o exemplo do cyberalex...não daria pra fazer tipw assim?:
<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set arquivo = FSO.OpenTextFile("c:\teste\novapagina.asp",2,false,0) arquivo.writeline ("<" & "%") arquivo.WriteLine ("Response.write " & chr(34) & "response.write ""texto""" & chr(34)) blabla bla bla bla bla bla bla bla %>
tem que mandar gravar no arquivo:
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set arquivo = FSO.OpenTextFile("c:\teste\novapagina.asp",2,false,0)
arquivo.writeline ("<" & "%")
arquivo.WriteLine ("Response.write " & chr(34) & "response.write ""texto""" & chr(34))
arquivo.writeline "blabla bla bla bla bla bla bla bla"
%>
-
voce pode criar um arquivo asp da mesma maneira que voce criar qualquer outro documento padrão ASCII, exemplo:
-
-
na pagina que lista os dados armazene o numero da pagina em uma session:
-
-
só pra testar, retire o "on error resume next" e execute para poder mostrar qual o erro.
-
já tentou usar vbcrlf
-
e o sql?
e o mysql?
Ai já não sei!!
No MySql 4.1 que eu uso aki pra testes (configurado no modo developer) ele vem como default o numero máximo de 100 conexões, consegui alterar através do Adminstrator para 999999
-
Limitações access:
Numero de registros: limitado em tamanho 2.1GB
Conexões simultaneas: 255 conexões
-
<%
Option Explicit
%>
<html>
<head>
<!--#include file="adob.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="dr_ary.css" rel="stylesheet" type="text/css">
<%
Dim varDta, sqlCons, rsHoje
Dim dia, mes, ano
Dim ddia, dmes, dano, dataformatada
varDta = Date
Session.LCID=1033
sqlCons = " SELECT * FROM dates WHERE datta = #"& varDta &"# ORDER BY hora "
call abre_conexao
set rsHoje = Conexao.execute(sqlCons)
%>
<%
dia = day(now)
mes = month(now)
ano = year(now)
if dia < 9 then
dia = 0 & dia
end if
if mes < 9 then
mes = 0 & mes
end if
response.write ""& dia &"/" & mes & "/" & ano & " "%>-</span></div><br>
<%
if not rsHoje.eof then
%>
<%
dano = year(rsHoje("datta"))
dmes = month(rsHoje("datta"))
ddia = day(rsHoje("datta"))
if dmes < 9 then
dmes = "0" & dmes
end if
dataformatada = ddia & "/" & dmes & "/" & dano
%>
<%
while not rsHoje.eof
%>
<tr>
<td class="link"><%= rsHoje("paciente") %></td>
<td class="link"><%= dataformatada %></td>
<td class="link"><%= rsHoje("hora")%>:00</td>
<td class="link"><%= rsHoje("cirurgia")%></td>
</tr>
<%
rsHoje.MoveNext
if not rsHoje.eof then
%>
<tr>
<td class="link"><%= rsHoje("paciente") %></td>
<td class="link"><%= dataformatada %></td>
<td class="link"><%= rsHoje("hora")%>:00</td>
<td class="link"><%= rsHoje("cirurgia")%></td>
</tr>
<%
rsHoje.MoveNext
endif
%>
</table>
<%
wend
else
%>
</body>
</html>
<%
Set rsHoje = Nothing
%>
-
<%Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set pasta = FSO.GetFolder("c:\pasta") Set arquivos = pasta.Files For each arq in arquivos response.write "<a href='" & arq.name &"'>" & arq.name" & "</a><br>" next%>
-
O jeito bacana a q você se refere seria um banco de dados, mais como não é possível, vou na mesma linha do fercosmig usar arquivo texto de prefencia em um diretório protegido e com os dados criptografados ai na pagina que valida o login você coloca a função para decodificar os dados do arquivo texto.
-
-
poste o código!!
-
cyberalexxx,
valeu cara, então vou começar aqui a implementar com o banco mesmo!
abraço!
Acho que é o melhor a se fazer, como voce já deve ter uma tabela de usuários é só criar um campo de ultimo acesso que iria substituir o cookie.
-
Pra fazer isso que voce quer seria necessário um banco de dados!!
o cookie fica armazenado na maquina do client!!
-
http://www.aspclube.net
No menu esquerdo, tem a opção QUIZ na área de ASP, lá existem várias perguntas sobre ASP.
legalzinho o quiz!!! bom pra iniciantes!!
Gostei dessa:
Onde o código de ASP executado?( ) No servidor de web
( ) No browser do cliente
( ) Em qualquer máquina
( ) Segundo notícias em algum lugar no Estado de Washington
-
já sei!!
o sistema acha que o valor date() é direfente do valor do cookie, uma solução é converter tudo para tipo data, exemplo:
<!--#include file="funcoes.asp"--><%
' RECUPERO OS VALORES PASSADO NO FORM login = request.form("txt_login")
senha = request.form("txt_senha")
' CHAMA FUNÇÃO DE VALIDAÇÃO DO LOGIN E SENHA, FUNCIONANDO CORRETAMENTE, SE LOGADO RETORNA PARA ESSA PAG. login_senha login, senha
' AQUI QUERO GUARDAR O LOGIN DO USUARIO QUE ENTROU
Response.Cookies("login") = login
Response.Cookies("login").Expires = #01/02/2006#
'VERIFICAR SE O USUÁRIO já ACESSOU O SITE HOJE E AUMENTAR CONTADOR CASO NÃO.
if Cdate(request.cookies("ultimo_acesso")) <> Cdate(date()) then
application("contador") = application("contador") + 1
response.cookies("ultimo_acesso") = date()
end if
' MOSTRA NA TELA O VALOR DE CONTADOR
response.write(application("contador"))
%>
-
tenta isso:
<!--#include file="funcoes.asp"-->
<%
' RECUPERO OS VALORES PASSADO NO FORM login = request.form("txt_login")
senha = request.form("txt_senha")
' CHAMA FUNÇÃO DE VALIDAÇÃO DO LOGIN E SENHA, FUNCIONANDO CORRETAMENTE, SE LOGADO RETORNA PARA ESSA PAG. login_senha login, senha
' AQUI QUERO GUARDAR O LOGIN DO USUARIO QUE ENTROU
Response.Cookies("login") = login
Response.Cookies("login").Expires = #01/02/2006#
'VERIFICAR SE O USUÁRIO já ACESSOU O SITE HOJE E AUMENTAR CONTADOR CASO NÃO.
if request.cookies("ultimo_acesso") <> date() then
application("contador") = application("contador") + 1
response.cookies("ultimo_acesso") = date()
end if
' MOSTRA NA TELA O VALOR DE CONTADOR
response.write(application("contador"))
%>
-
vou aplicar os exemplo do Kuroi em cima da minha lógica postada anteriormente:
sql = Select Month(data) as Mes from Tabela Group By Month(Data) set rs = conexao.execute(sql) Do while not rs.eof Response.write "Mes: " & rs("mes") & "<br>" sql2 = Select Top 3 Campo1, Campo2 from Tabela Where Month(Data) =" & rs("mes") conexao.execute(sql2) Do while not rs2.eof 'mostra os dados Rs2.MoveNext loop rs.movenext loop
-
entaum a solução é fazer o contador usando application
e fazer a validação se o usuário já acessou o site usando cookies
Permissão Negada
em ASP
Postado
Voce não tem algum software que bloqueia scripts nesta maquina, tipo o Norton Antivirus???