Gem som UTF-8 formatering
Hejsa.Jeg har et ASP script så man kan redigere i .txt filer. Mit problem er at den gemmer .txt filerne som ANSI istedet for UTF-8 formatering.
Hvordan laver jeg så scriptet gemmer som UTF-8 formatering?
Koden --------
<% if mode = "edit_file" then
'Tjecker om man har valgt en fil, hvis ikke sendes man tilbage til listen
if Request.QueryString("file") = "" then
Response.Redirect("" & filnavn & "?action=list_files_edit")
end if
'Hvis filen skal opdateres
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.CreateTextFile(Server.MapPath(Request.Querystring("file")), 8)
file.Write(Request.form("fil"))
file.close
end if
'//Åbner filen og smider indholdet ud i et textarea
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(Server.MapPath(Request.QueryString("file")), 1, 0)
%>
<script type="text/javascript">
function indsaet(kode) {
document.formular.fil.value = document.formular.fil.value+kode;
}
</script>
<script language="JavaScript" type="text/javascript">
<!--
function indsaet ( strTag )
{
var strSelected = document.selection.createRange().text;
if( strSelected.length > 0 )
{
document.selection.createRange().text = "<" + strTag + ">" + strSelected + "</" + strTag + ">"
}
}
//-->
</script>
<form name="formular" method=post action="<%=filnavn%>?file=<%=Request("file")%>&action=edit_file">
<input class="formsknap" type="button" id="btnMakeBold" value="F" onclick="indsaet( 'b' );"> <input class="formsknap" type="button" id="btnMakeBold" value="K" onclick="indsaet( 'i' );"> <input class="formsknap" type="button" id="btnMakeBold" value="U" onclick="indsaet( 'u' );"><br>
<textarea rows=20 name=fil cols=70 style="font-family: Lucida Console; font-size: 10pt;"><%=Server.HTMLencode(file.readall)%></textarea>
<br>
<input type=submit value="Gem"><input type="button" value="Annuller" onClick="java script: history.go(-1)">
</form>
<%
file.close
set fso = nothing
%>
<% end if %>
Kode slut --------
På forhånd tak
<\\izemate
