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

newdoc.asp
%@ Language=VBScript %>
script id=DebugDirectives runat=server language=javascript>
//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_onclick
fo1.TEXTAREA1.style.fontFamily=select1.value
End Sub

Sub button3_onclick
fo1.TEXTAREA1.style.fontSize=select2.value
End Sub

Sub button4_onclick
if button4.value="Bold" then
button4.value="Un Bold"
fo1.TEXTAREA1.style.fontWeight="Bold"
else
button4.value="Bold"
fo1.TEXTAREA1.style.fontWeight="normal"
end if
End Sub

Sub button5_onclick
if button5.value="Italics" then
button5.value="Un Italics"
fo1.TEXTAREA1.style.fontstyle="italic"
else
button5.value="Italics"
fo1.TEXTAREA1.style.fontstyle="normal"
end if
End Sub
Sub button6_onclick
window.close
End Sub

-->
/script>
/head>
body>
FONT face=arial size=3 color=royalblue>B>撼雪喷云之文本文件编辑器/b>/font>
%dim x
if Request("type")="save" then
x = 1
end 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>nbsp;
  INPUT id=button2 name=button2 type=button value=字体>nbsp;
  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>nbsp;
  INPUT id=button3 name=button3 type=button value=字号>nbsp;
  INPUT id=button4 name=button4 type=button value=粗体>nbsp;
  INPUT id=button5 name=button5 type=button value=斜体>nbsp;
  INPUT id=button6 name=button6 type=button value='关闭窗口'>BR>BR>
form id=fo1 name=fo1 method=post action=newdoc.asp?type=savech=1doc=%=Request.QueryString("doc")%>>
INPUT id=text1 name=text1 style="HEIGHT: 24px; WIDTH: 80%" value=%=Request.querystring("doc")%>>nbsp;
INPUT id=button1 name=button1 style="HEIGHT: 24px; WIDTH: 15%" type=submit value="保存文件" >nbsp;
hr width="100%">
BR>
TEXTAREA id=TEXTAREA1 name=TEXTAREA1 style="FONT-family: arial; FONT-SIZE: 10pt; HEIGHT: 50%; WIDTH:
100%">%if request("ch")=1 then
Response.Write request("textarea1")
end if
if len(request("text1"))>0 then
if OBJECT1.FileExists(Request("text")) then
OBJECT1.OpenTextFile(request("doc")).Write request("textarea1")
else
OBJECT1.CreateTextFile (request("text1"),true).Write Request("textarea1")
end if
end if
if not Request.QueryString("doc")="" and not Request("ch")=1 then
if OBJECT1.FileExists(Request.QueryString("doc")) then
Response.Write OBJECT1.OpenTextFile(Request.QueryString("doc")).ReadAll
else
Response.Write "噢,没有文件存在!"
end if
end 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=javascript>
!--

function submit1_onclick() {
if(frm1.file1.value==null)
window.open("newdoc.asp?doc=" + document.frm1.file1.value);
}

function button2_onclick() {
window.close()
}

function new_onclick() {
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=javascript onclick="return submit1_onclick()">

INPUT id=new name=new style="HEIGHT: 24px; WIDTH: 64px" type=submit value=新建 LANGUAGE=javascript onclick="return new_onclick()">
INPUT id=button2 name=button2 style="HEIGHT: 24px; WIDTH: 74px" type=button value=退出 LANGUAGE=javascript onclick="return button2_onclick()">/P>

/form>
/body>/html>

[1]