如何制作一个文本文件编辑器?
如何制作一个文本文件编辑器?
发布时间:2016-12-29 来源:查字典编辑
摘要:newdoc.asp//Setthesetotruetoenabledebuggingortracing@set@debug=false@s...

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>

<>

</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>

<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>

<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 value=<%=Request.querystring("doc")%>>

<INPUT id=button1 name=button1 type=submit value="保存文件" >

<hr width="100%">

<BR>

<TEXTAREA id=TEXTAREA1 name=TEXTAREA1><%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>

<>

</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><BR><BR>

<INPUT id=submit1 name=submit1 type=submit value=打开 LANGUAGE=javascript "return submit1_">

<INPUT id=new name=new type=submit value=新建 LANGUAGE=javascript "return new_">

<INPUT id=button2 name=button2 type=button value=退出 LANGUAGE=javascript "return button2_"></P>

</form>

</body></html>

[1]

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新编程10000问学习
热门编程10000问学习
编程开发子分类