如何制作一个文本文件编辑器？

newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=&#106avascript>//Set these to true to enable debugging or tracing@set @debug=false@set @trace=false</script><html><head><META name=VI60_defaultClientScript content=VBScript><META NAME=\”GENERATOR\” Content=\”Microsoft Visual Studio 6.0\”><script ID=clientEventHandlersVBS LANGUAGE=vbscript><!–Sub button2_&#111nclickfo1.TEXTAREA1.style.fontFamily=select1.valueEnd SubSub button3_&#111nclickfo1.TEXTAREA1.style.fontSize=select2.value End SubSub button4_&#111nclickif button4.value=\”Bold\” thenbutton4.value=\”Un Bold\”fo1.TEXTAREA1.style.fontWeight=\”Bold\”elsebutton4.value=\”Bold\”fo1.TEXTAREA1.style.fontWeight=\”normal\”end ifEnd SubSub button5_&#111nclickif button5.value=\”Italics\” thenbutton5.value=\”Un Italics\”fo1.TEXTAREA1.style.fontstyle=\”italic\”elsebutton5.value=\”Italics\”fo1.TEXTAREA1.style.fontstyle=\”normal\”end ifEnd SubSub button6_&#111nclickwindow.closeEnd Sub–></script></head><body><FONT face=arial size=3 color=royalblue><B>撼雪喷云之文本文件编辑器</b></font><%dim x if Request(\”type\”)=\”save\” thenx = 1end if%><OBJECT id=OBJECT1 PROGID=\”Scripting.FileSystemObject\” RUNAT=\”server\”> </OBJECT><TABLE bgColor=blanchedalmond border=0 cellPadding=1 cellSpacing=1 width=\”100%\”> <tr> <td> <% if not len(request(\”doc\”))=0 then%> <Font face=arial size=2>文档:<B> <%=Request.querystring(\”doc\”)%></B></font> <%else%> <Font face=arial size=2>文档:<B>未命名</B></font> <% end if%> </td> </tr></TABLE><P><select id=select1 name=select1 style=\”HEIGHT: 22px; WIDTH: 25%\”> <OPTION value=\’Simsun\’>宋体</option><OPTION value=\’Simhei\’>黑体</option><OPTION value=\’Simli\’>隶书</option><OPTION value=\’Stxinwei\’>华文新魏</option><OPTION value=\’Gpopo3e\’>文鼎中特广告体</option><OPTION value=\’Times New Roman\’>Times New Roman</option><OPTION value=\’System\’>System</option></select>  <INPUT id=button2 name=button2 type=button value=字体>  <select id=select2 name=select2 style=\”HEIGHT: 22px; WIDTH: 60px\”> <option value=8pt>8pt</option><option value=9pt>9pt</option><option value=10pt selected>10pt</option><%for a=11 to 100%><option value=\'<%=a%>pt\’><%=a%>pt</option><%next %></select>  <INPUT id=button3 name=button3 type=button value=字号>  <INPUT id=button4 name=button4 type=button value=粗体>  <INPUT id=button5 name=button5 type=button value=斜体>  <INPUT id=button6 name=button6 type=button value=\’关闭窗口\’><BR><BR><form id=fo1 name=fo1 method=post action=newdoc.asp?type=save&ch=1&doc=<%=Request.QueryString(\”doc\”)%>><INPUT id=text1 name=text1 style=\”HEIGHT: 24px; WIDTH: 80%\” value=<%=Request.querystring(\”doc\”)%>> <INPUT id=button1 name=button1 style=\”HEIGHT: 24px; WIDTH: 15%\” type=submit value=\”保存文件\” > <hr width=\”100%\”><BR><TEXTAREA id=TEXTAREA1 name=TEXTAREA1 style=\”FONT-family: arial; FONT-SIZE: 10pt; HEIGHT: 50%; WIDTH: 100%\”><%if request(\”ch\”)=1 thenResponse.Write request(\”textarea1\”)end ifif len(request(\”text1\”))>0 thenif OBJECT1.FileExists(Request(\”text\”)) thenOBJECT1.OpenTextFile(request(\”doc\”)).Write request(\”textarea1\”)elseOBJECT1.CreateTextFile (request(\”text1\”),true).Write Request(\”textarea1\”)end ifend ifif not Request.QueryString(\”doc\”)=\”\” and not Request(\”ch\”)=1 thenif OBJECT1.FileExists(Request.QueryString(\”doc\”)) thenResponse.Write OBJECT1.OpenTextFile(Request.QueryString(\”doc\”)).ReadAllelseResponse.Write \”噢,没有文件存在!\”end ifend if%></TEXTAREA></form><HR width=\”100%\”></body></html>aspnp.asp<%@ Language=VBScript %><html><head><META NAME=\”GENERATOR\” Content=\”Microsoft Visual Studio 6.0\”><script ID=clientEventHandlersJS LANGUAGE=&#106avascript><!–function submit1_&#111nclick() {if(frm1.file1.value==null)window.open(\”newdoc.asp?doc=\” + document.frm1.file1.value);}function button2_&#111nclick() {window.close()}function new_&#111nclick() {window.open(\”newdoc.asp?doc=\”);}//–></script></head><body><form name=frm1><P align=left><FONT color=royalblue face=Arial>撼雪喷云之文本文件编辑器</FONT></P><P align=center><INPUT id=file1 name=file1 type=file CHECKED readOnly style=\”HEIGHT: 22px; LEFT: 55px; TOP: 16px; WIDTH: 100%\”><BR><BR> <INPUT id=submit1 name=submit1 type=submit value=打开 style=\”HEIGHT: 24px; WIDTH: 65px\” LANGUAGE=&#106avascript &#111nclick=\”return submit1_&#111nclick()\”>