ASP编程：一个BBS的源代码(五)
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。源代码==================================================================================================Case"Modify"
==================================================================================================
修正文章
Which=Request("Which")
WhichID=GetID(Which)
IfLeft(Which,1)="E"ThenTable="bbs"ElseTable="bbsreply"
WrongMsg=""
IfRequest("Modify")="Yes"Then
Userid=Request("Userid")
Password=Request("Password")
Title=Trim(Request("Title"))
Content=RTrim(Request("Content"))
IfTitle=""ThenWrongMsg=WrongMsg+"<DD><LI>标题不克不及为空。</LI>"
IfContent=""ThenWrongMsg=WrongMsg+"<DD><LI>内容不克不及为空。</LI>"
IfWrongMsg=""Then
RecBBS.Open"SELECT[作者]FROM"&Table&"WHERE[序号]="&WhichID,Con,1
IfRecBBS.Fields("作者")=UseridThen
SQL="SELECTCOUNT(*)FROMbbsmemberWHERE[账号]="&SqlStr(Userid)&"AND[暗码]="&SqlStr(Password)&""
RecMember.OpenSQL,Con,1
IfRecMember.Fields(0)>0Then
SQL="UPDATE"&Table&"SET[标题]="&SqlStr(Title)&",[内容]="&SqlStr(Content)&"WHERE[序号]="&WhichID
Con.Execute(SQL)
Else
WrongMsg="<DD><LI>暗码不准确。</LI>"
EndIf
RecMember.Close
Else
WrongMsg="<DD><LI>用户名不准确。</LI>"
EndIf
RecBBS.Close
EndIf
EndIf
Title=""
Content=""
SQL="SELECT[标题],[内容]FROM"&Table&"WHERE[序号]="&WhichID
RecBBS.OpenSQL,Con,1
IfNotRecBBS.EOFThen
Title=RecBBS.Fields("标题")
Content=RecBBS.Fields("内容")
EndIf
RecBBS.Close
%>
<TABLEalign=centerborder=0cellPadding=1cellSpacing=0width=650>
<TR>
<TDclass="menu">
<Ahref="/">飞林庄</A>-><Ahref="<%=ASP_FILE_NAME%>">履历交换</A>-><Ahref="<%=ASP_FILE_NAME%>?Job=Content&Which=<%=Session("BBS_Which")%>"><%=Session("BBS_WhichTitle")%></A>
<%IfWrongMsg""Then%>
<BR><BR>修正失利！<BR><BR>
<%=WrongMsg%><BR>
<%Else%>
<BR><BR>修正乐成！<BR><BR>
<%EndIf%>
<FORMaction="<%=ASP_FILE_NAME%>"method=post>
<INPUTtype=hiddenname=Jobvalue=Modify>
<INPUTtype=hiddenname=Modifyvalue=Yes>
<INPUTtype=hiddenname=Whichvalue="<%=Which%>">
账号：<INPUTtype=textid=Useridname=Useridsize=30maxlength=80><BR>
暗码：<INPUTtype=passwordid=Passwordname=Passwordsize=30maxlength=80><BR><BR>
标题：<INPUTtype=textid=Titlename=Titlevalue="<%=Title%>">
<TEXTAREAid=Contentname=Contentcols=80rows=16><%=Content%></TEXTAREA><BR>
<INPUTtype=submitvalue="确认修正">
</FORM>
</TD>
</TR>
</TABLE>
<%
==================================================================================================
Case"Apply"
==================================================================================================
请求账号
%>
<TABLEalign=centerborder=0cellPadding=7cellSpacing=0width=650>
<TR>
<TDclass=menu>
<FORMaction="<%=ASP_FILE_NAME%>"method=POST>
<INPUTtype=hiddenname=Jobvalue=Adduser>
<P>飞林庄->履历交换->注册账号</P>
<P>
必需的材料：<BR>
<FONTcolor=#ff0000>账号</FONT>：
<INPUTid=Useridname=Useridsize=40maxLength=80><BR>
这是你的团体标识，可使用中文大概英文。<BR>
<FONTcolor=#ff0000>暗码</FONT>：
<INPUTid=Passwordname=Passwordtype=passwordmaxLength=80size=25><BR>
为保证你的账号的合法权益，请审慎选择你的暗码！<BR>
<FONTcolor=#ff0000>反复暗码</FONT>：
<INPUTid=Confirmname=Confirmtype=passwordmaxLength=80size=25><BR>
确认你的暗码。<BR>
<FONTcolor=#ff0000>电子邮件</FONT>：
<INPUTid=Em</p>asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。
页:
[1]