极乐门资源网

如何制作一个文本文件编辑器？
网络编程 2024/12/23 佚名
2 0
极乐门资源网 Design By www.ioogu.com

newdoc.asp
<%@ Language=VBScript %>
<script id=DebugDirectives runat=server language="GENERATOR" Content="Microsoft Visual Studio 6.0">

<script ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub button2_"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_"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_"FONT-FAMILY: 宋体; mso-ascii-font-family: ' '; mso-hansi-font-family: ' '; mso-bidi-font-size: 9.0pt">撼雪喷云之文本文件编辑器</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="newdoc.asp?doc=" + document.frm1.file1.value);
}

function button2_"newdoc.asp?doc=");
}

//-->
</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="return submit1_">

<INPUT id=new name=new style="HEIGHT: 24px; WIDTH: 64px" type=submit value=新建 LANGUAGE="return new_">
<INPUT id=button2 name=button2 style="HEIGHT: 24px; WIDTH: 74px" type=button value=退出 LANGUAGE="return button2_"></P>

</form>
</body></html>

[1]

标签：
|如何|何制|制作|作一|一个|个文|文本|本文|文件|件编|编辑|辑器|器？|？|
极乐门资源网 Design By www.ioogu.com
极乐门资源网 免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
极乐门资源网 Design By www.ioogu.com

评论“如何制作一个文本文件编辑器？”

暂无如何制作一个文本文件编辑器？的评论...
www.ioogu.com 极乐门资源网
139,976影音资源
144,792福利资源
21,817软件资源
631,128技术资源

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接
极乐门资源网 Design By www.ioogu.com