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

newdoc.asp
<%@ Language=VBScript %>









撼雪喷云之文本文件编辑器
<%dim x
if Request("type")="save" then
x = 1
end if
%>

 
   
 

<% if not len(request("doc"))=0 then%>     文档: <%=Request.querystring("doc")%>     <%else%>     文档:未命名     <%     end if%>

宋体
黑体
隶书
华文新魏
文鼎中特广告体
Times New Roman
System
 
  字体> 
 
8pt
9pt
10pt
<%for a=11 to 100%>
<%=a%>pt
<%next
%>
 
  字号> 
  粗体> 
  斜体> 
  关闭窗口'>

>
> 
保存文件" > 

---

<%if request("ch")=1 then<br>Response.Write request("textarea1")<br>end if<br>if len(request("text1"))>0 then<br>if OBJECT1.FileExists(Request("text")) then<br>OBJECT1.OpenTextFile(request("doc")).Write request("textarea1")<br>else<br>OBJECT1.CreateTextFile (request("text1"),true).Write Request("textarea1")<br>end if<br>end if<br>if not Request.QueryString("doc")="" and not Request("ch")=1 then<br>if OBJECT1.FileExists(Request.QueryString("doc")) then<br>Response.Write OBJECT1.OpenTextFile(Request.QueryString("doc")).ReadAll<br>else<br>Response.Write "</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: ''; mso-hansi-font-family: ''; mso-bidi-font-size: 9.0pt">噢</span><span style="FONT-FAMILY: ''; mso-bidi-font-size: 9.0pt">,</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: ''; mso-hansi-font-family: ''; mso-bidi-font-size: 9.0pt">没有文件存在</span><span style="FONT-FAMILY: ''; mso-bidi-font-size: 9.0pt">!"<br>end if<br>end if<br>%><br>

---

aspnp.asp
<%@ Language=VBScript %>

撼雪喷云之文本文件编辑器

打开 style="HEIGHT: 24px; WIDTH: 65px" LANGUAGE=javascript onclick="return submit1_onclick()">

新建 LANGUAGE=javascript onclick="return new_onclick()">
退出 LANGUAGE=javascript onclick="return button2_onclick()">

[1]