ASP网页编程之一个BBS的源代码(三)

实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。源代码==================================================================================================
Case"Content"
==================================================================================================
显现内容

IfRequest("Keyword")""ThenKeyWord=Request("Keyword")ElseKeyWord=""

%>



<TABLEalign=centerborder=0cellPadding=1cellSpacing=0width=650>
<TR>
<TDclass="menu">
<Ahref="/">飞林庄</A>-><Ahref="<%=ASP_FILE_NAME%><%IfKeyWord""ThenResponse.Write"?Keyword="&KeyWord%>">履历交换</A>->如何输入图象</TD>
</TR>
</TABLE>
<TABLEalign=centerborder=0cellPadding=8cellSpacing=0width=650>
<TR>
<TDbgColor=#000000>
<%
Which=Request("Which")

IfIsNumeric(Which)Then

Session("BBS_Which")=Which

点击数加一
Con.Execute("UPDATEbbsSET[点击]=[点击]+1WHERE[序号]="&Which)

SQL="SELECT*FROMbbsWHERE[序号]="&Which
RecBBS.OpenSQL,Con,1
IfNotRecBBS.EOFThen

Title=RecBBS.Fields("标题")
Session("BBS_WhichTitle")=Title
%>
<P><FONTcolor=#66ff99>序号</FONT>：<FONTcolor=#6699ff>E<%=Which%></FONT><BR>
<FONTcolor=#66ff99>作者</FONT>：<%=Server.HTMLEncode(RecBBS.Fields("作者"))%><BR>
<FONTcolor=#66ff99>标题</FONT>：<%=Server.HTMLEncode(Title)%><BR>
<FONTcolor=#66ff99>工夫</FONT>：<%=RecBBS.Fields("工夫")%><BR>
<BR>
<PRE>
<%=Server.HTMLEncode(RecBBS.Fields("内容"))%>
</PRE>
</P>
<%
EndIf
RecBBS.Close

SQL="SELECT*FROMbbsreplyWHERE[原文]="&Which
RecReply.OpenSQL,Con,3

AllID="E"&Which

DoWhileNotRecReply.EOF

ID=RecReply.Fields("序号")
AllID=AllID&":"&ID
%>
<P><FONTcolor=#66ff99>序号</FONT>：<FONTcolor=#6699ff><%=ID%></FONT><BR>
<FONTcolor=#66ff99>作者</FONT>：<%=Server.HTMLEncode(RecReply.Fields("作者"))%><BR>
<FONTcolor=#66ff99>标题</FONT>：<%=Server.HTMLEncode(RecReply.Fields("标题"))%><BR>
<FONTcolor=#66ff99>工夫</FONT>：<%=RecReply.Fields("工夫")%><BR>
<BR>
<PRE>
<%=Server.HTMLEncode(RecReply.Fields("内容"))%>
</PRE>
</P>
<%
RecReply.MoveNext
IfRecReply.EOFThenExitDo
Loop
RecReply.Close

EndIf
%>
</TD>
</TR>
</TABLE>
<TABLEalign=centerborder=0cellPadding=7cellSpacing=0width=650>
<TR>
<TDclass=menu>
<FORMaction="<%=ASP_FILE_NAME%>"method=post>
<INPUTtype=hiddenid=Jobname=Jobvalue=Reply>
账号：<INPUTid=Useridname=UseridmaxLength=30size=30>
暗码：<INPUTid=PasswordmaxLength=30name=Passwordsize=30type=password><BR>
标题：<INPUTid=TitlemaxLength=80name=Titlesize=72value="复兴：<%=Title%>"><BR>
<TEXTAREAcols=80id=Contentname=Contentrows=10></TEXTAREA><BR>
<INPUTtype=submitvalue="回复">
</FORM>
<P>
选中文章：
<SELECTid=Whichname=Whichsize=1>
<%
WhichID=Split(AllID,":")

ForEachIDInWhichID
Response.Write"<OPTIONvalue="
Response.WriteID&">"&ID
Response.Write"</OPTION>"
Next
%>
</SELECT><BR>
<INPUTid=EmailmaxLength=80name=Emailsize=40>
<INPUTtype=buttonid=MailBackname=MailBackvalue="寄复书箱"OnClick="window.open(<%=ASP_FILE_NAME%>?Job=Send&Which=+Which.value+&Email=+Email.value,_self)">
<INPUTtype=buttonid=Modifyname=Modifyvalue="修正"OnClick="window.open(<%=ASP_FILE_NAME%>?Job=Modify&Which=+Which.value,_self)">
<INPUTtype=buttonid=Deletename=Daletevalue="删除"OnClick="window.open(<%=ASP_FILE_NAME%>?Job=Delete&Which=+Which.</p>缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

那么，ASP.Net有哪些改进呢？