用ASP做一個記事本編緝器(附源碼)

來源:互聯網
上載者:User
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>ASP NOTEPAD</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>Document:<B> <%=Request.querystring("doc")%></B></font>
     <%else%>
     <Font face=arial size=2>Document:<B> Untitled</B></font>
     <%
     end if%>
     </TD>
     </TR>
     </TABLE>
     <P><SELECT id=select1 name=select1 style="HEIGHT: 22px; WIDTH: 25%">
     <OPTION value='Times New Roman'>Times New Roman</option>
     <OPTION value='System'>System</option>
     <OPTION value='Arial'>Arial</option>
     <OPTION value='Comic Sans MS'>Comic Sans MS</option>
     <OPTION value='Courier'>Courier</option>
     <OPTION value='Courier New'>Courier New</option>
     <OPTION value='Verdana'>Verdana</option>
     </SELECT>
     <INPUT id=button2 name=button2 type=button value=Font>
     <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=Size>
     <INPUT id=button4 name=button4 type=button value=Bold>
     <INPUT id=button5 name=button5 type=button value=Italics>
     <INPUT id=button6 name=button6 type=button value='Close Window'><BR><BR>
     <font face=arial size=1>You will not be questioned on saving the changes</P></font>
     <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="Save File" >
     <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 "<????> No document Exists <????>"
     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><STRONG>ASP
     NOTEPAD</STRONG></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=Open style="HEIGHT: 24px; WIDTH: 65px"
     LANGUAGE=javascript > <INPUT id=new name=new style="HEIGHT: 24px;
     WIDTH: 64px" type=submit value=New LANGUAGE=javascript >
     <INPUT id=button2 name=button2 style="HEIGHT: 24px; WIDTH: 74px" type=button value=Exit
     LANGUAGE=javascript ></P>
     
     </form>
     <P> </P>
     <P>
     <HR>
     <FONT face=Arial size=2><STRONG>Author: </STRONG><FONT color=royalblue>Sharon
     Jayaraj<BR></FONT><STRONG>Platform<FONT color=lightseagreen>:
     </FONT></STRONG><FONT color=lightseagreen>Win98</FONT><BR><STRONG>Application
     Used: </STRONG><FONT color=orange>Interdev</FONT><FONT color=lightpink>(for easy
     Working) </FONT>and <FONT color=orange>PWS</FONT><FONT color=lightpink>(for
     testing)</FONT></FONT></P>
     
     </BODY>
     </HTML>
     

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

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

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