Update button to update file on webpage

jy3 · Aug 20, 2003

HI,
I have a list of commands on a help page and new commands are constantly added. I want to put in a delete button so you can remove this file from the list..any ideas??

adam0101 · Aug 20, 2003

Not sure what you mean, but it sounds like you want JavaScript to write/update a file - which it cannot do. Consider using a server-side technology: ASP, PHP, Perl, ColdFusion, JSP, etc...

Adam

EdwardMartinIII · Aug 21, 2003

So basically, simple content management, from a web interface?

Cheers,

[monkey]

Edward

"Cut a hole in the door. Hang a flap. Criminy, why didn't I think of this earlier?!" -- inventor of the cat door

jy3 · Aug 25, 2003

I am using ASP.
This is the page that goes on to open my list of server commands..(used a bit of VB script here too)
<% @LANGUAGE="VBSCRIPT" %>
<%

'*** create fso object
dim objFSO
set objFSO = createobject("scripting.filesystemobject&quot

'***----
'*** define the location of your homepage from here
'*** this will be used after updating or cancelling
dim stHomePage
strHomePage = "Template.html"

Dim commandFile
commandFile = "server_config.asp"
'***---
'*** get the name of this page (script) dynamically - you could specify this if you want
dim strScriptName
strScriptName = request.servervariables("script_name&quot

strScriptName = mid(strScriptName, instrrev(strScriptName, "/&quot

+ 1 )
'***---

'***--- if they've not submitted the Save form
if request.form("Save&quot

,"<font COLOR='#8448FF'><b>$1</b></font>&quot

strFileContents = Replace(strFileContents, vbCrLf, "<BR>&quot

title = Request.Form("title&quot

'***---- if they're updating....
else if request.form("Save&quot

<> "" then

'*** get the contents
dim strWriteContents
strWriteContents = request.form("pageHTML&quot

'*** page text isn't a requirement as we can sort out an error message to some extent in replace.
if strWriteContents = "" then
strWriteContents = "This page is currently un-available."
strWriteContents = strNewContent & vbCrLf & "<br><br>"
strWriteContents = strNewContent & vbCrLf & "We apologise for any inconvenience caused."
end if

Dim objMenuPage, i
objFile = Request.form("fileName&quot

if(objFSO.FileExists(Server.MapPath(objFile) ) )Then
strFileContents = strWriteContents
error = "The file "& objFile &" already exists. please specify a different file name"
else
Const ForReading = 1, ForWriting = 2, ForAppending = 8

strPath = Request.form("path&quot

strFullName = objFSO.BuildPath(strPath, objFile)
Set objMenuPage = objFSO.CreateTextFile(strFullName, forWriting, False)

'write the HTML page
objMenuPage.WriteLine"<html><head><title>" & Request.Form("pageTitle&quot

& "</title></head><body>"
objMenuPage.WriteLine strWriteContents
objMenuPage.WriteLine "</body></html>"
objMenuPage.Close

'Add the link to the command file
Dim f,ts
set f = objFSO.GetFile(Server.MapPath(commandFile))
set ts = f.OpenAsTextStream(ForAppending, -2)

'Write the link and specify how you want it to look. All "" in ther html code must be changed to ''
ts.write("<font size='3'><a href ='" & objFile &"'>" & objFile & "</a></font><br>&quot

Response.Redirect(commandFile)

end if
end if

End if
%>
<html>
<head>
<title>Text Editor</title>
<script language="javascript">
<!--
function over(element) {
element.style.borderStyle= "solid";
element.style.borderWidth = "1px";
element.style.borderColor = "#000000";
element.style.backgroundColor = "#F1F1F1";
element.style.cursor = "hand";
}

function out(element) {
element.style.borderColor = "#ccccff";
element.style.backgroundColor = "#ccccff"
element.style.cursor = "default";
}

function readyDiv() {
var theHTML;
theHTML = document.all.tags('div')['pageHTML'].innerText;
document.all.tags('div')['pageHTML'].innerHTML = theHTML;
}

function cmdExec(cmd,opt) {
pageHTML.document.execCommand(cmd,"",opt);
document.body.all.tags('div')['pageHTML'].focus();
}

function createLink() {
cmdExec("CreateLink&quot

;
}

function insertImage() {
var sImgSrc = prompt("Image: ", "

http://www.

[domain].[ext]/[folder]/[file]&quot

;
if(sImgSrc!=null)
cmdExec("InsertImage",sImgSrc);
}

function div2hidden(objForm) {
tmpStr = objForm.fileName.value
if(tmpStr == "&quot

{ alert("Please specify a file name!!&quot

;
document.frmedit.fileName.focus();
return false;
}

str= String(".html&quot

;
if(tmpStr.substring(tmpStr.length - 5,tmpStr.length) != str)
{ alert("Please save file as type .html&quot

;
document.frmedit.fileName.focus();
return false;
}
objForm.pageHTML.value = document.all.tags('div')['pageHTML'].innerHTML;
return true;
}

function go(where) {
window.location.href = where;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<form name="frmedit" method="post" onsubmit="return div2hidden(this);" action="editor.asp">
<input type="hidden" name="pageHTML" value="">
<input type="hidden" name="Save" value="1">
<input type="hidden" name="pageTitle" value="<%= title%>">
<input type="hidden" name="path" value="D:\Inetpub\

http://wwwroot\MyWeb\configpage">

<input type="hidden" name="file" value="<%= objFile %>">
<table width="550" cellpadding="2" cellspacing="2" align="center" style="border-style: solid; border-width: 1px; border-color: #000000;" bgcolor="#ccccff">
<tr>
<td width="100%" align="center">
<input type="submit" value="Save">  
<input type="button" value="Cancel" onclick="go('<%= strHomePage %>');">
</td>
</tr>
<tr>
<td>
<table width="100%" cellpadding="0" cellspacing="0" border="1" bordercolor="#ccccff">
<tr>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('cut')">
<img src="img/cut.gif" alt="CUT - Ctrl + X">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('copy')">
<img src="img/copy.gif" alt="COPY - Ctrl + C">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('paste')">
<img src="img/paste.gif" alt="PASTE - Ctrl + V">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('bold')">
<img src="img/bold.gif" alt="BOLD - Ctrl + B">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('italic')">
<img src="img/italic.gif" alt="ITALIC - Ctrl + I">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('underline')">
<img src="img/underline.gif" alt="UNDERLINE - Ctrl + U">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('justifyleft')">
<img src="img/left.gif" alt="Justify Left">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('justifycenter')">
<img src="img/center.gif" alt="Center">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('justifyright')">
<img src="img/right.gif" alt="Justify Right">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('insertorderedlist')">
<img hspace="2" vspace="1" src="img/numlist.gif" alt="Ordered List">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('insertunorderedlist')">
<img hspace="2" vspace="1" src="img/bullist.gif" alt="Unordered List">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('outdent')">
<img hspace="2" vspace="1" src="img/unindent.gif" alt="Decrease Indent">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('indent')">
<img hspace="2" vspace="1" src="img/indent.gif" alt="Increase Indent">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="cmdExec('createLink')">
<img hspace="2" vspace="1" src="img/link.gif" alt="LINK - Ctrl + K">
</div>
</td>
<td valign="center" align="center" onmouseover="over(this);" onmouseout="out(this);" width="20" height="20">
<div onclick="insertImage()">
<img hspace="2" vspace="1" align="absmiddle" src="img/image.gif" alt="Image">
</div>
</td>
</tr>
<tr valign="middle">
<td colspan="16" width="100%">
<select onchange="cmdExec('foreColor',this[this.selectedIndex].value);this.selectedIndex=0">
<option value="0">Font Color</option>
<option value="#000000">Black</option>
<option value="#FF0000">Red</option>
<option value="blue">Blue</option>
</select>
 
<select onchange="cmdExec('fontname',this[this.selectedIndex].value);">
<option selected>Font</option>
<option value="Arial">Arial</option>
<option value="Times New Roman">Times New Roman</option>
<option value="Verdana">Verdana</option>
</select>
 
<select onchange="cmdExec('fontsize',this[this.selectedIndex].value);">
<option selected>Size</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
</select>
</td>
</tr>
</table>
</td>
</tr>

<tr><td align ="center"><font color="red" size="5"><B><%=error%></B></font></td></tr>

<tr><td>Save file as...(e.g. command_name.html)     <input type="text" name="fileName" size="60" value= "<%=title &".html"%>"></td></tr>
<tr>
<td align="left">


<div contentEditable="true" id="pageHTML" name="pageHTML" style="border-style: solid; border-width: 1px; border-color: #000000; background-color: #FFFFFF; padding-left: 3px; padding-right: 3px; padding-top: 3px; padding-bottom: 3px; width: 750px; height: 380px;">

<%= strFileContents %>
</div>

</td>
</tr>

<tr><td align ="center"><font color = "red" size="5"><B><%=error%></B></font></td></tr>
<tr>
<td width="100%" align="center">
<input type="submit" value="Save">  
<input type="button" value="Cancel" onclick="go('<%= strHomePage %>');">
</td>
</tr>
</table>

</form>
</body>
</html>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Update button to update file on webpage

jy3

Programmer

adam0101

Programmer

EdwardMartinIII

Technical User

jy3

Programmer

Similar threads

Part and Inventory Search

Sponsor