仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 716|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网站制作之一个BBS的源代码(二)

[复制链接]
不帅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:32:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
因为现在数据库都使用标准的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应用方案。
精灵巫婆 该用户已被删除
沙发
发表于 2015-1-20 09:48:30 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
只想知道 该用户已被删除
板凳
发表于 2015-1-29 06:38:47 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
若相依 该用户已被删除
地板
发表于 2015-1-29 07:00:09 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
再现理想 该用户已被删除
5#
发表于 2015-1-30 11:55:24 来自手机 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
柔情似水 该用户已被删除
6#
发表于 2015-2-6 11:14:26 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
小妖女 该用户已被删除
7#
发表于 2015-3-4 20:27:46 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
海妖 该用户已被删除
8#
发表于 2015-3-11 20:54:29 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
金色的骷髅 该用户已被删除
9#
发表于 2015-3-19 13:05:39 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
因胸联盟 该用户已被删除
10#
发表于 2015-3-28 01:22:36 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 07:04

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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