Ho un problema...questo è write.asp di un piccolo guestbook che ho creato. L'unica cosa è che le virgole (",") vengono cancellate all'aggiornamento. Ho pensato che forse il problema si risolverebbe se mettessi un replace del carattere "," con il corrispondente ascii. Avete idea di come farlo? Grazie
codice:<% session("prova") = request.form("nick") session("prova")=replace(replace(session("prova"),">",""),"<","") MyFile = Server.MapPath("/mdb-database")&"/guest.txt" Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject") Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 1, TRUE) do While not MyOutStream.atendofstream arrcontenuto=arrcontenuto&","&MyOutStream.readline loop Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 2, TRUE) arrcontenuto=split(arrcontenuto,",") Nrighe=Ubound(arrcontenuto) if Nrighe > 5 then for i = Ubound(arrcontenuto)-5 to Ubound(arrcontenuto) MyOutStream.WriteLine(arrcontenuto(i)) next else for each Contenuto in arrcontenuto MyOutStream.WriteLine(Contenuto) next end if New_line = Request.Form("new_line") New_line = Server.HTMLEncode(New_line) New_line=replace(New_line,"<","") New_line=replace(New_line,">","") 'Adds the time and date it was posted New_line = "<FONT COLOR='#696969'>" & session("prova") & "--" & NOW & "</FONT> " & New_line & " " MyOutStream.WriteLine(New_line) MyOutStream.Close%>

Rispondi quotando