En lösning funnen men vill hitta fler
Jag har funnit en lösning på mitt problem, men jag är inte helt nöjd ändå. Vill helst inte blanda in JScript på servern. Det räcker med VBscript och Javascript (klientbaserade).
Detta är hur jag gör:
<%@ LANGUAGE="VBScript" %>
<SCRIPT LANGUAGE="JScript" RUNAT="Server">
function decode(temp) {
return unescape(temp);
}
function encode(temp) {
return escape(temp);
}
</SCRIPT>
<%
filename = "c:\inetpub\wwwroot\index.asp"
set objfso = createobject("Scripting.FileSystemObject")
set objfile = objfso.GetFile(filename)
if (objfile > 0) then
filedata = ""
set objtext = objfile.OpenAsTextStream(1, -2)
do while objtext.AtEndOfStream <> True
filedata = filedata & objtext.ReadLine & vbCrLf
loop
response.write (var filedata=""" & encode(filedata) & """; " & vbCrLf)
objtext.close
end if
%>
<SCRIPT LANGUAGE="Javascript">
// Denna rad utnyttjas av ett MSHTML script, så object är detsamma som ett DHTML Edit Control objekt
object.DocumentHTML = unescape(filedata);
</SCRIPT>
Så om någon annan har en annorlunda vinkling på detta, meddela mig gärna om det, förbättringar är alltid bra
Tack på förhand