Bardzo długie wczytywanie strony w trakcie i po zalogowaniu Opcje

[pio123]

Witam,

Gdy tylko próbuję zalogować się jako użytkownik korzystając z bazy danych, strona bardzo, bardzo długo się wczytuje. Czas oczekiwania dochodzi nawet momentami do 8 minut. W zalezności od serwera cza się zmienia na krótszy lub dłuższy, jednak i tak najkrótszy czas oczekiwania jaki udało mi się osiągnąc to... minuta. Bardzo długo, zwłaszcza że strona nie ma dużej zawartości.

Zastanawiam się, czy to może mieć związek z tym, że host to nie "localhost", lub może jakieś dziwne pętle w kodzie. Z analiz podobno strona zapętla się ponad 30000 razy. Mam kod pliku odpowiadającego za łączenie z bazą danych. Czy jest tam coś, co może powodować zapętlenie?

[XML] pobierz, plaintext 
<%	
dim DBPath,conn	
set conn = server.createobject("ADODB.connection")
'conn.Open "Driver= {SQL Server};Server=ADRES;Database=XXXXXXXXX;Uid=XXXXXXXXX;Pwd=XXXXXXXXX;useUnicode=t
rue;characterEncoding=UTF-8;"	
conn.Open "Driver= {SQL Server};Server=INNY ADRES?DLACZEGO?;Database=XXXXXXXXX;Uid=XXXXXXXXX;Pwd=XXXXXXXXX;useUnicode=true;characterEncodin
g=UTF-8;encrypt=true;"	
%>
[XML] pobierz, plaintext 

I jeszcze jeden plik zaicludowany:

[XML] pobierz, plaintext 
<% 
 
Dim BlackList, ErrorPage, sa
 
 
BlackList = Array("--","'")
 
 
ErrorPage = "error.asp"
 
Function HasForbiddenContent(str) 
'  On Error Resume Next 
  
  Dim lstr 
  
  If ( IsEmpty(str) ) Then
    HasForbiddenContent = false
    Exit Function
  ElseIf ( StrComp(str, "") = 0 ) Then
    HasForbiddenContent = false
    Exit Function
  End If
  
  lstr = LCase(str)
  
  For Each sa in BlackList
  
    If ( InStr (lstr, sa) <> 0 ) Then
      HasForbiddenContent = true
      Exit Function
    End If
 
  Next
 
  HasForbiddenContent = false
 
End Function 
 
 
'  Check form data
For Each sa in Request.Form
  If ( HasForbiddenContent(Request.Form(sa)) ) Then
    Response.Redirect(ErrorPage)  
  End If
Next
 
 
'  Check query string
For Each sa in Request.QueryString
  If ( HasForbiddenContent(Request.QueryString(sa)) ) Then
    Response.Redirect(ErrorPage)
  End If
Next
 
%>
[XML] pobierz, plaintext 

Ten post edytował pio123 10.06.2016, 22:53:25

[Tomplus]

Analizowałeś zapytanie po kolei? Dopisując kolejne moduły warunkowe?