ASP教程之用ASP做一个记事本主笔器
对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。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&quo</p>ASP脚本是采用明文（plaintext）方式来编写的。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。
页:
[1]