当前位置：首页 > 资讯 > 技术文档

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

时间：2021-01-10 15:28 编辑：来源：阅读：
扫一扫，手机访问

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

[u]newdoc.asp[/u] <%@ 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>  </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> <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 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> [u]aspnp.asp[/u] <%@ Language=VBScript %> <html> <head> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <script ID=clientEventHandlersJS LANGUAGE=javascript>  </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> [b][1][/b]

全部评论(0)

上一篇：如何用Access加密页面？
下一篇：如何把图片也存到数据库中去？

资讯排行榜
更多>>