2 messaggi dal 04 novembre 2005
Usando l'oggetto ASP "CreateTextFile" non riesco a creare un XML più grande di 25,6 MB.
Lo script in ASP che legge circa 50000 record su SQL Express funziona regolarmente ma interrompe il file xlm quando il file stesso arriva a questa dimensione.
Non viene generato nessun errore.
Ho provato di tutto sulle configurazioni di IIS, ma non riesco an andare oltre questo limite.
Avete qualche idea?

saluti a tutti
Maurizio
84 messaggi dal 10 agosto 2019
ciao ,avrai già controllato ma hai spazio sul disco su cui scrivi il file? ,se si prova a postare il codice oscurando password ed altri dati sensibili... , ciao
Modificato da surfernet123 il 20 settembre 2019 18:18 -
2 messaggi dal 04 novembre 2005
Grazie per l'attenzione: non ci sono problemi di spazi disco, ecco il codice:

<%

Dim OggFile, origine, OggTextStream
Set fs = CreateObject("Scripting.FileSystemObject")
strPath = Server.MapPath("/") & "/csv/file/kijiji"
'strPath = Server.MapPath("/") & "/"
if fs.FolderExists(strPath)=False then
fs.CreateFolder(strPath)
End IF

'elimina vecchi file
if fs.FileExists(strPath & "/prodotti_kijiji.xml") then
fs.DeleteFile(strPath & "/prodotti_kijiji.xml")
fs.DeleteFile(strPath & "/prodotti_kijiji.zip")
' Response.End()
end if



qry_gia_esportati="SELECT * FROM kijiji_controlloID"
rs1.Open qry_gia_esportati
Do Until rs1.EOF
IDkijiji=IDkijiji & "," & rs1("IDkijiji")
rs1.MoveNext
loop
rs1.Close
IDkijiji=IDkijiji & ","


qry_prodotto="SELECT " _
& " magazzino.IDmagazzino, magazzino.titolo, magazzino.descrizione_breve, magazzino.descrizione_lunga, magazzino.prezzo, magazzino.IDcategoria, magazzino.codice, magazzino.data_prezzo," _
& " produttori.ragione_sociale as produttore," _
& " distributori.ragione_sociale as distributore," _
& " categorie.categoria, categorie.categoria_uk, categorie.categoria_de, categorie.categoria_kijiji," _
& " iva.valore_iva," _
& " aree.area, aree.area_uk, aree.area_de, aree.idarea" _
& " FROM ((((magazzino " _
& " LEFT JOIN produttori ON magazzino.IDproduttore = produttori.IDproduttore)" _
& " LEFT JOIN distributori ON magazzino.IDdistributore = distributori.IDdistributore)" _
& " LEFT JOIN categorie ON magazzino.IDcategoria = categorie.IDcategoria)" _
& " LEFT JOIN iva ON magazzino.IDiva = iva.IDiva)" _
& " LEFT JOIN aree ON categorie.IDarea = aree.IDarea" _
& " WHERE (((magazzino.disponibile)=1) AND ((magazzino.visibile)=0) AND ((magazzino.IDcategoria)<>256) AND ((magazzino.IDcategoria)<>280) AND ((magazzino.IDcategoria)<>300) AND ((magazzino.titolo)<>'Nuovo prodotto') AND ((magazzino.pezzi)>0))" _
& " ORDER BY IDmagazzino ASC"
rs1.Open(qry_prodotto)
'comincia a scrivere nel file

'crea il file xml e lo apre
file_percorso="/csv/file/kijiji/prodotti_kijiji.xml"
origine=server.Mappath(file_percorso)

fs.CreateTextFile (origine)
Set OggFile = fs.GetFile (origine)
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine "<?xml version=""1.0"" encoding=""UTF-8""?>"
OggTextStream.WriteLine "<kijijipartners_xml>"
OggTextStream.WriteLine "<annunci>"


Do Until rs1.EOF


descrizione_lunga= TogliHtml(rs1("descrizione_lunga"))
if descrizione_lunga="" then descrizione_lunga= TogliHtml(rs1("descrizione_breve"))
titolo=TogliHtml(rs1("titolo"))
codice=rs1("codice")
IDchk="," & rs1("IDmagazzino") & ","

if instr(IDkijiji,IDchk)>0 then Enum_azione="Inserisci" else Enum_azione="Elimina"
if rs1("prezzo")>0 then
enum_tipo="SPECIFIED_AMOUNT"
prezzo=int(rs1("prezzo"))
Else
enum_tipo="PLEASE_CONTACT"
prezzo=""
End If
id_chk=id_chk & ", " & rs1("IDmagazzino")





OggTextStream.WriteLine "<annuncio><azione>"& Enum_azione &"</azione><id>" & rs1("IDmagazzino") & "</id><titolo><![CDATA[" & chk_tit(titolo) & "]]></titolo><descrizione><![CDATA[" & chk_tit(descrizione_lunga) & "]]></descrizione><categorie><categoria codice = """ & rs1("categoria_kijiji") & """></categoria></categorie><data_pubblicazione>" & rs1("data_prezzo") & "</data_pubblicazione><url_redirect><![CDATA[" & Application("startengine_indirizzosito") & "/store/_it/prodotto.asp?idp=" & rs1("IDmagazzino") & "]]></url_redirect><luoghi><comune codice = """ & codice_istat & """></comune></luoghi><salario><tipo_prezzo>"& enum_tipo & "</tipo_prezzo><ammontare>" & prezzo & "</ammontare></salario><email>" & Application("StartEngine_mail_gestore") & "</email><telefono>" & Replace(Application("startengine_tel"),"+39","") & "</telefono><venditore codice = ""2""></venditore>"

if fs.FileExists(server.Mappath("/") & "/archivio/fotografie/" & rs1("IDmagazzino") & ".jpg") then
OggTextStream.WriteLine "<pictures>"
OggTextStream.WriteLine "<picture_url>" & Application("startengine_indirizzosito") & "/archivio/fotografie/" & rs1("IDmagazzino") & ".jpg</picture_url>"
OggTextStream.WriteLine "</pictures>"
end if
OggTextStream.WriteLine "</annuncio>"




rs1.MoveNext

loop
rs1.close


OggTextStream.WriteLine "</annunci>"
OggTextStream.WriteLine "</kijijipartners_xml>"
OggTextStream.close



if id_chk<>"" then
id_chk = right(id_chk,len(id_chk)-1)
End If
'svuoto la tabella di controllo con i nuovi dati
qry_del="DELETE FROM kijiji_controlloID "
rs1.Open qry_del


a=Split(id_chk,",")

for each y in a


qry_insert="INSERT INTO kijiji_controlloID VALUES ("& y &");"
rs1.Open qry_insert
next

%>
<!--#include virtual="/startengine/componenti/aspZip.class.asp" -->
<%
' creo file .ZIP
dim zip, filepath
filepath = "/csv/file/kijiji/prodotti_kijiji.zip"
set zip = new aspZip
zip.OpenArquieve(filepath)
zip.Add(file_percorso)
zip.CloseArquieve()
set zip = nothing
%>
84 messaggi dal 10 agosto 2019
non ho visto niente di particolare,per rendere più leggibile tutto puoi utilizzare "<>" ovvero il tag per inserire codice,magari qualcuno più ferrato di me in vbscript (non è difficile :-) ) potrebbe dare un'opinione,ciao

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.