仓酷云

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

[学习教程] ASP教程之一个Banner办理类程序(转译)

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

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

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

x
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了,程序挪用体例
1..Banner(Width,Height)
.Banner办法是用来告知Banner办理类程序你但愿在客户端显现的是多年夜的Banner.
I.Width:<Banner宽度>
II.Height:<Banner高度>
2..Click(Banner_ID,Banner_URL)
这个办法是程序员很少利用的.它是感化是用在客户端单击Banner统计
I.Banner_ID:<被单击Banner的编号>
II.Banner_URL:<Banner链接的网址,比方:BannerMaster.asp?ID=1&URL=www.banneryouselected.com>

创立一个名为BannerMaster的数据库或<ahref="http://asp-code.aspsamples.com/fpdb/BannerMaster.mdb">Download</a>
在新数据库中增加上面的列
"Banner_ID[1...2...3..]IntDon"tallowNULLsandCheckIdentitySeed1
"Banner_Vendor[exMonster.com]Varchar50AllowNULLs
"Banner_Width[ex468]intAllowNULLs
"Banner_Height[ex60]intAllowNULLs
"Banner_Alt[exMonsterJobSearch]Varchar50AllowNULLs
"Banner_URL[exwww.monster.com]Varchar50AllowNULLs
"Banner_File[exmonster_logo-1.gif]Varchar50AllowNULLs
"Banner_Path[eximages/ads/]Varchar50AllowNULLs
"Banner_Imp_Purchased[ex10000]Varchar50AllowNULLsDefault1000
"Banner_Imp_Current[ex2343]Varchar50AllowNULLsDefault1
"Banner_Imp_Total[ex120034]Varchar50AllowNULLsDefault1
"Banner_CT_Current[ex23]Varchar50AllowNULLsDefault1
"Banner_CT_Total[ex1200]Varchar50AllowNULLsDefault1
"Banner_CT_Percent[ex1.01]Varchar50AllowNULLsDefault0
"Banner_Account_Active[exTrue]Varchar50AllowNULLsDefaultTrue

将Banner添到数据库.
创立名为BannerMaster.asp的文件,代码以下:

<!--#includevirtual="BannerMasterTestClass.asp"-->
<%
DimBanner_URL
DimBanner_ID
Banner_URL=Request("B")
Banner_ID=Request("ID")
Callbm.Click(Banner_ID,Banner_URL)
Response.Redirect"HTTP://"&Banner_URL
%>

创立名为BannerMasterTestClass.asp的包括文件,代码以下:
<%
"*******************************************************************************
"翻开数据库
"*******************************************************************************
"界说毗连数据变量
dimServer_IP
dimDatabase_Name
dimTable_Name
dimUser_Name
dimPassword

Server_IP="xx.xx.xx.xx"
Database_Name="BANNER_DATABASE"
Table_Name="BANNER_MASTER"
User_Name="Logon_Name"
Password="User_Password"


SetDBConnection=Server.CreateObject("adodb.connection")
DSN="DRIVER={MicrosoftAccessDriver(*.mdb)};"
DSN=DSN&"DBQ="&Server.Mappath("BannerMaster.mdb")
DSN=DSN&";UID="&User_Name&";PWD="&Password
DBConnection.OpenDSN


"*******************************************************************************
"创立类
"*******************************************************************************
ClassBannerMasterClass
PublicError_Trapping_On
PublicSQL_Debug
PublicBannerArray"Avboutsideoffunction
PublicNumber_Of_Banners

"*******************************************************************************

"*******************************************************************************
"类初始化
"*******************************************************************************
PrivateSubClass_Initialize()
IfSQL_Debug=TrueThen
Response.write"DefaultsSet<br>"
EndIf
EndSub

"*******************************************************************************
"BannerMaster
"*******************************************************************************
PublicFunctionBanner(Banner_Width,Banner_Height)
IfError_Trapping_OnFalseThenOnErrorResumeNext
IfSQL_Debug=TruethenResponse.Write"<br>FUNCTIONBannerCalled<br><br>"
IfBanner_Width=""ORBanner_Height=""Then
IfSQL_Debug=TruethenResponse.Write"YoumustspecifyaBannerWidthandHeight<br>"
Banner="BannerWidthandHeight<br>"
ExitFunction
EndIf

"*******************************************************************************
"创立流动巨细的举动Banners
&qu</p>SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。
深爱那片海 该用户已被删除
沙发
发表于 2015-1-20 09:50:17 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
变相怪杰 该用户已被删除
板凳
 楼主| 发表于 2015-1-29 06:40:29 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
柔情似水 该用户已被删除
地板
发表于 2015-2-5 23:26:09 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
再现理想 该用户已被删除
5#
发表于 2015-2-14 05:10:20 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
愤怒的大鸟 该用户已被删除
6#
发表于 2015-3-4 04:45:41 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
7#
发表于 2015-3-11 16:55:14 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
第二个灵魂 该用户已被删除
8#
发表于 2015-3-19 02:23:57 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
不帅 该用户已被删除
9#
发表于 2015-3-27 05:08:11 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
飘灵儿 该用户已被删除
10#
发表于 2015-3-27 05:08:12 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
透明 该用户已被删除
11#
发表于 2015-3-27 05:08:11 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-14 14:07

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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