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><br> <HTML><br> <HEAD><br> <META name=VI60_defaultClientscript content=VBscript><br> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"><br> <br> <script ID=clientEventHandlersVBS LANGUAGE=vbscript><br> <!--<br> <br> Sub button2_onclick<br> fo1.TEXTAREA1.style.fontFamily=select1.value<br> End Sub<br> <br> Sub button3_onclick<br> fo1.TEXTAREA1.style.fontSize=select2.value <br> End Sub<br> <br> Sub button4_onclick<br> if button4.value="Bold" then<br> button4.value="Un Bold"<br> fo1.TEXTAREA1.style.fontWeight="Bold"<br> else<br> button4.value="Bold"<br> fo1.TEXTAREA1.style.fontWeight="normal"<br> end if<br> End Sub<br> <br> Sub button5_onclick<br> if button5.value="Italics" then<br> button5.value="Un Italics"<br> fo1.TEXTAREA1.style.fontstyle="italic"<br> else<br> button5.value="Italics"<br> fo1.TEXTAREA1.style.fontstyle="normal"<br> end if<br> End Sub<br> Sub button6_onclick<br> window.close<br> End Sub<br> <br> --><br> </script><br> </HEAD><br> <BODY><br> <FONT face=arial size=3 color=royalblue><B>ASP NOTEPAD</b></font><br> <%dim x <br> if Request("type")="save" then<br> x = 1<br> end if<br> %><br> <OBJECT id=OBJECT1 PROGID="scripting.FileSystemObject" RUNAT="server"></OBJECT><br> <TABLE bgColor=blanchedalmond border=0 cellPadding=1 cellSpacing=1 <br> width="100%"><br> <TR><br> <TD><br> <% if not len(request("doc"))=0 then%><br> <Font face=arial size=2>Document:<B> <%=Request.querystring("doc")%></B></font><br> <%else%><br> <Font face=arial size=2>Document:<B> Untitled</B></font><br> <%<br> end if%><br> </TD><br> </TR><br> </TABLE><br> <P><SELECT id=select1 name=select1 style="HEIGHT: 22px; WIDTH: 25%"> <br> <OPTION value='Times New Roman'>Times New Roman</option><br> <OPTION value='System'>System</option><br> <OPTION value='Arial'>Arial</option><br> <OPTION value='Comic Sans MS'>Comic Sans MS</option><br> <OPTION value='Courier'>Courier</option><br> <OPTION value='Courier New'>Courier New</option><br> <OPTION value='Verdana'>Verdana</option><br> </SELECT> <br> <INPUT id=button2 name=button2 type=button value=Font> <br> <SELECT id=select2 name=select2 style="HEIGHT: 22px; WIDTH: 60px"> <br> <option value=8pt>8pt</option><br> <option value=9pt>9pt</option><br> <option value=10pt selected>10pt</option><br> <%for a=11 to 100%><br> <option value='<%=a%>pt'><%=a%>pt</option><br> <%next <br> %><br> </SELECT> <br> <INPUT id=button3 name=button3 type=button value=Size> <br> <INPUT id=button4 name=button4 type=button value=Bold> <br> <INPUT id=button5 name=button5 type=button value=Italics> <br> <INPUT id=button6 name=button6 type=button value='Close Window'><BR><BR><br> <font face=arial size=1>You will not be questioned on saving the changes</P></font><br> <form id=fo1 name=fo1 method=post action=newdoc.asp?type=save&ch=1&doc=<%=Request.QueryString("doc")%>><br> <INPUT id=text1 name=text1 style="HEIGHT: 24px; WIDTH: 80%" value=<%=Request.querystring("doc")%>> <br> <INPUT id=button1 name=button1 style="HEIGHT: 24px; WIDTH: 15%" type=submit value="Save File" > <br> <hr width="100%"><br> <BR><br> <TEXTAREA id=TEXTAREA1 name=TEXTAREA1 style="FONT-family: arial; FONT-SIZE: 10pt; HEIGHT: 50%; WIDTH: <br> 100%"><%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 "<????> No document Exists <????>"<br> end if<br> end if<br> %><br> </TEXTAREA><br> </form><br> <HR width="100%"><br> <br> </BODY><br> </HTML><br> <br> aspnp.asp<br> ----------------------------------------------------------------<br> <%@ Language=VBscript %><br> <HTML><br> <HEAD><br> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"><br> <script ID=clientEventHandlersJS LANGUAGE=javascript><br> <!--<br> <br> function submit1_onclick() {<br> if(frm1.file1.value==null)<br> window.open("newdoc.asp?doc=" + document.frm1.file1.value);<br> }<br> <br> function button2_onclick() {<br> window.close()<br> }<br> <br> function new_onclick() {<br> window.open("newdoc.asp?doc=");<br> }<br> <br> //--><br> </script><br> </HEAD><br> <BODY><br> <form name=frm1><br> <P align=left><FONT color=royalblue face=Arial><STRONG>ASP <br> NOTEPAD</STRONG></FONT></P><br> <P align=center><br> <br> <INPUT id=file1 name=file1 <br> type=file CHECKED readOnly style="HEIGHT: 22px; LEFT: 55px; TOP: 16px; WIDTH: 100%"><BR><BR> <br> <INPUT id=submit1 name=submit1 type=submit value=Open style="HEIGHT: 24px; WIDTH: 65px" <br> LANGUAGE=javascript onclick="return submit1_onclick()"> <INPUT id=new name=new style="HEIGHT: 24px; <br> WIDTH: 64px" type=submit value=New LANGUAGE=javascript onclick="return new_onclick()"> <br> <INPUT id=button2 name=button2 style="HEIGHT: 24px; WIDTH: 74px" type=button value=Exit <br> LANGUAGE=javascript onclick="return button2_onclick()"></P> <br> <br> </form><br> <P> </P><br> <P><br> <HR><br> <FONT face=Arial size=2><STRONG>Author: </STRONG><FONT color=royalblue>Sharon <br> Jayaraj<BR></FONT><STRONG>Platform<FONT color=lightseagreen>: <br> </FONT></STRONG><FONT color=lightseagreen>Win98</FONT><BR><STRONG>Application <br> Used: </STRONG><FONT color=orange>Interdev</FONT><FONT color=lightpink>(for easy <br> Working) </FONT>and <FONT color=orange>PWS</FONT><FONT color=lightpink>(for <br> testing)</FONT></FONT></P><br> <br> </BODY><br> </HTML><br> </div>
<div></div>
</div><div id="Message" class="Message"></div></font></div>
<div></div>
</td>
<table width="575" border="0" cellpadding="0" cellspacing="0">
<tr>
</tr>
<tr>
<td align="right" height=25 bgcolor=#F7F7F7 >
<script type='text/javascript'>
var __sogou_ad = new Array();
__sogou_ad["pid"] = 'jz123';
__sogou_ad["fmt"] = 'h_468_90'
__sogou_ad["iw"] = '468';
__sogou_ad["ih"] = '90';
__sogou_ad["charset"] = 'gb2312';
__sogou_ad["c_bo"] = 'ACD8FF';
__sogou_ad["c_bg"] = 'F0F8FF';
__sogou_ad["c_li"] = '0434CF';
__sogou_ad["c_te"] = '000000';
__sogou_ad["c_bb"] = 'ACD8FF';
</script>
<script src='http://images.sohu.com/cs/jsfile/js/SogouUnionCPC.js'></script>
[<a href=javascript:window.print()>打 印</a>]
</tr>
</table>
<table width="575" border="0" cellpadding="0" cellspacing="0">
<tr>
</tr>
<tr>
<td align="right" height=25 bgcolor=#F7F7F7 style="display:block;padding:0px 10px">
<font color=#000000>[<script language=JavaScript src="/Article/Hits.Asp?ArticleID=5754"></script>]</font>
[<a href="javascript:history.go(-1)">返回上一页</a>]
[<a href="/user/favorite.asp?action=add&topic=用ASP做一个记事本编缉器(附源码)">收 藏</a>]</td>
</tr>
<tr>
<table width="575" border="0" cellpadding="0" cellspacing="0">
<tr>
</tr>
<tr>
<td style="display:block;padding:0px 10px"><div><font color=#000000>上一篇文章:</font><a href=/Article/10/130/2005/200507205753.html>读取目录下的所有文件(源码)</a></div><div><font color=#000000>下一篇文章:</font><font color=#000000><a href=/Article/10/130/2005/200507205755.html>制作我们自己的Ebay(拍卖系统)(1)</a></font></div></td>
</tr>
</table>
<table width="575" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="titlebg1">∷相关文章评论∷ (评论内容只代表网友观点,与本站立场无关!) [<a href=/Article/comment.asp?ArticleID=5754 target=_blank>更多评论</a>...]</td>
</tr>
<tr valign="top">
<td></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder">
<tr>
<td height="23" align="right">
<table width="100%" border="0" cellspacing="0" class="tablebody8" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="23" align="right" valign="middle"><center><a href="/support/about.asp" class="navmenu2">关于本站</a> -
<a href="/support/help.asp" class="navmenu2">网站帮助</a> -
<a href="/support/advertise.asp" class="navmenu2">广告合作</a> -
<a href="/support/declare.asp" class="navmenu2">下载声明</a> -
<a href="/link/" target="_blank" class="navmenu2">友情连接</a> -
<a href="/support/sitemap.asp" class="navmenu2">网站地图</a> -
<a href="#" target="_blank" class="navmenu2">人才招聘</a>
</tr>
</table></td>
</tr>
<tr>
<td height="1"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder">
<tr>
<td height="60" align="center" class="tablebody1">网站合作、内容监督、商务咨询:QQ: 9576619
<br>
Copyright ? 2005--2008 中国建站之家版权所有
<br>
未经授权禁止转载、摘编、复制或建立镜像.如有违反,追究法律责任.
<br>
免责申明:中国建站之家(www.jz123.cn)上的所有提供下载的软件和资源<br>均来源于网络,为软件或程序作者提供和网友推荐收集整理而来,仅供学习<br>和研究使用。如有侵犯你的版权,请立即联系我们,本站将在3个工作日内删除。
<br><a href="http://www.miibeian.gov.cn" target="_blank" title="粤ICP备05092265号"><font color=#000000>粤ICP备05092265号
</font><br><script src='http://s6.cnzz.com/stat.php?id=44148&web_id=44148&show=pic' language='JavaScript' charset='gb2312'></script> </td>
<script language="javascript" src="/inc/Std_StranJF.Js"></script>
</table>
</body>
</html>
<span id="naruco_ad_body" style="display:none;">
<script language=javascript src=/adfile/top.js></script>
</span>
<script type="text/javascript">
var naruco_ad = document.getElementById('naruco_ad');
if (naruco_ad != null) {
naruco_ad.innerHTML=naruco_ad_body.innerHTML;
naruco_ad_body.innerHTML="";
}
</script>