Errore "Al sito Web è connesso un numero eccessivo di utenti."

**mosquito70** · 07-09-2006, 14:34

Quello che faccio è un ciclo che lancia n-volte (per ora solo 4, ma potrebbero essere oltre mille) l'istruzione

dove la funzione javascript è

function f_aprichiudi(url)
{
opener.location.href=url;

}

Ho escluso self.close(); perchè non mi esegue nulla. :master:

Ah, la pagina che lancio è un file .asp che contiene codice fpdf, con fpdf.Outup(vc_nomefile.pdf)

La cosa bella è che mi crea sempre un numero diverso di file .pdf (1 oppure 2 dei 4 da creare)

Qualcuno sa perchè?

**santino83_11_04** · 07-09-2006, 18:19

senza codice uno può solo tirare ad indovinare...che stai facendo nella pagina?

**mosquito70** · 08-09-2006, 09:48

sorry

Ecco qua.

Da una pagina asp, leggendo i dati da una base dati (Oracle) estraggo alcuni valori e scrivo n-file di questo tipo (asp/fpdf)

<%
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("bollav vifile/"&vc_nomefile))

MyFile.WriteLine("<" & "%@language=vbscript%" & ">")
MyFile.WriteLine("")
MyFile.WriteLine("<" & "%")
MyFile.WriteLine("Set pdf=CreateJsObject(""FPDF"")")
MyFile.WriteLine("pdf.CreatePDF()")
MyFile.WriteLine("pdf.SetPath(""../fpdf/"")")
MyFile.WriteLine(" pdf.LoadExtension(""table"")")
MyFile.WriteLine(" pdf.LoadExtension(""testo"")")
MyFile.WriteLine("")
MyFile.WriteLine("//Imposta il font")
MyFile.WriteLine("")
MyFile.WriteLine("pdf.SetFont ""Times"","""",26")
MyFile.WriteLine("")
MyFile.WriteLine("pdf.Open()")
MyFile.WriteLine("pdf.LoadModels(""NumeroPagina"") ")
MyFile.WriteLine(" Set cnnSearch = Server.CreateObject(""ADODB.Connection"")")
MyFile.WriteLine(" cnnSearch.Open application(""ConnDB"")")
MyFile.WriteLine("")
MyFile.WriteLine("sqlprinci =""SELECT * FROM V_Asp_repoanagbollavvi WHERE CODI_BOLL_AVVI="&vn_codibollavvi&""" ")
MyFile.WriteLine(" Set rsprinci = cnnSearch.Execute(sqlprinci)")
MyFile.WriteLine(" ")
MyFile.WriteLine(" if not rsprinci.EOF then")
MyFile.WriteLine("")
MyFile.WriteLine(" pdf.AddPage()")
MyFile.WriteLine(" ")
MyFile.WriteLine(" pdf.SetFont ""Times"",""B"",30")
MyFile.WriteLine(" pdf.Cell 60,50,""SIAG"",0,0")
MyFile.WriteLine("")
MyFile.WriteLine(" pdf.Table.Border.Width = 0.1")
MyFile.WriteLine(" pdf.Table.Border.Color=""CC0000""")
MyFile.WriteLine(" ' pdf.Table.Fill.Color=""C9C8C0""")
MyFile.WriteLine(" pdf.Table.TextAlign = ""L""")
MyFile.WriteLine("")
MyFile.WriteLine(" pdf.SetColumns 50")

... istruzioni varie...

MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine(" ")
MyFile.WriteLine(" i=0")
MyFile.WriteLine(" end if")
MyFile.WriteLine(" ")
MyFile.WriteLine(" Loop")
MyFile.WriteLine(" ")
MyFile.WriteLine(" end if ")
MyFile.WriteLine("")
MyFile.WriteLine("pdf.Output(""c:\www.xxxx\bollavvifile\bollavvi_"&vc_nomefilepdf&".pdf"")")
MyFile.WriteLine("")
MyFile.WriteLine(" cnnSearch.Close")
MyFile.WriteLine(" Set cnnSearch = Nothing")
MyFile.WriteLine("")
MyFile.WriteLine("%" & ">")

MyFile.Close

%>

(Nota questo è un file esterno che richiamo dal file report.asp nel seguente modo

Quindi creato il file .asp/fpdf, scrivo questa istruzione nel file report.asp (ho incluso anche l'istruzione di loop

<%
response.write vc_listcodiavvi
' Prima di passare al prossimo cliente scrivo il file relativo
%>

<script> javascript:f_aprichiudi('bollavvifile/<%=vc_nomefile%>');</script>
<%
' Prossimo cliente
rsrelaservazie.MoveNext
Loop

end if

rsrelaservazie.Close
Set rsrelaservazie = Nothing
%>

dove la funzione (banale) javascript è scritta così

<head>
<link rel="stylesheet" href="CSS/stampe.css" type="text/css" id="fogliodistile">
</head>

<SCRIPT LANGUAGE="JavaScript">
function f_aprichiudi(url)
{
opener.location.href=url;
}

</SCRIPT>

Spero che qualcuno mi possa dare un'aiutino

**mosquito70** · 08-09-2006, 10:23

ho aumentato il limite massimo di connessioni portandole da 10 a 20 (anche se mi avverte che sto violando i termini della licenza

).

Ora non mi da più l'errore ma mi "salta" un file tra quelli che mi dovrebbe elaborare. La sequenza (in ordine alfabetico) dei file asp/fpdf è

1_10.asp
42990_10.asp
42999_10.asp
43000_10.asp

dopo l'elaborazione
1_10.pdf
42990_10.pdf
--- Manca questo ---
43000_10.pdf

**mosquito70** · 08-09-2006, 11:11

"Posto" anche la parte di codice del file report.asp, con i due cursori annidati. PErchè credo che il problema sia proprio qui.
Infatti l'output che mi dà è molto strano :master:

CODIAVVI - 3,13,14,16
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI -
1_10.asp
CODIAVVI - 3,10,14,16
42990_10.asp
CODIAVVI -
42990_10.asp
CODIAVVI - 3,13,14
42999_10.asp
CODIAVVI - 13,14,16
43000_10.asp

Il codice è il seguente (viene effettuata anche una insert in tabella)

<%
selectrelaservazie = "select CODI_AZIE "_
&" from v_asp_relaservazie "_
&" where DESC_SERV like '%GARE%' "_
&" GROUP BY CODI_AZIE;"

' response.write selectrelaservazie

Set rsrelaservazie = con.Execute(selectrelaservazie)

if not rsrelaservazie.EOF then

i=0

Do While Not rsrelaservazie.EOF

i=i+1
iprinci=0

vc_listcodiavvi=""
vc_listcodiavviapici=""

vn_codiazie = rsrelaservazie("CODI_AZIE").Value

%>

<%
selectprinci= "SELECT a.codi_avvi, a.NUME_AVVI "_
&" FROM V_Asp_repoanagbollavvi a, "_
&" v_asp_relaavviprov b, "_
&" v_asp_relaavvidettcate c, "_
&" v_asp_gestazieinte d "_
&" WHERE a.CODI_BOLL_AVVI= " & vn_codibollavvi &" "_
&" AND a.codi_avvi=b.codi_avvi "_
&" AND a.codi_avvi=c.codi_avvi "_
&" AND (c.codi_dett_cate=d.codi_dett_cate "_
&" OR b.codi_prov=d.codi_prov) "_
&" AND d.codi_azie= " & rsrelaservazie("CODI_AZIE").Value &" "_
&" group by a.codi_avvi,a.nume_avvi; "

Set rsprinci = con.Execute(selectprinci)

if not rsprinci.EOF then

Do While Not rsprinci.EOF

iprinci=iprinci+1

%>

<%
if (iprinci = 1) then
%>

<% ' Insert

vc_pathfile = "bollavvifile\"

vc_nomefile = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi &".asp"
vc_nomefilepdf = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi

iStoredProc = 4
set command = Server.CreateObject("ADODB.Command")
command.ActiveConnection = con
command.CommandText = "PR_MODISTORBOLLAVVIAZIE"
command.CommandType = iStoredProc

'PAREMETRI INPUT
set objParameter = command.CreateParameter ("VN_CODIBOLLAVVI",200,1,10,vn_codibollavvi)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_ROWID",200,1,10,"")
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VN_CODIAZIE",200,1,200,vn_codiazie)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_PATHFILE",200,1,200,vc_pathfile)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_NOMEFILE",200,1,2000,vc_nomefile)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_USERPROC",200,1,50,vc_userconn)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_CODITIPOOPER",200,1,2,"I")
command.Parameters.Append objParameter
'PAREMETRI OUTPUT
set objParameter = command.CreateParameter ("vc_codierro",200,2,16)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("vc_descerro",200,2,200)
command.Parameters.Append objParameter
command.Execute , , adExecuteNoRecords
' VERIFICO EVENTUALI ERRORI
vc_risuinse = command.Parameters("vc_descerro")
vc_codirisuinse = command.Parameters("vc_codierro")

' Response.write "esito " & vc_risuinse

' if vc_codirisuinse="2" then
' response.redirect "../modianagprog.asp?codice="&vn_codice&"&err="&vc_cod irisuinse&"&descerro="&vc_risuinse
' else
' response.redirect "../inseanagprog.asp?err="&vc_codirisuinse&"&descerro= "&vc_risuinse
' end if

%>

<%
vc_listcodiavvi=rsprinci("CODI_AVVI")

'response.write vc_listcodiavvi
%>
<%
else
%>
<%'=rsprinci("CODI_AVVI").Value%> <%'=rsprinci("NUME_AVVI").Value%>
<%
vc_listcodiavvi=vc_listcodiavvi&","&rsprinci("CODI _AVVI").Value

'response.write vc_listcodiavvi
end if
%>
<%

rsprinci.MoveNext
Loop

end if

%>

<%
response.write "CODIAVVI - " & vc_listcodiavvi %>

<%
' Prossimo cliente

rsrelaservazie.MoveNext

%>

<% response.write vc_nomefile %>

<script> javascript:f_aprichiudi('bollavvifile/<%=vc_nomefile%>');</script>

<%
For cresci=1 to 60000

cresci=cresci+1

Next
%>
<%

Loop

end if

rsprinci.Close
Set rsprinci = Nothing

rsrelaservazie.Close
Set rsrelaservazie = Nothing
%>

**mosquito70** · 08-09-2006, 12:49

l'ho scritta un pò più chiara (e indentata)

<% ' Estrazione CodiAzie da RelaServAzie

' METTERE CONTROLLO SU DATA INIZIO E DATA FINE

selectrelaservazie = "select CODI_AZIE "_
&" from v_asp_relaservazie "_
&" where DESC_SERV like '%GARE%' "_
&" GROUP BY CODI_AZIE;"

' response.write selectrelaservazie

Set rsrelaservazie = con.Execute(selectrelaservazie)

if not rsrelaservazie.EOF then
Do While Not rsrelaservazie.EOF
iprinci=0

vc_listcodiavvi=""
vc_listcodiavviapici=""

vn_codiazie = rsrelaservazie("CODI_AZIE").Value

selectprinci= "SELECT a.codi_avvi, a.NUME_AVVI "_
&" FROM V_Asp_repoanagbollavvi a, "_
&" v_asp_relaavviprov b, "_
&" v_asp_relaavvidettcate c, "_
&" v_asp_gestazieinte d "_
&" WHERE a.CODI_BOLL_AVVI= " & vn_codibollavvi &" "_
&" AND a.codi_avvi=b.codi_avvi "_
&" AND a.codi_avvi=c.codi_avvi "_
&" AND (c.codi_dett_cate=d.codi_dett_cate "_
&" OR b.codi_prov=d.codi_prov) "_
&" AND d.codi_azie= " & rsrelaservazie("CODI_AZIE").Value &" "_
&" group by a.codi_avvi,a.nume_avvi; "

Set rsprinci = con.Execute(selectprinci)

if not rsprinci.EOF then
Do While Not rsprinci.EOF

iprinci=iprinci+1

if (iprinci = 1) then

' Insert in StorBollavvi

vc_pathfile = "bollavvifile\"
vc_nomefile = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi &".asp"
vc_nomefilepdf = rsrelaservazie("CODI_AZIE").Value &"_"&vn_codibollavvi

iStoredProc = 4
set command = Server.CreateObject("ADODB.Command")
command.ActiveConnection = con
command.CommandText = "PR_MODISTORBOLLAVVIAZIE"
command.CommandType = iStoredProc

'PAREMETRI INPUT
set objParameter = command.CreateParameter ("VN_CODIBOLLAVVI",200,1,10,vn_codibollavvi)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_ROWID",200,1,10,"")
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VN_CODIAZIE",200,1,200,vn_codiazie)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_PATHFILE",200,1,200,vc_pathfile)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_NOMEFILE",200,1,2000,vc_nomefile)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_USERPROC",200,1,50,vc_userconn)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("VC_CODITIPOOPER",200,1,2,"I")
command.Parameters.Append objParameter

'PAREMETRI OUTPUT
set objParameter = command.CreateParameter ("vc_codierro",200,2,16)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("vc_descerro",200,2,200)
command.Parameters.Append objParameter
command.Execute , , adExecuteNoRecords

' VERIFICO EVENTUALI ERRORI
vc_risuinse = command.Parameters("vc_descerro")
vc_codirisuinse = command.Parameters("vc_codierro")

' Al primo giro valorizzo listcodiavvi
vc_listcodiavvi=rsprinci("CODI_AVVI")
else
vc_listcodiavvi=vc_listcodiavvi&","&rsprinci("CODI _AVVI").Value

'response.write vc_listcodiavvi
end if

rsprinci.MoveNext
Loop

end if

response.write "CODIAVVI - " & vc_listcodiavvi %>

<%
' Prossimo cliente
rsrelaservazie.MoveNext
%>

<%
response.write vc_nomefile %>

<%
Loop
end if

rsprinci.Close
Set rsprinci = Nothing

rsrelaservazie.Close
Set rsrelaservazie = Nothing
%>

Lo so che è una banalità, ma

**mosquito70** · 08-09-2006, 13:40

ragazzi, ho risolto in un'altro modo.

Non so per quale motivo, ma l'apertura della pagina gli dava qualche problema se era all'interno del doppio cursore :master:

Ho fatto così:
Utilizzo i dati appena caricati nella tabella STORBOLLAVVIAZIE (che tanto mi servono come storico e per l'invio successivo delle mail), facendo un nuovo banalissimo cursore. Il tutto ora funziona...anche se ancora ho il problema dell'ultima pagina bianca che va a sostituirmi alla pagina iniziale report.asp

Un saluto a tutti e grazie per la pazienza (spero che vi possa essere in qualche modo di aiuto questo topic)

' Cursore separato per lancio scrittura file .pdf

selectfilepdf = "select PATH_FILE, NOME_FILE "_
&" from storbollavviazie "_
&" WHERE DATA_SPED_FILE is not null "_
&" ORDER BY NOME_FILE;"

' response.write selectfilepdf

Set rsfilepdf = con.Execute(selectfilepdf)

if not rsfilepdf.EOF then
Do While Not rsfilepdf.EOF

vc_nomefile = rsfilepdf("NOME_FILE").Value

' response.write "NOME_FILE - " & rsfilepdf("NOME_FILE").Value
response.write "NOME_FILE - " & vc_nomefile %>
<%

%>

<script> javascript:f_aprichiudi('bollavvifile/<%=vc_nomefile%>');</script>
<%
rsfilepdf.MoveNext
Loop

end if

rsfilepdf.Close
Set rsfilepdf = Nothing
%>

**santino83_11_04** · 09-09-2006, 01:04

vedi ragionando alla fine si trova sempre una soluzione...basta non farsi prendere dal panico

**mosquito70** · 09-09-2006, 20:56

chi non riesce a perdere la pazienza, possiede una grande virtù

Ancora però non sono riuscito a risolvere del tutto il problema... infatti il reindirizzamento si va ad aprire sulla pagina madre, quella principale che non vorrei fosse "toccata"

Questa è la funzione che utilizzo è la seguente.

function f_aprichiudi(url)
{
opener.location.href=url;
}

Sarà una banalità capirlo, ma per me a digiuno di javascript, proprio non la comprendo.
Infatti questa istruzione reindirizza sulla pagina "madre"...ma non riesco invece a farla indirizzare sulla stessa pagina oppure su un'altra o meglio ancora non farla indirizzare da nessuna parte (quest'ultima soluzione è la più desiderata

)

Come si fa?

ps. ho chiesto anche sul forum javascript... :rollo:

**santino83_11_04** · 10-09-2006, 04:17

codice:

opener.location.href=url;

al posto di opener metti window (se hai aperto questa paGINA IN popup) altrimenti vai sul forum di javascript e chiedi li

Discussione: Errore "Al sito Web è connesso un numero eccessivo di utenti."

Strumenti discussione

Ricerca discussione

Visualizza

Errore "Al sito Web è connesso un numero eccessivo di utenti."

Permessi di invio