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