Guest Gil Lima Postado Maio 23, 2008 Denunciar Share Postado Maio 23, 2008 Ola pessoal, sou novo em asp e sei muito pouco sobre programacao. Um amigo fez para mim um codigo para autenticar usu'arios numa pagina, que funcionava muito bem no ASP BABY Server, mas quando uso o mesmo codigo no IIS ele me da o seguinte erro:Active Server Pages error 'ASP 0245'********************************************************************************************Mixed usage of Code Page values/scripts/logon.asp, line 1The @CODEPAGE value specified differs from that of the including file's CODEPAGE or the file's saved format. ********************************************************************************************Pelo q eu entendi parece ser um erro de codigo misto! Mas eu realmente não achei nada q não parecesse VB!N~ao sei o que fazer, se alguém puder por favor me judar agradeceria imensamente!Abaixo segue o codigo do script de logon:********************************************************************************************<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/AKPI.asp" --><%Dim rs_Login__MMColParamrs_Login__MMColParam = "0"If (Request.Form("user") <> "") Then rs_Login__MMColParam = Request.Form("user")End If%><%Dim rs_Login__MMColParam2rs_Login__MMColParam2 = "0"If (Request.Form("password") <> "") Then rs_Login__MMColParam2 = Request.Form("password")End If%><%Dim rs_LoginDim rs_Login_numRowssql = "SELECT u.UserID, u.SurName, u.Name, t.Team, u.NameCountry, u.Group, c.ImgName, u.active, u.language_id, u.CodTeam "&_"FROM Tb_User u, Tb_Team t, Tb_Country c WHERE u.CodTeam = t.CodTeam AND u.NameCountry = c.NameCountry "&_" AND u.UserID = '" + Replace(rs_Login__MMColParam, "'", "''") + "' AND u.Password = '" + Replace(rs_Login__MMColParam2, "'", "''") + "' and active = true"Set rs_Login = Server.CreateObject("ADODB.Recordset")rs_Login.ActiveConnection = MM_AKPI_STRINGrs_Login.Source = sqlrs_Login.CursorType = 0rs_Login.CursorLocation = 2rs_Login.LockType = 1rs_Login.Open()rs_Login_numRows = 0%><% 'if (rs_Login.Fields.Item("UserID").Value = rs_Login__MMColParam) then if (NOT rs_Login.EOF) then Session("login_ok") = True Session("UserID") = rs_Login.Fields.Item("UserID").Value Session("fullName") = rs_Login.Fields.Item("SurName").Value & ", " & rs_Login.Fields.Item("Name").Value Session("Country") = rs_Login.Fields.Item("NameCountry").Value Session("Group") = rs_Login.Fields.Item("Group").Value Session("Team") = rs_Login.Fields.Item("Team").Value Session("CodTeam") = rs_Login.Fields.Item("CodTeam").Value Session("ImgName") = rs_Login.Fields.Item("ImgName").Value session("language") = rs_Login.Fields.Item("language_id").Value 'Response.Write(Session("Team")) Response.Redirect("../default.asp") %><% Else %><% Response.Redirect("../wronglogin.asp") %><% End If %><%rs_Login.Close()Set rs_Login = Nothing%> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Notax Postado Maio 24, 2008 Denunciar Share Postado Maio 24, 2008 Gil, experimenta assim: saca fora isso:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>testa e depois posta o resultado...[]'s Notax Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Gil Lima Postado Maio 25, 2008 Denunciar Share Postado Maio 25, 2008 Ol Notax! :D Origado pela resposta :D. Eu tentei fazer o q você recomendou dai ele me da outro erro :'(****************************************************************************Active Server Pages error 'ASP 0131'Disallowed Parent Path/scripts/logon.asp, line 1The Include file '../Connections/AKPI.asp' cannot contain '..' to indicate the parent directory. ****************************************************************************Eu já tirei as aspas duplas... coloquei simples... tirei as aspas e nada :( Tentei colocar o include do banco no codigo lofo depois do simbolo <% mas me dava:****************************************************************************ADODB.Recordset error '800a0bb9'Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another./scripts/logon.asp, line 25 ****************************************************************************Muito Obrigado, agradeco desde já sua ajuda :)[] Gil Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --notax -- Postado Maio 25, 2008 Denunciar Share Postado Maio 25, 2008 <!--#include file="../Connections/AKPI.asp" -->Onde está esse aarquivo: Connections/AKPI.asp? A mensagem de erro significa que este arquivo não está no diretório que você indicou... lembre-se que ../ faz subir um nível ou uma pasta! Veja onde está esta pasta Connections, depois poste aqui ok?Poste a estrutura de diretórios de seu aplicativo asp... ex: C:/iis/app/Connections/..., daí fica mais fácil de te ajudar;[]'s Notax Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Gil Lima Postado Maio 25, 2008 Denunciar Share Postado Maio 25, 2008 EEEE era isso mesmo Notax! Eu não saiba q o IIS tem um impedimento pra mudar de diretorios (ou algo assim :P ) depois q eu mudei os arquivos pro mesmo diretorio e alteris os enderecos voltou a funcionar :D.Eu so estou com um problema num popup agora!No firefox funciona direitinho... mas no IE7 ou no 6 não abre nada fica parado no script de logon... To usando esse cod pra abrir o popup:------------------------------------------------------------------------------------------------------------------------------------------------------response.write("<scr" & "ipt>" & vbCrLf) response.write("open(""..//centre/agentscenter.asp"",""Agents Center"",""width=780,height=650,scrollbars=no"");" & vbCrLf)response.write("</scr" & "ipt>") %> ------------------------------------------------------------------------------------------------------------------------------------------------------Tem alguma maneira de fazer os 2 navegadores abrirem essa janela?Abracao! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Notax Postado Maio 26, 2008 Denunciar Share Postado Maio 26, 2008 Acho que sim... mas daí penso que isso é com o pessoal do javascript ou do html/css... posta lá![]'s Notax Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Gil Lima
Ola pessoal, sou novo em asp e sei muito pouco sobre programacao.
Um amigo fez para mim um codigo para autenticar usu'arios numa pagina, que funcionava muito bem no ASP BABY Server, mas quando uso o mesmo codigo no IIS ele me da o seguinte erro:
Active Server Pages error 'ASP 0245'
********************************************************************************************
Mixed usage of Code Page values
/scripts/logon.asp, line 1
The @CODEPAGE value specified differs from that of the including file's CODEPAGE or the file's saved format.
********************************************************************************************
Pelo q eu entendi parece ser um erro de codigo misto! Mas eu realmente não achei nada q não parecesse VB!
N~ao sei o que fazer, se alguém puder por favor me judar agradeceria imensamente!
Abaixo segue o codigo do script de logon:
********************************************************************************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/AKPI.asp" -->
<%
Dim rs_Login__MMColParam
rs_Login__MMColParam = "0"
If (Request.Form("user") <> "") Then
rs_Login__MMColParam = Request.Form("user")
End If
%>
<%
Dim rs_Login__MMColParam2
rs_Login__MMColParam2 = "0"
If (Request.Form("password") <> "") Then
rs_Login__MMColParam2 = Request.Form("password")
End If
%>
<%
Dim rs_Login
Dim rs_Login_numRows
sql = "SELECT u.UserID, u.SurName, u.Name, t.Team, u.NameCountry, u.Group, c.ImgName, u.active, u.language_id, u.CodTeam "&_
"FROM Tb_User u, Tb_Team t, Tb_Country c WHERE u.CodTeam = t.CodTeam AND u.NameCountry = c.NameCountry "&_
" AND u.UserID = '" + Replace(rs_Login__MMColParam, "'", "''") + "' AND u.Password = '" + Replace(rs_Login__MMColParam2, "'", "''") + "' and active = true"
Set rs_Login = Server.CreateObject("ADODB.Recordset")
rs_Login.ActiveConnection = MM_AKPI_STRING
rs_Login.Source = sql
rs_Login.CursorType = 0
rs_Login.CursorLocation = 2
rs_Login.LockType = 1
rs_Login.Open()
rs_Login_numRows = 0
%>
<% 'if (rs_Login.Fields.Item("UserID").Value = rs_Login__MMColParam) then
if (NOT rs_Login.EOF) then
Session("login_ok") = True
Session("UserID") = rs_Login.Fields.Item("UserID").Value
Session("fullName") = rs_Login.Fields.Item("SurName").Value & ", " & rs_Login.Fields.Item("Name").Value
Session("Country") = rs_Login.Fields.Item("NameCountry").Value
Session("Group") = rs_Login.Fields.Item("Group").Value
Session("Team") = rs_Login.Fields.Item("Team").Value
Session("CodTeam") = rs_Login.Fields.Item("CodTeam").Value
Session("ImgName") = rs_Login.Fields.Item("ImgName").Value
session("language") = rs_Login.Fields.Item("language_id").Value
'Response.Write(Session("Team"))
Response.Redirect("../default.asp") %>
<% Else %>
<% Response.Redirect("../wronglogin.asp") %>
<% End If %>
<%
rs_Login.Close()
Set rs_Login = Nothing
%>
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.