Jump to content


Photo

Ajuda!


  • Faça o login para participar
3 replies to this topic

#1 ::: Mr.Crowley :::

::: Mr.Crowley :::

    12 Horas

  • Usuários
  • 260 posts
  • Sexo:Não informado
  • Localidade:Balneário Camboriú - SC

Posted 06/07/2004, 23:46

Tipo de erro:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument
/uonline/login.asp, line 65

linha 65: set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, true)

ta dando esse erro ae...num entendi
me ajudem PLIS
o código ta abaixo!
completo...só tem esse arquivo!

<% option explicit

' --- Sistema de Usuários Online ---
' Feito por Ângelo Koichi Pereira Chida
' Email @ angelokpc@click21.com
' MSN @ angelokpc@hotmail.com
' ICQ # 299411363
' --- Todos os Direitos Reservados ao Próprio | Copyrighst 2004 ---

Response.Buffer = True
Response.lcid = 1045
Response.Expires = 60

dim objCon
dim objDrive
dim objDb
dim objSqlCon
dim objRs
dim objSqlRs
dim objSqlTotalUsuariosRs
dim objTotalUsuariosRs
dim objFso
dim objTxtAcessos
dim objSql
dim objNomeArqAcessos
dim rs
dim u_online
dim visitantes
dim total_u
dim totalv
dim total
dim user
dim pass
dim codigo
dim ncodigo
dim lembra_login
dim id

set objCon = server.createobject("adodb.connection")
objDrive = "driver={microsoft access driver (*.mdb)}"
objDb = "dbq="&server.mappath("dados.mdb")&""
objSqlCon = objDrive &";"& objDb
objCon.Open objSqlCon

objSqlRs = "select * from users where id like '%"&id&"%'"
set objRs = objCon.execute(objSqlRs)

objSqlTotalUsuariosRs = "select * from users where id like '%"&id&"%'"
set objTotalUsuariosRs = objCon.execute(objSqlTotalUsuariosRs)
objNomeArqAcessos = server.mappath("acessos.txt")


set objFso = server.createobject("Scripting.FileSystemObject")
set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, 1, true)

if not objTxtAcessos.AtEndOfStream then
totalv = CLng(objTxtAcessos.ReadAll)
else
totalv = 0
end if
objTxtAcessos.close
set objTxtAcessos = nothing

totalv = totalv + 1
set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, true)
objTxtAcessos.write totalv
objTxtAcessos.close
set objTxtAcessos = nothing
set objFso = nothing

if request.cookies("ulogin_japa") = false then
Sub Application_OnStart 
application("visitantes") = 0 
End Sub 

Sub Application_OnEnd 
End Sub 

Sub Session_OnStart 
application.lock 
application("visitantes") = application("visitantes")+1 
application.unlock 
End Sub 

Sub Session_OnEnd 
application.lock 
application("visitantes") = application("visitantes")-1 
application.unlock 
End Sub

else

Sub Application_OnStart 
application("ureg_on") = 0 
End Sub 

Sub Application_OnEnd 
End Sub 

Sub Session_OnStart 
application.lock 
application("ureg_on") = application("ureg_on")+1 
application.unlock 
End Sub 

Sub Session_OnEnd 
application.lock 
application("ureg_on") = application("ureg_on")-1 
application.unlock 
End Sub

end if

randomize
codigo = cint(rnd()*9)
ncodigo = codigo

u_online = application("ureg_on")
visitantes = application("visitantes")
total_u = objTotalUsuariosRs.recordcount
total_v = "<!--#include file=""acessos.txt""-->"
total = cint(u_online+visitantes)

user = request.cookies("ulogin_japa")("user")
pass = request.cookies("ulogin_japa")("pass")

if request.cookies("ulogin_japa") = true then
response.write "<font size=1 face=verdana color=black>"
response.write "<b>"&user&"</b>, Logado.<br>"
response.write "<br><b>Pessoas Online</b>: "&total&"."
response.write "<br><b>Usuário(s) Online</b>: "&u_online&"."
response.write "<br><b>Visitante(s)</b>: "&visitantes&"."
response.write "<br><b>Total de Usuários</b>: "&total_u&"."
response.write "<br><b>Total de Visitas</b>: "&totalv&"."
response.write "<br><a href=?logout style=""text-decoration: none;color: #000000"">Logout</a>"
response.write "</font>"
else

response.write "<script language=JavaScript src=""verifica_form.js""></script>"
response.write "<font size=1 face=verdana color=black>Código está incorreto!</font>"
response.write "<form name=form method=post action=login.asp OnSubmit=""verifica_form()"">"
response.write "<table bgcolor=white cellpadding=0 cellspacing=0 border=0 style=""border: 1px solid #000000"">"
response.write "<tr><td><font face=verdana size=1 color=black>Login: </font></td>"
response.write "<td><input type=text name=user value= style=""font-family: verdana;font-size: 11px""></td></tr>"
response.write "<tr><td><font face=verdana size=1 color=black>Senha: </font></td>"
response.write "<td><input type=password name=pass value= style=""font-family: verdana;font-size: 11px""></td></tr>"
response.write "<tr><td><font face=verdana size=1 color=black>Código: </font></td>"
response.write "<td>"&ncodigo&"<input type=text name=codigo value= style=""font-family: verdana;font-size: 11px""></td></tr>"
response.write "<tr><td colspan=2><input type=checkbox name=lembrar_login value=""sim"" style=""font-family: verdana;font-size: 11px""><font face=verdana size=1 color=black>Lembrar Login?</font></td></tr>"
response.write "<tr><td colspan=2><input type=submit name=submit value=""Logar"" style=""border: 3px solid #ffffff;background-color: #ffffff;font-family: verdana;font-size: 11px""></td></tr>"
response.write "</table></form>"

vncodigo = request.form("codigo")

if ncodigo <> vncodigo then
response.write "<font size=1 face=verda color=black>Código esta inválido</font>"
response.write "<a href=history.back(1)><< Voltar</a>"

else

user = request.form("user")
pass = request.form("pass")

response.cookies("ulogin_japa")("user") = request.form("user")
response.cookies("ulogin_japa")("pass") = request.form("pass")
if lembrar_login = "sim" then
response.cookies("ulogin_japa").expires = dateadd("d", 365, date())
end if

objSql = "select * from user='"&user&"' and pass='"&pass&"'"
set rs = conn.execute(objSql)
if not rs.eof then
response.write "<font size=1 face=verdana color=black>"
response.write "<b>"&user&"</b>, Logado.<br>"
response.write "<br><b>Pessoas Online</b>: "&total&"."
response.write "<br><b>Usuário(s) Online</b>: "&u_online&"."
response.write "<br><b>Visitante(s)</b>: "&visitantes&"."
response.write "<br><b>Total de Usuários</b>: "&total_u&"."
response.write "<br><b>Total de Visitas</b>: "&totalv&"."
response.write "<br><a href=?logout style=""text-decoration: none;color: #000000"">Logout</a>"
response.write "</font>"
else
response.write "User ou Login Inválidos"
response.write "<a href=history.back(1)><< Voltar</a>"
end if
end if
end if %>

=============================================

quando eu deleto o arquivo acessos.txt da pasta tem esse erro

Tipo de erro:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/uonline/login.asp, line 54

linha 54: set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, 1, true)

ajudem PLISSSSSSSSSSSS!!

Edição feita por: LeoB, 09/07/2004, 20:52.


#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 07/07/2004, 08:32

quando eu deleto o arquivo acessos.txt da pasta tem esse erro

Tipo de erro:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/uonline/login.asp, line 54

linha 54: set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, 1, true)

ajudem PLISSSSSSSSSSSS!!

na pasta onde esta fazendo essas manipulacoes, voice tem permissao para criacao de arquivos?
www.andrewsmedina.com.br

#3 ::: Mr.Crowley :::

::: Mr.Crowley :::

    12 Horas

  • Usuários
  • 260 posts
  • Sexo:Não informado
  • Localidade:Balneário Camboriú - SC

Posted 07/07/2004, 12:08

tp eu arrumei lá...ativei todas as permissões mas agora ta dando esse 2º erro

Tipo de erro:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/uonline/login.asp, line 54

linha 54: set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, 1, true)

#4 Felipe T.

Felipe T.

    Normal

  • Usuários
  • 79 posts
  • Sexo:Não informado

Posted 09/07/2004, 14:04

(y)

tp eu arrumei lá...ativei todas as permissões mas agora ta dando esse 2º erro

Tipo de erro:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/uonline/login.asp, line 54

linha 54: set objTxtAcessos = objFso.OpenTextFile(objNomeArqAcessos, 1, true)

continua com problema de Permission denied
vale a pena dar mais uma conferida...

Edição feita por: Felipe T., 09/07/2004, 14:04.

'***************************************
' FELIPE t.
' fgteixeira@pop.com.br
'***************************************




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq