|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|