ASP编程：用ASP做一个记事本主笔器（附源码）
Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。newDoc.asp----------------------------------------------------------
<%@Language=VBScript%>
<SCRIPTid=DebugDirectivesrunat=serverlanguage=javascript>
//Setthesetotruetoenabledebuggingortracing
@set@debug=false
@set@trace=false
</SCRIPT>
<HTML>
<HEAD>
<METAname=VI60_defaultClientScriptcontent=VBScript>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<SCRIPTID=clientEventHandlersVBSLANGUAGE=vbscript>
<!--
Subbutton2_onclick
fo1.TEXTAREA1.style.fontFamily=select1.value
EndSub
Subbutton3_onclick
fo1.TEXTAREA1.style.fontSize=select2.value
EndSub
Subbutton4_onclick
ifbutton4.value="Bold"then
button4.value="UnBold"
fo1.TEXTAREA1.style.fontWeight="Bold"
else
button4.value="Bold"
fo1.TEXTAREA1.style.fontWeight="normal"
endif
EndSub
Subbutton5_onclick
ifbutton5.value="Italics"then
button5.value="UnItalics"
fo1.TEXTAREA1.style.fontstyle="italic"
else
button5.value="Italics"
fo1.TEXTAREA1.style.fontstyle="normal"
endif
EndSub
Subbutton6_onclick
window.close
EndSub
-->
</SCRIPT>
</HEAD>
<BODY>
<FONTface=arialsize=3color=royalblue><B>ASPNOTEPAD</b></font>
<%dimx
ifRequest("type")="save"then
x=1
endif
%>
<OBJECTid=OBJECT1PROGID="Scripting.FileSystemObject"RUNAT="server"></OBJECT>
<TABLEbgColor=blanchedalmondborder=0cellPadding=1cellSpacing=1
width="100%">
<TR>
<TD>
<%ifnotlen(request("doc"))=0then%>
<Fontface=arialsize=2>Document:<B><%=Request.querystring("doc")%></B></font>
<%else%>
<Fontface=arialsize=2>Document:<B>Untitled</B></font>
<%
endif%>
</TD>
</TR>
</TABLE>
<P><SELECTid=select1name=select1style="HEIGHT:22px;WIDTH:25%">
<OPTIONvalue=TimesNewRoman>TimesNewRoman</option>
<OPTIONvalue=System>System</option>
<OPTIONvalue=Arial>Arial</option>
<OPTIONvalue=ComicSansMS>ComicSansMS</option>
<OPTIONvalue=Courier>Courier</option>
<OPTIONvalue=CourierNew>CourierNew</option>
<OPTIONvalue=Verdana>Verdana</option>
</SELECT>
<INPUTid=button2name=button2type=buttonvalue=Font>
<SELECTid=select2name=select2style="HEIGHT:22px;WIDTH:60px">
<optionvalue=8pt>8pt</option>
<optionvalue=9pt>9pt</option>
<optionvalue=10ptselected>10pt</option>
<%fora=11to100%>
<optionvalue=<%=a%>pt><%=a%>pt</option>
<%next
%>
</SELECT>
<INPUTid=button3name=button3type=buttonvalue=Size>
<INPUTid=button4name=button4type=buttonvalue=Bold>
<INPUTid=button5name=button5type=buttonvalue=Italics>
<INPUTid=button6name=button6type=buttonvalue=CloseWindow><BR><BR>
<fontface=arialsize=1>Youwillnotbequestionedonsavingthechanges</P></font>
<formid=fo1name=fo1method=postaction=newdoc.asp?type=save&ch=1&doc=<%=Request.QueryString("doc")%>>
<INPUTid=text1name=text1style="HEIGHT:24px;WIDTH:80%"value=<%=Request.querystring("doc")%>>
<INPUTid=button1name=button1style="HEIGHT:24px;WIDTH:15%"type=submitvalue="SaveFile">
<hrwidth="100%">
<BR>
<TEXTAREAid=TEXTAREA1name=TEXTAREA1style="FONT-family:arial;FONT-SIZE:10pt;HEIGHT:50%;WIDTH:
100%"><%ifrequest("ch")=1then
Response.Writerequest("textarea1")
endif
iflen(request("text1"))>0then
ifOBJECT1.FileExists(Request("text"))then
OBJECT1.OpenTextFile(request("doc")).Writerequest("textarea1")
else
OBJECT1.CreateTextFile(request("text1"),true).WriteRequest("textarea1")
endif
endif
ifnotRequest.QueryString("doc")=""andnotRequest("ch")=1then
ifOBJECT1.FileExists(Request.QueryString("doc"))then
Response.WriteOBJECT1.OpenTextFile(Request.QueryString("doc")).ReadAll
else
Response.Write"<????>NodocumentExists<????>"
endif
endif
%>
</TEXTAREA>
</form>
<HRwidth="100%">
</BODY>
</HTML>
aspnp.asp
----------------------------------------------------------------
<%@Language=VBScript%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<SCRIPTID=clientEventHandlersJSLANGUAGE=javascript>
<!--
functionsubmit1_onclick(){
if(frm1.file1.value==null)
window.open("newdoc.asp?doc="+document.frm1.file1.value);
}
functionbutton2_onclick(){
window.close()
}
functionnew_onclick(){
window.open("newdoc.asp?doc=");
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<formname=frm1>
<Palign=left><FONTcolor=royalblueface=Arial><STRONG>ASP
NOTEPAD</STRONG></FONT></P>
<Palign=center>
<INPUTid=file1name=file1
type=fileCHECKEDreadOnlystyle="HEIGHT:22px;LEFT:55px;TOP:16px;WIDTH:100%"><BR><BR>
<INPUTid=submit1name=submit1type=submitvalue=Openstyle="HEIGHT:24px;WIDTH:65px"
LANGUAGE=javascript><INPUTid=newname=newstyle="HEIGHT:24px;
WIDTH:64px"type=submitvalue=NewLANGUAGE=javascript>
<INPUTid=button2name=button2style="HEIGHT:24px;WIDTH:74px"type=buttonvalue=Exit
LANGUAGE=javascript></P>
</form>
<P></P>
<P>
<HR>
<FONTface=Arialsize=2><STRONG>Author:</STRONG><FONTcolor=royalblue>Sharon
Jayaraj<BR></FONT><STRONG>Platform<FONTcolor=lightseagreen>:
</FONT></STRONG><FONTcolor=lightseagreen>Win98</FONT><BR><STRONG>Application
Used:</STRONG><FONTcolor=orange>Interdev</FONT><FONTcolor=lightpink>(foreasy
Working)</FONT>and<FONTcolor=orange>PWS</FONT><FONTcolor=lightpink>(for
testing)</FONT></FONT></P>
</BODY>
</HTML>
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 那么，ASP.Net有哪些改进呢？ 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。
页:
[1]