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

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

说起来，这算是早年间一个挺有意思的ASP小工具——直接在浏览器里编辑服务器上的文本文件，连远程桌面都不用开。做这个编辑器的时候，思路其实很简单：用FileSystemObject读写文件，再配合VBScript和Ja vaScript的混搭，把前端界面和后端逻辑串起来。下面把两个核心文件拆开讲讲，代码里那些“人味儿”细节，也顺便标注一下。

newdoc.asp：编辑器的主体

这个页面负责两件事：一是展示文件内容，二是保存修改。开头的@set @debug=false是调试开关，生产环境里当然关掉。紧接着是几个VBScript写的按钮事件，用来控制字体、字号、粗体和斜体——这些功能在当年算是“富文本”的雏形了，虽然现在看很简陋，但胜在实用。

代码里有一段if Request("type")="sa ve" then，用来判断是否要保存文件。保存的逻辑也很直白：如果文件已存在，就覆盖写入；如果不存在，就新建文件。注意那个OBJECT1.CreateTextFile (request("text1"),true).Write Request("textarea1")，第二个参数true表示允许覆盖，这样就不会报错。另外，页面顶部显示当前文档名，如果是新文件就显示“未命名”，这个细节挺贴心。

字体选择的下拉菜单里，除了常见的宋体、黑体、隶书，还放了一个“文鼎中特广告体”——这大概是当时作者电脑里装的字体，直接硬编码进去了。字号从8pt到100pt，循环生成选项，用了一个for a=11 to 100的循环，简单粗暴但有效。

有意思的是，当用户打开一个不存在的文件时，会显示“噢,没有文件存在!”——这个“噢”字很有生活气息，不是冷冰冰的“文件不存在”。后来有人可能会改成“Oops”，但早年间的中文提示就是这么接地气。

<%@ Language=VBScript %>









撼雪喷云之文本文件编辑器
<%dim x 
if Request("type")="sa ve" 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
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
%>

aspnp.asp：文件管理器入口

这个页面是个“启动器”，用来选择要编辑的文件。它提供一个文件选择框（input type=file），但注意这里的file控件是只读的，而且还带了个CHECKED属性——这其实是个笔误，应该是readOnly，但功能上没大影响。点击“打开”按钮，会调用Ja vaScript的submit1_onclick()函数，检查文件路径是否为空，然后打开新的窗口指向newdoc.asp并传入文件路径。

另外还有“新建”和“退出”按钮。新建直接打开newdoc.asp?doc=（不带参数），表示新建一个未命名文档。退出就关闭窗口。整个界面很简单，但功能完整——在那个ASP盛行的年代，很多网管工具就是这么一点点拼出来的。

<%@ Language=VBScript %>







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




 


 
 

[1]