Opret UTF-8 site

Saa vidt jeg ved understoetter Scripting.FileSystemObject ikke UTF-8 og du er
noedt til at bruge ADODB.Stream.

http://gchandra.wordpress.com/2004/08/19/creating-utf-8-files-using-asp/

Hej Arne,

Fik fil-oprettelsen til at virke, men kan se jeg umiddelbart også skal brude adodb.stream når jeg retter i den.

Har følgende kode nu:

Dim fso, f, filespec
        Set fso = CreateObject("Scripting.FileSystemObject")
        filespec = server.MapPath("\" & strTitle & ".asp")
        Set f = fso.OpenTextFile(filespec,1)
       
        ' Læs linie for linie indtil slutningen af filen
        Do While not f.AtEndOfStream
              html = html & f.ReadLine & vbCrlf
        Loop

        f.Close
       
        startpos = InStr(html, "<!--content_start-->")
        stoppos = InStr(html, "<!--content_end-->")
           
        removeStr = Mid(html, startpos+20, stoppos-startpos-20)
               
        strFile = replace(html,removeStr,vbCrlf & Request.Form("inpContent") & vbCrlf)
       
        Set f = fso.OpenTextFile(filespec,2)
        f.write strFile   
       

Kan du hjælpe med at få det til at virke?

Det her virker næsten:

    ' Vi finder filen via FSO
        Dim fso, f, filespec
        Set fso = CreateObject("Scripting.FileSystemObject")
        filespec = server.MapPath("\" & strTitle & ".asp")
        ' Gør filen læseklar
        Set f = fso.OpenTextFile(filespec,1)
       
        ' Læs linie for linie indtil slutningen af filen
        Do While not f.AtEndOfStream
              html = html & f.ReadLine & vbCrlf
        Loop

        f.Close
       
        ' find start og stop
        startpos = InStr(html, "<!--content_start-->")
        stoppos = InStr(html, "<!--content_end-->")
       
        ' find streng mellem start og stop
        removeStr = Mid(html, startpos+20, stoppos-startpos-20)
       
        ' Erstat indhold mellem start og stop
        strFile = replace(html,removeStr,vbCrlf & Request.Form("inpContent") & vbCrlf)
       
        ' ADO objektet
       
        const adTypeBinary = 1
        const adSaveCreateOverwrite = 2
        const adModeReadWrite = 3

        Set objStream = server.CreateObject("ADODB.Stream")
        objStream.Open
        objStream.CharSet = "UTF-8"
        objStream.WriteText(strFile)
        response.Write(server.MapPath("\" & strTitle & ".asp"))
        objStream.SaveToFile server.MapPath("\" & strTitle & ".asp"), adSaveCreateOverWrite
        objStream.Close   



Men den tilføjer i 1 linie af filen sådan noget lort her.: 

og jo mere jeg gemmer filen desto mere kommer der... nogen ideer?

Anyone?

Hmmm løste det selv ved blot fortsat at bruge FSO til at redigere siden. Når den er oprettet som UTF-8 foretager den ikke ændringer i filtypen.

Arne smid et svar

ok