[asp.net+bootstrap], preview di un file

**Kahm** · 20-05-2016, 21:19

salve a tutti
ho una pagina che usa bootstrap
cliccando su un file, dovrei far visualizzare un popup nel quale mostrare l'anteprima
ho fatto una ricerca, sembra facile sapendo che sia solo PDF ma potrebbe anche essere un word o altro
per ora sono riuscito a gestire il popup e mandare un parametro
per l'anteprima mi aiuta in qualche modo?

ho visto che il download lo facilita, ma non sono riuscito a trovare uqalcosa per i preview!

**djciko** · 21-05-2016, 02:09

non credo che asp.net c'entri molto...

**Kahm** · 21-05-2016, 09:17

con questo codice, costruisco il link per far scaricare l'allegato:

codice:

allegato += "<a href='#' pagina='popallegato.aspx?allegato=" + dr.id_allegato + "&idRich=" + id + "' class='AllegatoPopup'>";

iol problema ora è far apparire l'anteprima
ho messo su asp.net in quanto costruisco io tutto, ma penso che hai ragione

**vic53** · 25-05-2016, 08:50

se ti puo essere utile ti posto il file che ho scritto e utilizzo per visualizzare i PDF che creo al volo in ASP...
il filename che utilizzo è VisualizzaPDF.asp. e gli passo il parametro filename via querystring
tipo "VisualizzaPDF.asp?filename=xxxxx.pdf"

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
for i=1 to Request.QueryString("filename").Count 
  filename =  Request.QueryString("filename")(i) 
next
%>
<html>
<head>
<title>Visualizza File pdf in un div...</title>
<script language="javascript" type="text/javascript" >
function ReturnBack() {
 self.close();
}
</script>    
<meta http-equiv="Content-Type" content="application/pdf; charset=iso-8859-1" />    
</head>
<body >
<input type="button"  onclick="ReturnBack()" value=" back " />
<div id="pdf">
        <object width="1024" height="768" type="application/pdf" data="<%=filename %>?#zoom=100&scrollbar=1&toolbar=1&navpanes=0"
            id="pdf_content">
<p>Verificare se   installata la versione di Acrobat Reader richiesta per visualizzare i file PDF...</p>
        </object>
    </div>
</body>
</html>
<%
response.flush()
%>

**cassano** · 25-05-2016, 09:28

Ma questo "
ta http-equiv="Content-Type" content="application/pdf; charset=iso-8859-1" /> " visto che c'è anche un bottone nella pagina non crea problemi ?

**vic53** · 25-05-2016, 14:42

Originariamente inviata da cassano

Ma questo "
ta http-equiv="Content-Type" content="application/pdf; charset=iso-8859-1" /> " visto che c'è anche un bottone nella pagina non crea problemi ?

lo hai provato l'esempio?

**Kahm** · 25-05-2016, 15:55

Originariamente inviata da vic53

lo hai provato l'esempio?

per i PDF va bene
ma per file word mi da errore : I tag Object devono contenere un attributo Class, ClassID o ProgID.
ora devo capire quale class o PROgID devo mettere per ogni tipo di file

**vic53** · 25-05-2016, 22:42

Originariamente inviata da Kahm

per i PDF va bene
ma per file word mi da errore : I tag Object devono contenere un attributo Class, ClassID o ProgID.
ora devo capire quale class o PROgID devo mettere per ogni tipo di file

ho qualche perplessità su quello che vuoi ottenere...
Potrebbe essere molto difficile adattare per Word ed Excel la stessa metodologia dato che sia Word che Excel non Visualizzano dati ma sono Editor e in quanto tali dato che il file sta sul server HTTP la cosa è molto complicata... Suggerirei invece sul server dato che sia Word che Excel possono salvare in modalità PDF una copia per mandarla in stampa, di fare una copia sul server di tali documenti e visualizzarli sempre come PDF... Altrimenti vai incontro a ricercare pogrammi che per esempio Google ha fatto degli Addon mi pare per visualizzare Word e altri tipi doc. via web...
Anche l'apertura di Word lato Client anche se lo riesci a precaricare poi hai il problema del save remoto...
Be in rete la ricerca magari troverà qualche soluzione...
ciao

**vic53** · 25-05-2016, 23:07

Se ti puo essere di aiuto, qualche tempo fa ho scritto un programma per mandare al client un file word preimpostato in cui cambiavo i valori
in zone chiamate bookmarks tramite ASP per impostare vari valori presi da db e poi visualizzavo il foglio word sul client se riesci a prelevare qualche manciata di codice da li dentro magari riesci a fare quello che vuoi fare tu.. te lo posto sotto vedi se ti puo servire...

codice:

<!-- #include file="Connessioni.asp" -->
<%
'on error resume next
dim codiceanagrafico, codcli, ti(20),nome, cognome, codicefiscale, domicilio, cap,citta,provincia,email,luogonascita,datanascita, provincianascita,dataloc, nominativo, dataodierna
dim telefono, tipodocumento, numerodocumento, luogorilascio,datarilascio, dataiscrizione,note, oggetti(3), j, formname, ThisProgram,ragionesociale,label(10),ReadAllTextFile, NewTextfile
codiceanagrafico=request.QueryString("codiceanagrafico")

dataodierna=fmtDate(now)

SQL="select * from Clienti where CODCLI = " & codiceanagrafico
RS1.Open SQL, conn, 3, 3

if not RS1.EOF then
 cognome=ucase(RS1("COGNOME"))
 nome=ucase(RS1("NOME"))
 nominativo=cognome&" "&nome
 codicefiscale=ucase(RS1("CODICEFISCALE"))
 domicilio=ucase(RS1("DOMICILIO"))
 cap=RS1("CAP")
 citta=ucase(RS1("CITTA"))
 provincia=ucase(RS1("PROVINCIA"))
 email=RS1("email")
 luogonascita=trim(ucase(RS1("LUOGONASCITA")))
 datanascita=fmtDate(RS1("DATANASCITA"))
 provincianascita=ucase(RS1("PROVINCIANASCITA"))
 telefono=RS1("TELEFONO")
 tipodocumento=ucase(RS1("TIPODOCUMENTO"))
 numerodocumento=RS1("NUMERODOCUMENTO")
 datarilascio=RS1("DATARILASCIO")
 luogorilascio=ucase(RS1("LUOGORILASCIO"))
 note=ucase(RS1("NOTECLIENTE"))
else
 Session("LASTMSG")="CODICE ANGRAFICO CLIENTE INESISTENTE..."
 response.Redirect("errore.asp") 
 response.end()
end if

RS1.Close
SQL="select * from Configurazione where pk=1"
RS.Open SQL, conn, 3, 3
if not RS.EOF then
  label(1)= trim(RS("ragionesociale"))
  label(2)= trim(RS("indirizzo")) 
  label(3)= RS("cap") & " " & trim(RS("citta")) & "  (" & RS("provincia") & ")"
  label(4)= RS("partitaiva") 
  label(5)= RS("telefono")
  label(6)= RS("email")
  dataloc=trim(RS("citta")) & ",  " &fmtDate(now)

end if

RS.Close 

%>
<html>
<head>
<meta http-equiv="Content-Type" content="application/vnd.ms-word" />
<title>Mandato di vendita Word</title>
</head>
<body>
<%
Dim fileName, filePath, contentType, objStream
Root = Server.MapPath(".")
Folder = "public"
filename = Server.MapPath( "Public/MandatoVendita"& codiceanagrafico & ".doc")
filePath = Server.MapPath( "MandatoVendita.doc" )

ApriFileWord filePath, filename

'response.write "filename=" & filename
'response.write "<br>file template=" & filePath

Response.Flush() ' Invio dell'output bufferizzato
Response.End()  ' Chiusura del documento 
'Response.Write  "<META HTTP-EQUIV=""REFRESH"" Content=""0;URL=\public\" & oFileName & """>"



%>
<script>
  document.close(); 
</script>
</body>
</html>
<!-- #include file="Disconnessioni.asp" -->
<%

function fmtDate(dt)
if isDate(dt) then
  fmtDate=right("00"&day(dt),2)&"/"&right("00"&month(dt),2)&"/"&right("0000"&year(dt),4)
else
  fmtDate="-"
end if
end function

Function ApriFileWord(strNomeFile, filename)
Dim appWord
Dim docWord
'Set appWord=CreateObject("Word.Application")
On Error Resume Next
Set appWord = Server.CreateObject("word.application")
If Err.number <>0 Then
  response.write "Unable to instantiate word. (" & err.Description & ")<br>"
  response.write "status=" & Err.Status 
  response.end()
End If

If (err.number<>0) Then
'fai qualcosa
End If
Set docWord=Server.CreateObject("Word.Document")
If (err.number<>0) Then
appWord.Quit(0)
Set docWord =Nothing
Set appWord=Nothing
'fai qualcosa
response.end()
End If

Set docWord = appWord.Documents.Open(strNomeFile,False)
docWord.SaveAs(filename)
'
docWord.Bookmarks("ragionesocialeditta").Select
'appWord.Selection.InsertAfter("testo da inserire")
appWord.Selection.TypeText label(1)

docWord.Bookmarks("emailditta").Select
appWord.Selection.TypeText label(6)

docWord.Bookmarks("partitaivaditta").Select
appWord.Selection.TypeText label(4)

docWord.Bookmarks("telefonoditta").Select
appWord.Selection.TypeText label(5)

docWord.Bookmarks("nominativo").Select
appWord.Selection.TypeText nominativo

docWord.Bookmarks("nominativo2").Select
appWord.Selection.TypeText nominativo
docWord.Bookmarks("nominativo3").Select
appWord.Selection.TypeText nominativo
docWord.Bookmarks("nominativo4").Select
appWord.Selection.TypeText nominativo

docWord.Bookmarks("codicefiscale").Select
appWord.Selection.TypeText codicefiscale

docWord.Bookmarks("natoa").Select
appWord.Selection.TypeText luogonascita

docWord.Bookmarks("datanascita").Select
appWord.Selection.TypeText datanascita


docWord.Bookmarks("residentea").Select
appWord.Selection.TypeText citta

docWord.Bookmarks("telefono").Select
appWord.Selection.TypeText telefono

docWord.Bookmarks("dataodierna").Select
appWord.Selection.TypeText dataodierna

docWord.Bookmarks("rilasciatoa").Select
appWord.Selection.TypeText luogorilascio

docWord.Bookmarks("tipodoc").Select
appWord.Selection.TypeText tipodocumento

docWord.Bookmarks("numerodoc").Select
appWord.Selection.TypeText numerodocumento

appWord.Visible = True

'docWord.Close(False)
'Set docWord = Nothing
'appWord.Quit(0)

Set docWord = Nothing

End Function
%>

ciao

**Kahm** · 26-05-2016, 19:42

ciao
grazie per il codice, ma il problema è che io volevo visualizzarlo all'utente un file word o pDF (nel caso)
anche se nel server non è installato word
ci sono modi? tipo FREE grazie

Discussione: [asp.net+bootstrap], preview di un file

Strumenti discussione

Ricerca discussione

Visualizza

[asp.net+bootstrap], preview di un file

Permessi di invio