<%
if Len(Session("id"))= 0 then
Response.redirect "default.asp"
end if
%>
<% @LANGUAGE="VBSCRIPT" %>
<%
Icerik = Request.QueryString("Icerik")
Set sayfa = Server.CreateObject("Adodb.RecordSet")
sql_sayfa = "Select * from Icerik"
sayfa.open sql_sayfa,bag,1,3
if sayfa.eof or sayfa.BOF then
response.Write("Sayfa bulunamadi")
response.End()
else
strFileContents = sayfa(Icerik)
end if
'*** create fso object
'***---
'*** get the name of this page (script) dynamically - you could specify this if you want
dim strScriptName
strScriptName = request.servervariables("script_name")
strScriptName = mid(strScriptName, instrrev(strScriptName, "/") + 1)
'***---
'***--- if they've not submitted the update form
if request.form("kaydet") = "" then
const fsoForReading = 1
else if request.form("kaydet") <> "" then
'***---
'*** get the contents
dim strWriteContents
strWriteContents = request.form("pageHTML")
'***---
'***---
'*** page text isn't a requirement as we can sort out an error message to some extent in replace.
if strWriteContents = "" then
strWriteContents = ""
strWriteContents = strNewContent & vbCrLf & "
"
strWriteContents = strNewContent & vbCrLf & ""
end if
'***---
Set connkaydet = Server.CreateObject("ADODB.RecordSet")
sql_kaydet = "Select * from Icerik"
connkaydet.open sql_kaydet,bag,1,3
connkaydet(Icerik) = strWriteContents
connkaydet.update
connkaydet.close
set connkaydet = Nothing
'***---
'*** write it into the file
'***---
'*** lets go home
response.Redirect("icerik.asp")
'***---
end if
end if
%>
Sayfa Editörü