<center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">
02/09/2002, 19:11
| ||||
| ||||
| Doc automático ¿Cómo se crea un .doc automático a partir de un formulario? ¿ Lo acepta brinkster? Algún server gratuito que lo acepte? Que no sea el PWS Claro <center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%"> |
|
02/09/2002, 20:02
| ||||
| ||||
| Re: Doc automático si no es doc, pues html, da igual, plis <center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%"> |
|
02/09/2002, 21:41
| ||||
| ||||
| Re: Doc automático Hola consulta este enlace <a href='ir.asp?http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsobjFileSystem.asp' target='_blank'>http://msdn.microsoft.com/library/defaul...</a> Encuentraras informacion acerca de lo que buscas. Pero solo es para arxivos en formato texto con la extensión que quieras .txt, .html,.... Yo utilizo dicho codigo para que el usuario se guarde en su disco los articulos de forma limpia (sin banners,...) Yo lo utilizo de cara al cliente, desde la parte del servidor no lo he probado. |
|
02/09/2002, 23:19
| ||||
| ||||
| Re: Doc automático Mira de Casualidad habia encontrado ayer algo asi. <% Option Explicit HTML2Word "file://" & Server.MapPath("test.htm"), Server.MapPath("test.doc") Response.Write "Finnished at: " & Now() Sub HTML2Word(ByRef pstrSourceURL, ByRef pstrTargetFile) Dim lobjWordApp Dim lobjInternetExplorer Set lobjWordApp = Server.CreateObject("Word.Document") Set lobjInternetExplorer = Server.CreateObject("InternetExplorer.Applica tion") lobjInternetExplorer.Navigate pstrSourceURL IEStandBy lobjInternetExplorer lobjInternetExplorer.document.body.createTextRange .execCommand("Copy") IEStandBy lobjInternetExplorer lobjWordApp.Content.Paste lobjWordApp.SaveAs pstrTargetFile lobjWordApp.Close lobjInternetExplorer.Quit Set lobjInternetExplorer = Nothing Set lobjWordApp = Nothing End Sub Sub IEStandBy(ByRef pobjInternetExplorer) ' Not good (Pegs system resources) ' Need to find a way to "sleep" While pobjInternetExplorer.busy:Wend While Not pobjInternetExplorer.Document.readyState = "complete":Wend End Sub %> no lo he probado..pero deberia funcionar  .Saludos <center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center> |
|
03/09/2002, 14:47
| ||||
| ||||
| Re: Doc automático Y así funcionaría?: <% Option Explicit HTML2Word "http://" & Server.MapPath("noticia.asp?id="&Req uest.Form("id")), Server.MapPath(Request.Form("id")&&q uot;.doc") Response.Write "Finnished at: " & Now() Sub HTML2Word(ByRef pstrSourceURL, ByRef pstrTargetFile) Dim lobjWordApp Dim lobjInternetExplorer Set lobjWordApp = Server.CreateObject("Word.Document") Set lobjInternetExplorer = Server.CreateObject("InternetExplorer.Applica tion") lobjInternetExplorer.Navigate pstrSourceURL IEStandBy lobjInternetExplorer lobjInternetExplorer.document.body.createTextRange .execCommand("Copy") IEStandBy lobjInternetExplorer lobjWordApp.Content.Paste lobjWordApp.SaveAs pstrTargetFile lobjWordApp.Close lobjInternetExplorer.Quit Set lobjInternetExplorer = Nothing Set lobjWordApp = Nothing End Sub Sub IEStandBy(ByRef pobjInternetExplorer) ' Not good (Pegs system resources) ' Need to find a way to "sleep" While pobjInternetExplorer.busy:Wend While Not pobjInternetExplorer.Document.readyState = "complete":Wend End Sub %> <center><hr size="1" color="blue" width="39%"><a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%"> |
