Ir para conteúdo

Negrito

Members
  • Total de itens

    48
  • Registro em

  • Última visita

Tudo que Negrito postou

  1. Negrito

    Global.ASA - Session_OnStart com Exceções

    Olá, Estou quebrando a cabeça com o recurso Session_OnStart , pois eu gostaria que algumas paginas/arquivos .asp tivessem exceções. Criei o Global.ASA com o seguinte contexto: <SCRIPT RUNAT=Server Language="VBScript"> Sub Session_OnStart startPage = "/default.asp" currentPage = Request.ServerVariables("SCRIPT_NAME") If strcomp(currentPage,startPage,1) then Response.Redirect("/default.asp") End If End Sub </SCRIPT> Ele funciona perfeitamente, quando tento acessar qualquer pagina ou subdiretorio diretamente pela URL, ele me joga para a pagina inicial. Porem, eu gostaria de ter exceções em alguns diretorios e paginas .ASP , onde eu gostaria de liberar o acesso direto ao digitar a URL. Alguem sabe me informar se é possivel ? Obrigado.
  2. Negrito

    ASP + MySQL - Paginação e Ranking

    Olá Pessoal, Converti o banco de dados de uma app em ASP Classico de MSSQL para MySQL para redução de custos e percebi que alguns componentes ou recursos não estão mais funcionando devido a não compatibilidade com o MySQL , como por exemplo a função : RecordCount Já consegui converter e atualizar 95% de aplicação para rodar com o MySQL, mas tem 1 item que esta tirando meu sono e após dias pesquisando, resolvi pedir ajuda. Segue o meu codigo abaixo , onde estou com problema no resultado dessa operação: <% ... Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorLocation = 3 RS.CursorType = 3 RS.ActiveConnection = Cn RS.Open strSQL, Cn, 3, 3 RS.PageSize = 25 RS.CacheSize = RS.PageSize intPageCount = RS.PageCount intRecordCount = RS.RecordCount If NOT (RS.BOF AND RS.EOF) Then If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 If intRecordCount > 0 Then RS.AbsolutePage = intPage intStart = RS.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (RS.PageSize - 1) End if End If If intRecordCount > 0 Then For intRecord = 1 to RS.PageSize QntExibicoes = QntExibicoes + Rs.fields("views") ... %> Já percebi que a função RecordCount não pode ser usada com o MySQL ou pelo menos não é compativel. A paginação esta funcionando ! Porem , não consigo fazer ele calcular a quantidade de linhas (rows) do MySQL com a função RecordCount e acredito que possa ter alguma outra função que não esta compativel , mas como não conheço MySQL , não posso afirmar. Enfim, algum pode me dar uma luz ? Desde já agradeço pela atenção. Obrigado.
  3. Negrito

    ASP + MySQL - Paginação e Ranking

    Finalmente, após algumas semanas, consegui concluir a migração do MS-SQL para MySQL , não foi facil e adianto que quem deseja fazer isso, pense 2x, pois não basta mudar apenas o banco de dados, existem muitas funções que não são compativeis e vão exigir reajustes e adaptações. Resumindo, tbm tive que avaliar toda a programação ASP do site! Por um lado, foi muito bom, pois consegui otimizar muitos recursos que estavam desatualizados
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.