Asp编程
搜索
分类

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

时间：2010-07-07 12:26:00　

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

我们也来做一个：

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=save&ch=1&doc=<％=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>asp之家文本文件编辑器</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>

标签：编辑器,文本,asp
0
投稿

猜你喜欢

  • 修改新云CMS底部版权信息字数限制

    2008-07-31 18:00:00

  • FSO组件之文件操作（中）

    2010-05-03 11:05:00

  • 一位网友的DIV CSS编码笔记——XieBiji

    2008-09-12 12:22:00

  • 设计英文网站要注意的问题

    2011-04-28 11:22:00

  • 如何限制表单textarea的文字输入量

    2007-10-06 22:41:00

  • 如何跨浏览器使用连续字符的换行

    2008-07-06 23:10:00

  • asp dictionary对象的用法

    2011-04-14 11:09:00

  • js更好地截取字符串

    2008-03-11 19:00:00

  • ASP.NET教程第二讲：安装ASP.NET

    2007-08-07 11:59:00

  • 手把手教你制作Google Sitemap

    2008-09-04 10:35:00

  • Javascript 动画初探（原理）

    2009-02-06 15:53:00

  • JavaScript,5种调用函数的方法[译]

    2009-02-24 16:26:00

  • 内容呈现的减法

    2007-11-16 16:22:00

  • oracle 存储过程加密的方法

    2009-03-06 10:58:00

  • 使用线框图来简化你的产品设计流程

    2011-06-10 13:10:00

  • 如何使用表格来储存数据库的记录？

    2010-05-16 15:14:00

  • 一个修改Oracle数据库用户密码的小诀窍

    2009-09-30 15:29:00

  • asp如何连接MYSQL数据库？

    2010-01-01 15:49:00

  • MYSQL数据库实用学习资料之常用命令集合

    2009-03-06 18:12:00

  • Javascript Selectors 入门篇

    2010-04-12 12:55:00
    • asp之家 网络编程 m.aspxhome.com