ASP网站制作之一个BBS的源代码(二)
因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。源代码翻开数据库SetCon=Server.CreateObject("ADODB.Connection")
Con.Open"asp",Application("ConASP_RuntimeUserName"),Application("ConASP_RuntimePassword")
SetRecBBS=Server.CreateObject("ADODB.RecordSet")
SetRecReply=Server.CreateObject("ADODB.RecordSet")
SetRecMember=Server.CreateObject("ADODB.RecordSet")
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
<METAHTTP-EQUIV="Content-Type"Content="text/html;charset=gb2312">
<TITLE>履历交换</TITLE>
<STYLETYPE="TEXT/CSS">
td{
color:#ffffff;
font-size:9pt;
}
td.menu{
color:#000000;
background-color:#f0f0d0;
font-size:12pt;
}
input{
color:#000000;
font-size:9pt;
border-top:1pxsolid;
border-left:1pxsolid;
border-right:1pxsolid;
border-bottom:1pxsolid;
}
select{
color:#000000;
font-size:9pt;
border-top:1pxsolid;
border-left:1pxsolid;
border-right:1pxsolid;
border-bottom:1pxsolid;
}
textarea{
color:#000000;
font-size:9pt;
border-top:1pxsolid;
border-left:1pxsolid;
border-right:1pxsolid;
border-bottom:1pxsolid;
}
a:link{
text-decoration:none;
}
a:visited{
text-decoration:none;
}
a:hover{
text-decoration:underline;
}
</STYLE>
</HEAD>
<BODYbgcolor=#c0c0c0>
<P>
<TABLEalign=centervalign=topbgColor=#d0d0d0border=1borderColorDark=#f0f0f0borderColorLight=#505050cellPadding=5cellSpacing=0width=600height=400>
<TR>
<TDvalign=top>
<%
Job=Request("Job")
IfJob=""ThenJob="List"
==================================================================================================
SelectCaseJob
==================================================================================================
==================================================================================================
Case"List"
==================================================================================================
显现文章
%>
<TABLEalign=centerborder=0cellPadding=1cellSpacing=0width=650>
<TR>
<TD>
<TABLEWIDTH="100%"ALIGN=centerBORDER=0CELLSPACING=0CELLPADDING=2BGCOLOR=#f0f0d0>
<TR>
<TDclass=menuvalign=top>
<Ahref="/">飞林庄</A>-><Ahref="<%=ASP_FILE_NAME%>">履历交换</A>
</TD>
<TDclass=menu></TD>
<TDalign=rightclass=menu>
<FORMaction="<%=ASP_FILE_NAME%>"method=get>
<INPUTtype=hiddenname=Jobvalue=List>
[<Ahref="<%=ASP_FILE_NAME%>?Job=Write">宣布文章</A>][<Ahref="<%=ASP_FILE_NAME%>?Job=Apply">请求账号</A>]
<INPUTid=KeywordmaxLength=20name=Keywordsize=18>
<INPUTtype=Submitvalue=主题搜刮>
</FORM>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLEalign=centerbgColor=#000000border=0cellPadding=1cellSpacing=1width=650>
<%
IfRequest("Keyword")""ThenKeyWord=Request("Keyword")ElseKeyWord=""
IfRequest("Page")=""Then
IfIsNumeric(Session("BBS_Page"))Then
Page=Int(Session("BBS_Page"))
Else
Page=1
EndIf
Else
Page=Int(Request("Page"))
EndIf
IfPage<1ThenPage=1
RecBBS.PageSize=ListSize
SQL="SELECT*FROMbbs"
IfKeyWord""Then
SQL=SQL+"WHERE[标题]LIKE%"&KeyWord&"%"
EndIf
SQL=SQL+"ORDERBY[序号]DESC"
RecBBS.OpenSQL,Con,3
PageCount=RecBBS.PageCount
RecordCount=RecBBS.RecordCount
IfPage>PageCountThenPage=PageCount
Session("BBS_Page")=Page
IfNotRecBBS.EOFThen
%>
<TR>
<TD>作者</TD>
<TD>标题</TD>
<TD>复兴&l</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
页:
[1]