首頁 > 開發者 > 網站開發

如何製作一個文字檔編輯器？

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

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>撼雪噴雲之文字檔編輯器</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>

[1]

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

相關文章
自學成才的秘密：115個 web Develop 資源_經典網摘
H5 中html 頁面存為圖片並長按 儲存
__x__(20)0907第四天__ css 框模型
SVN提示https認證驗證失敗問題svn: E230001: Server SSL certificate verifi...
JS如何判斷文字是全形還是半形（轉載）
Citrix NetScaler產品學習筆記之一：Citrix NetScaler概述

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

熱門內容

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More