trasformare asp in HTML

**Bruno66** · 17-02-2005, 19:57

non trovi che ci sia un incongruenza nel codice ?
************************************************** *****************+
SaveFile("/tools/scrivere.html" , getUrl("/tools/scrivere.asp"))

Dove SaveFile ti crea un file con il primo parametro e ci mette il contenuto del secondo.

code:--------------------------------------------------------------------------------
Function SaveFile(PathFile,Content)
Dim File
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set File = Fso.OpenTextFile(Server.MapPath(DestFile),2,true)
File.Write Content
File.Close()
Set File = Nothing
Set Fso = nothing
End Function
************************************************** **********+
destfile in realtà è pathfile giusto ?

**Baol74** · 17-02-2005, 19:59

osignur!

codice:

Function SaveFile(DestFile,Content)
Dim File
	Set Fso = Server.CreateObject("Scripting.FileSystemObject")
	Set File = Fso.OpenTextFile(Server.MapPath(DestFile),2,true)
	File.Write Content
	File.Close()
	Set File = Nothing	
	Set Fso = nothing
End Function

**Bruno66** · 17-02-2005, 20:02

allora quando eseguo la macchina s'impalla ma credo sia un problema di questo pc, ora corro a casa a provare il tutto, domani ti farò sapere, sei stato gentilissimo, a presto, ciao.

**Baol74** · 17-02-2005, 20:04

ok. ciao. E guarda che esistno anche metodi di caching dei dati...

**unreg** · 17-02-2005, 21:59

Scusate l'intrusione, ma questo scritp serve pure a me

solo che ho un problema:

Listato: genera_file_htm.asp

codice:

<%
Function SaveFile(DestFile,Content)
Dim File
	Set Fso = Server.CreateObject("Scripting.FileSystemObject")
	Set File = Fso.OpenTextFile(Server.MapPath(DestFile),2,true)
	File.Write Content
	File.Close()
	Set File = Nothing	
	Set Fso = nothing
End Function

Function GetUrl(Url)
Dim Http
	Set Http = Server.CreateObject("Microsoft.XMLHTTP") 
	Http.open "GET",Url,False
	Http.Send()
	GetUrl = Http.ResponseText
	Set Http=Nothing
End Function

SaveFile("prodotto_1.htm" , getUrl("scrivere.asp?id=1")) 
%>

mi da questo errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0414)
Impossibile utilizzare parentesi per la chiamata di routine Sub
/test2.asp, line 21, column 50
SaveFile("scrivere.html" , getUrl("scrivere.asp"))
-------------------------------------------------^

ma non trovo l'errore

Grazie !

**Bruno66** · 17-02-2005, 22:55

call savefile(.......

a me invece da un problema, posto il codice

pagina asp da trasformare in html, si chiama ciao.asp
*******************************************
<%@ language = vbscript %>
<% option explicit %>

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nuova pagina 1</title>
</head>

<body>

Ciao sono le <%= date %> </p>
</body>

</html>
*******************************************

ecco il codice della pagina (buona.asp) con la quale cerco di trasformare ciao.asp in scrivimi.htm

************************************************** ******
<%@ language = vbscript %>
<% option explicit %>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nuova pagina 1</title>
</head>

<body>
<%
call SaveFile("/scrivimi.html",geturl("/ciao.asp"))

Function GetUrl(Url)
Dim Http

Set Http = Server.CreateObject("Microsoft.XMLHTTP")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing

End Function

Function SaveFile(PathFile,Content)
Dim File, DestFile
DestFile = "scrivere.txt"
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set File = Fso.OpenTextFile(Server.MapPath(pathFile),2,true)
File.Write Content
File.Close()
Set File = Nothing
Set Fso = nothing
End Function
************************************************** ***

non mi da nessun errore, ma la barra di caricamento pagina va avanti lentamente e non produce nulla, ne file ne errori.

Grazie.

*******************************************

**unreg** · 18-02-2005, 09:33

mi da ora questo errore:

Tipo di errore:
(0x80004005)
Errore non specificato.
/test2.asp, line 15

questo è il codice:

codice:

<%
Function SaveFile(DestFile,Content)
Dim File
	Set Fso = Server.CreateObject("Scripting.FileSystemObject")
	Set File = Fso.OpenTextFile(Server.MapPath(DestFile),2,true)
	File.Write Content
	File.Close()
	Set File = Nothing	
	Set Fso = nothing
End Function

Function GetUrl(Url)
Dim Http
	Set Http = Server.CreateObject("Microsoft.XMLHTTP") 
	Http.open "GET",Url,False
	Http.Send()
	GetUrl = Http.ResponseText
	Set Http=Nothing
End Function

call SaveFile("prodotto_1.htm" , getUrl("scrivere.asp?id=1")) 
%>

grazie !

**Bruno66** · 18-02-2005, 11:08

non riesco ad utilizzarlo nemmeno io. Pero' vorrei chiederti una cosa, ma tu in quale pagina la fai la chiamata alla funzione savefile, abbiamo una pagina.asp che è di cui vogliamo salvare il testo su html. Ma per fare questo la pagina deve essere in ritorno, ovvero i valori devono essere interpretatida IIS, cioè la dobbiamo avere a video. Quindi mi chiedo dove sia meglio eseguire questa chiamata.
Speriamo che Baol74, ci dia una mano.

**Baol74** · 18-02-2005, 11:18

Secondo me, la chiamata deve essere fatta ogni volta che c'è un'operazione sui dati del db.

Se l'utente cambia un dato, la pagina dovrà essere rigenerata per essere vista correttamente.

**Bruno66** · 18-02-2005, 12:19

chiariamoci le idee (parlo sopratutto per me).

Punto ad una pagina asp che quindi iis interpreta e di cui mi restituisce il "risultato".Esempio se nel file .asp (chiamamolo benvenuto.asp) c'è l'inclusione <%= date %>, vedro' a video 18/02/2005. Ora per salvare su html un file che al posto di <%= date %> contenga effettivamente la data, secondo me devo fare la chiamata mentre la pagina è ancora in piedi e lo devo fare da un'altra pagina, altrimenti va in loop. Ma non ho idea di come fare.
A meno che non si possa fare la stampa della pagina (tipo print.form), solo che invece di inviarla alla stampante si invia su file. (non so se sia possibile o meno ).

Discussione: trasformare asp in HTML

Strumenti discussione

Ricerca discussione

Visualizza

ci siamo quasi

per oggi grazie

devi fare così

non ne ho idea..

un po di ordine..

Permessi di invio