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>
<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>
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>
猜你喜欢
- SQL语言共分为四大类:数据查询语言DQL,数据操纵语言DML, 数据定义语言DDL,数据控制语言DCL。其中用于定义数据的结构,比如 创建
- 很多时候,我们都在说设计需要引导用户,尤其是在对初级用户的引导上,很大程度决定着产品能否快速聚拢用户的可能;但同样很多时候,用户并不需要引导
- 这份代码不是那种时间没有改变也输出innerHTML的高消耗代码。innerHTML和style的改变是非常消耗游览器性能的,如果你将来希望
- 因为比较简单,我就不说什么了。一看就明白的!1.sql防注入函数Function ChkStr(InString) &
- function f(x){ alert(x); return
- 在这里我想有必要再较系统说一下ADO的各种对象的方法、属性。毕竟ADO不仅应用在ASP中,VB,VC都可以用到。在这十天中我想主要提到的对象
- 如何做一个只能从本站点才能访问的页面?可以用与防止盗链<%if left(Request.ServerVariables(&
- <%dim total(7,1) total(1,0)="中国经营报"
- sql server中变量要先申明后赋值:局部变量用一个@标识,全局变量用两个@(常用的全局变量一般都是已经定义好的);申明局部变量语法:d
- 如何制作一个弹出式的调查窗口?执行下面这段ASP代码: <% &n
- 一般现今ASP木马常通过以下四点来操作服务器,所以我们只要将一下四处设置好就能从一 前使用IIS服务器的站长很多,特别是对于ASP网站来说,
- ACCESS数据库中Field对象的caption属性(也就是标题)是用来设置数据字段的标题,在正常的数据库设计中为了保持维护的便利性,许多
- 今天看看那些知名的Logo,可能你没注意过,它们也是一直在变化,有的还挺雷人的!先从时尚的苹果开始吧,苹果也有土的时候。1976年那第一个L
- 如果您还没看过段正淳的css笔记(1)分类之间的横竖线,可以先看看!1、css圆角的做法.为了这个圆角,前段开发们付出的努力是在是太多了.又
- 如何让页面背景五彩缤纷? <%@ Language=VBScript %><html>
- 类、构造函数、原型先来说明一点:在上面的内容中提到,每一个函数都包含了一个prototype属性,这个属性指向了一个prototype对象(
- 前两天看见有人问静态网页加密问题,就写了这个代码稍微有些长,解释一下思路:加密时:先把用户的密钥A用md5加密为B,然后用B异或源文件S0得
- 在MySQL4中,是已经开始支持全文检索(索引)的了。但是只是对英文支持全文检索。由于英文在书写上的特殊性,使得分词算法相对中文来说,简单得
- 有效地加载数据有时我们需大量地把数据加载到数据表,采用批量加载的方式比一个一个记录加载效率高,因为MySQL不用每加载一条记录就刷新一次索引
- 本文通过实例解析了 SQL Server 数据库扩展存储过程,实现远程备份与恢复的方法和步骤实例说明: 环境:win2k+sqlserver