Traduzione script da php

[nep036]

Qualcuno mi tradurrebbe 2 script da asp a php, purtroppo di asp non ne capisco niente!

Nel caso posto gli script...

grazie

[weppos]

Originariamente inviato da nep036
Nel caso posto gli script...

Mi sa che sarebbe una buona idea.

[nep036]

Originariamente inviato da weppos
Mi sa che sarebbe una buona idea.

Infatti visto che gentilmente hai risposto li posto!


1:

<%

Dim strLinea, FileObject, Instream, totDiscussioni, intTipo, OutStream


newname = Trim(Request("newname"))
title = Trim(Request("title"))
themsg = Trim(Request("themsg"))
dataflash = FormatDateTime( Now(),1)


strFile = Server.MapPath("counter.txt")

' creo l'oggetto
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

' apro il file
intTipo = 1 ' lettura
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)

' ciclo che legge tutte le linee
totDiscussioni = InStream.ReadLine()
totDiscussioni = Cint(totDiscussioni) + 1

' libero risorse
InStream.Close
Set InStream = Nothing

intTipo = 2 ' scrittura
Set OutStream = FileObject.OpenTextFile(strFile, intTipo, true)


OutStream.WriteLine (totDiscussioni)

' Creo il file in base al numero letto

nomeFile = totDiscussioni&".txt"


strFile = Server.MapPath(nomeFile)

Set OutStream = FileObject.CreateTextFile(strFile, true)

' Ci metto i dati dentro
OutStream.Write("<nome>"&newname&"</nome><titolo>"&title&"</titolo><msg>"&themsg&"</msg><data>"&dataflash&"</data>")



'Apro Titoli XML per metterci il titolo della nuova discussione

strFile = Server.MapPath("titoli.xml")
intTipo = 8
Set OutStream = FileObject.OpenTextFile(strFile, intTipo, true)
OutStream.Write("<nome>"&newname&"</nome><titolo>"&title&"</titolo><data>"&dataflash&"</data><file>"&nomeFile&"</file>")







' libero risorse
OutStream.Close
Set OutStream = Nothing

Set FileObject = Nothing


Response.Write("att=ok")




%>

2:

<%

Dim strLinea, FileObject, Instream, intVisite, intTipo, OutStream


newname = Trim(Request("newname"))
title = Trim(Request("title"))
themsg = Trim(Request("themsg"))
dataflash = FormatDateTime( Now(),1)
filexml = Request("filexml")

strFile = Server.MapPath(filexml)

' creo l'oggetto
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

' apro il file
intTipo = 8 
Set OutStream = FileObject.OpenTextFile(strFile, intTipo, true)

' Ci metto i dati dentro
OutStream.Write("<nome>"&newname&"</nome><titolo>"&title&"</titolo><msg>"&themsg&"</msg><data>"&dataflash&"</data>")


' libero risorse
OutStream.Close
Set OutStream = Nothing

Set FileObject = Nothing


Response.Write("att=ok")




%>

Grazie

[weppos]

MA quello sopra non è php...

[weppos]

ok, ok, come non detto.
Avevo capito tradurre da php a asp.

[nep036]

Originariamente inviato da weppos
MA quello sopra non è php...

Eh no, sono i 2 file asp del forum in flash di enrico lay...

[nep036]

Originariamente inviato da weppos
ok, ok, come non detto.
Avevo capito tradurre da php a asp.

Ti perdono

[nep036]

up