download e creazione di file excel che prende dati da db
tonz79 non è online. Ultima attività: 30/04/2008 16.03.32tonz79
Inserito il: 24 aprile 2008 10.14
16 messaggi dal 21 apr 2008 Istalla Microsoft Silverlight!
ciao a tutti!dovrei inserire un link in pagina aspx attraverso il quale si scarica un file excel contenente dati presi da db
in asp bastava mettere nella pagina col link: <a href="tme_ent_mob_dett_xls.asp?territorio=<%=Request.QueryString("territorio")%>&amp;gruppo=<%=Request.QueryString("gruppo")%>"> e nella pagina che effettua la creazione del file excel:

<!-- #include file = accesso.inc -->
<!-- #include file = _private\connessione.inc -->
<%
'assegna il nome al file Excel che si desidera generare
Dim filename
filename = "tme_ent_mob_dett_xls"
'abilita la bufferizzazione
Response.Buffer = true
'definisce il tipo di documento
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=" &filename& ".xls"

Dim Tot(20), Tot1(20)
%>
<% Server.ScriptTimeOut = 8000 %>
<%
'Recupero i parametri
territorio = Request.QueryString("territorio")
gruppo = Request.QueryString("gruppo")

mysql = " SELECT TERRITORIO, GRUPPO_PREMIUM_CARE, ROW_ID, LAST_UPDATE, STATO, DATA_STIPULA_ORDINE, TEMPO_EVASIONE AS TEMPO_EFFETTIVO, TEMPO_IN_MERCE, TEMPO_EFFETIVO AS TEMPO_EVASIONE " &_
" FROM PASSO_4_DETTAGLIO_KPI_TME WHERE TERRITORIO = '"&territorio&"' AND GRUPPO_PREMIUM_CARE = '"&gruppo&"'"
query1 = Replace(mysql, "'", "''")
objRs.Source = mysql
objRs.Open
'crea la tabella del foglio Excel
Response.Write "<table border=1 cellpadding=2 align=center>"
Response.Write "<tr bgcolor=#BCBCBC>"
Response.Write "<th><font size=1 face=Verdana>TERRITORIO</font></th>"
Response.Write "<th><font size=1 face=Verdana>PREMIUM CARE</font></th>"
Response.Write "<th><font size=1 face=Verdana>CODICE ORDINE</font></th>"
Response.Write "<th><font size=1 face=Verdana>DATA CHIUSURA</font></th>"
Response.Write "<th><font size=1 face=Verdana>STATO</font></th>"
Response.Write "<th><font size=1 face=Verdana>DATA STIPULA</font></th>"
Response.Write "<th><font size=1 face=Verdana>TEMPO EFFETTIVO</font></th>"
Response.Write "</tr>"

While Not (objRs.EOF)
Response.Write "<tr bgcolor=#FFFF66>"
Response.Write "<td align=center><font color=#000000 size=1 face=Verdana>"& objRs.Fields("TERRITORIO") &"</font></td>"
Response.Write "<td align=center><font color=#000000 size=1 face=Verdana>"& objRs.Fields("GRUPPO_PREMIUM_CARE") &"</font></td>"
Response.Write "<td align=center><font color=#000000 size=1 face=Verdana>"& objRs.Fields("ROW_ID") &"</font></td>"
Response.Write "<td align=center><font color=#000000 size=1 face=Verdana>"& objRs.Fields("LAST_UPDATE") &"</font></td>"
Response.Write "<td align=center><font color=#000000 size=1 face=Verdana>"& objRs.Fields("STATO") &"</font></td>"
Response.Write "<td align=center><font color=#000000 size=1 face=Verdana>"& objRs.Fields("DATA_STIPULA_ORDINE") &"</font></td>"
Response.Write "<td align=center><font color=#000000 size=1 face=Verdana>"& objRs.Fields("TEMPO_EFFETTIVO") &"</font></td>"
Response.Write "</tr>"
objRs.MoveNext
Wend
objRs.Close
Response.Write "</table>"

'invia l'output HTML bufferizzato
Response.Flush
Response.End

'INIZIO TRACCIAMENTO DATI UTENTE
tracciamento = "INSERT INTO TRACCIAMENTO (USERNAME, IP, QUERY, PAGINA, DATA) "&_
"VALUES ('"& Session("login") &"', '"& Request.ServerVariables("REMOTE_ADDR") &"', '"& query1 &"', 'tme_ent_mob_dett_xls.asp', getdate())"
objConn.Execute tracciamento
'FINE TRACCIAMENTO DATI UTENTE
%>
<html><head><title>XLS KPI Tasso Chiamate Enterprise</title></head><body></body></html>
<!-- #include file = _private\chiudi_connessione.inc -->

come si traduce quindi la creazone di questo file excel che prende dati da db e il suo download .net?
Microsoft Employee
RE: download e creazione di file excel che prende dati da db
AlessC-MSFT non è online. Ultima attività: 24/07/2008 8.55.02AlessC-MSFT
Inserito il: 24 aprile 2008 22.44
contributi / Blog / 161 messaggi dal 04 giu 2007 Istalla Microsoft Silverlight!

Vai a:

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.


COMMUNITY
ULTIMI MESSAGGI


IN EVIDENZA
MISC
Powered by .db Forums