DDR爱好者之家

如何制作一个文本文件编辑器？
站长资源 2024/11/24 佚名
53 1538
DDR爱好者之家 Design By 杰米

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]

DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。

《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米