<%
file = "content.htm" 'File to edit
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if Not IsEmpty(Request.Form("inpContent")) then
'Save
sContent = Request.Form("inpContent")
const ForWriting = 2
const Create = True
dim tso
set tso = fso.OpenTextFile(Server.MapPath(file), ForWriting, Create)
tso.write sContent
tso.close
set tso = Nothing
end if
%>
<%
'Check user's Browser
if InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then
Response.Write ""
else
Response.Write ""
end if
%>
Using the Editor to Edit a HTML file (ASP example) - Back
The HTML file to edit is : content.htm (which is located on the same folder).
<%
const ForReading=1
dim ts
set ts = fso.OpenTextFile(Server.MapPath(file), ForReading)
while not ts.AtEndOfStream
Response.Write Server.HTMLEncode(ts.readline) & VbCrLf
wend
set ts=nothing
set fso=nothing
%>