Output([string nombrefiechero [, boolean descargar] [, boolean crear] [, boolean servidor])
El tercer parámetro viene implementado de serie y por lo que he visto está inutilizado, no lo he quitado por respeto al programador. El cuarto parámetro es el que indica si el fichero lo guardamos en el servidor (false) o si el cliente selecciona la carpeta (true) que es la opción por defecto.
Si el segundo parámetro está false (defecto) simplemente abrirá el .pdf en el navegador, pongamos o no un nombre de fichero.
El código:
Código:
this.Output=function Output(xfile , xdownload , Overwrite, toserver)
{
var par_fopen="w"
if (arguments.length<4) {
toserver=false;
if (arguments.length<3) {
Overwrite=true;
if (arguments.length<2) {
xdownload=false;
if (arguments.length<1){xfile=""};
}
}
}
;
if(xfile==""){par_fopen="w2";xdownload=false;}
if(this.state<3)this.Close();
if(!(toserver)){
if(xdownload){
Response.ContentType = "application/octet-stream";
Response.AddHeader("Content-disposition", "attachment; filename=" + xfile);
}
else
{
Response.ContentType = "application/pdf"
Response.AddHeader("Content-Disposition","inline");
}
if (!this.hasBinary){
Response.Write(this.buffer)}
else{
xfile=Server.MapPath(lib.fso.GetTempName())
xf=lib.fopen(xfile,par_fopen+"b");
if(xf.number)this.Error("Unable to create output file: " + xfile);
lib.fwrite(xf,this.buffer);
lib.fclose(xf);
outB = Server.CreateObject("ADODB.Stream")
outB.Type = 1
outB.Open()
outB.LoadFromFile (xfile)
Response.BinaryWrite(outB.Read())
outB.Close()
lib.fso.DeleteFile(xfile);
}
}
else
{
xf=lib.fopen(xfile,"wb");
if(xf.number)this.Error("Unable to create output file: " + xfile);
lib.fwrite(xf,this.buffer);
lib.fclose(xf);
}
}
también hay que modificar la función fopen del archivo includes/basics.asp de la siguiente forma:
Código:
this.fopen=function fopen(name,params){
switch(params.charAt(0)){
case "r" : v = 1;c=false;p=Server.MapPath(name);break;
case "w" : v = 2;c=true;p=Server.MapPath(name);break;
case "w2" : v = 2;c=true;p=name;break;
case "a" : v = 8;c=true;p=Server.MapPath(name);break;
}
var f = new cfile();
try{
f.obj=this.fso.OpenTextFile(p,v,c);
}
catch(e){return e;}
f.mode=params.charAt(0);
if (params.length>1){if (params.charAt(1)=="b"){f.isBinary = true}};
return f;
}
ahora si que ya está
:
Re: generar pdf desde asp
