设为首页收藏本站
开启辅助访问 切换到窄版

仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
仓酷云»社区 › 程序开发 Program › ASP网页编程 › ASP编程：用ASP做一个记事本主笔器（附源码） ...
返回列表 发新帖
查看: 333|回复: 8
打印 上一主题 下一主题

[学习教程] ASP编程：用ASP做一个记事本主笔器（附源码）

[复制链接]
活着的死人 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:27:52 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x
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来写程序就可以说自己高档了
javascript, Microsoft, content, 记事本, server

相关帖子
回复

使用道具 举报

透明 该用户已被删除
沙发
发表于 2015-1-19 13:29:00 | 只看该作者
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。
回复 支持 反对

使用道具 举报

若相依 该用户已被删除
板凳
发表于 2015-1-24 16:26:42 | 只看该作者
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
回复 支持 反对

使用道具 举报

金色的骷髅 该用户已被删除
地板
发表于 2015-2-2 10:48:03 | 只看该作者
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。
回复 支持 反对

使用道具 举报

再现理想 该用户已被删除
5#
发表于 2015-2-7 18:14:37 | 只看该作者
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write
回复 支持 反对

使用道具 举报

乐观 该用户已被删除
6#
发表于 2015-2-22 22:01:18 | 只看该作者
那么，ASP.Net有哪些改进呢？
回复 支持 反对

使用道具 举报

莫相离 该用户已被删除
7#
发表于 2015-3-7 03:34:58 | 只看该作者
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。
回复 支持 反对

使用道具 举报

爱飞 该用户已被删除
8#
发表于 2015-3-14 10:51:00 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
回复 支持 反对

使用道具 举报

不帅 该用户已被删除
9#
发表于 2015-3-21 04:19:13 | 只看该作者
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-10-2 06:41

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表