ASP编程入门进阶（十三）：Ad & Content Rotator

asp的宏大不只仅控制于接收和表露的交互，更多的是应用activex 组件举行更宏大的web运用。那毕竟activex组件何以物？它又是怎样运作的呢？本来activex server components(activex 效劳器组件)是一个生存于 web 效劳器上的文献，该文献包括实行某项或一组工作的代码，组件不妨实行公用工作，如许就不用本人去创造实行那些工作的代码。很局面的一句话：应用组件径直沿用旁人典范的功效宏大的步调。只然而这步调已被封装了的。那简直activex组件是怎样爆发、怎样得来的呢？普遍由底下三个路途赢得：1，安置完iis效劳器此后，自带的少许内置组件，如database access数据库贯穿组件。2，从第三方开拓者处赢得可选的组件，大概免费大概收款的，如少许上传组件（固然此刻有无组件上传）。3，即使你是一位web步调开拓者，不妨运用visual basic 、java 、visual c＋＋ 、cobol等步调安排谈话来编写你所须要的activex server component。这也即是所谓的asp举行com(component object model)、com+开拓了。固然不管是第三方仍旧自行开拓，在运用之前都必需要举行体例的备案。然而那些都是后话。咱们此刻须要的，是尽量先把asp自带的少许组件搞懂吧。然而在运用内置组件之前，先用一个步调检验和测定一下本人呆板中的组件扶助情景。援用一段网上时髦的“阿江asp探针”，将下列代码生存为asp文献举行调节和测试察看。1，objcheck.asp<%option explicit %><%dim filenamefilename=request.servervariables("script_name")dim objtotest(14,4)objtotest(0,0) = "mswc.adrotator"objtotest(0,1) = "告白轮显组件"objtotest(1,0) = "mswc.contentrotator"objtotest(1,1) = "实质轮显组件"objtotest(2,0) = "mswc.browsertype"objtotest(2,1) = "欣赏器典型表露组件"objtotest(3,0) = "mswc.nextlink"objtotest(4,0) = "mswc.tools"objtotest(5,0) = "mswc.status"objtotest(6,0) = "mswc.counters"objtotest(7,0) = "mswc.iislog"objtotest(8,0) = "mswc.permissionchecker"objtotest(9,0) = "microsoft.xmldom"objtotest(10,0) = "iissample.contentrotator"objtotest(11,0) = "iissample.pagecounter"objtotest(12,0) = "scripting.filesystemobject"objtotest(13,0) = "adodb.connection"public isobj,verobj,testobjdim ifor i=0 to 13 on error resume next isobj=false verobj="" testobj="" set testobj=server.createobject(objtotest(i,0)) if isobject(testobj) then isobj = true verobj = testobj.version if verobj="" or isnull(verobj) then verobj=testobj.about end if objtotest(i,2)=isobj objtotest(i,3)=verobjnextsub objtest(strobj) on error resume next isobj=false verobj="" testobj="" set testobj=server.createobject (strobj) if isobject(testobj) then isobj = true verobj = testobj.version if verobj="" or isnull(verobj) then verobj=testobj.about end if end sub%><title>object check</title><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cccccc" width=80%> <tr align=center><td width=40%>组 件 名 称</td><td width=40%>相 关 信 息</td></tr> <%for i=0 to 13%> <tr> <td> <%=objtotest(i,0) & " <font color=#888888>" & objtotest(i,1)%></font></td> <td>  <% if not objtotest(i,2) then response.write "<font color=red>不扶助</font>" else response.write "扶助，" & left(objtotest(i,3),22) end if%></td> </tr> <%next%></table><form action=<%=filename%> method=post><input type=text name="classname" size=40><input type=submit value=" 确 定 "></form><%dim strclassstrclass = trim(request.form("classname"))if strclass <> "" thenresponse.write "<br>您指定的组件的查看截止：" dim verobj1 objtest(strclass) if not isobj then response.write "<br><font color=red>很可惜，该效劳器不扶助 " & strclass & " 组件！</font>" else if verobj="" or isnull(verobj) then verobj1="没辙博得该组件本子" else verobj1="该组件本子是：" & verobj end if response.write "<br><font class=fonts>祝贺！该效劳器扶助 " & strclass & " 组件。" & verobj1 & "</font>" end ifend if%> [ctrl+a 十足采用 提醒：你可先窜改局部代码，再按运转] 即使你不妨运转该asp文献，也即是说你具有iis的web效劳了。既是有iis，不出不料，咱们即日要学的组件adrotator断定该当也是扶助的。p.s.普遍微软自带的大多是mswc发端，我也普遍戏称为microsoft wc :)一、adrotator组件该组件常常又称告白轮显组件，其功效十分于在网站上创造了一个，适合告白范围规范功效的告白体例。它具备：历次考察asp页面时，在页面上表露各别的告白实质；盯梢一定告白表露度数的本领以及盯梢存户端在告白上单击度数的本领。ad rotator 组件的处事道理是经过读取 ad rotator 安置文献来实行的，该文献囊括与要表露图象文献的场所相关的消息，以及每个图象的各别属性。底下即是一个规范的 ad rotator 安置文献。1，典型为txt文本 ，定名为myadrot.txtredirect gourl.aspwidth 88height 31border 1*http://edu.chinaz.com/files/beyondpic/logo.gifhttp://www.blueidea.comblue!dea10

代码的前四行包括了告白的全部树立：1，redirect 指出告白将变成其热贯穿的url。但其并非径直跳转的url，它包括了两个参数的查问字符串：一定告白网页的url和图象文献的url。那些值进而可在gourl.asp文献中举行索取，而且与此同声gourl.asp还不妨举行其余的处置处事，比方盯梢单击告白的度数、跳转到接收的的告白网页等。2，width、height、border不必说一看就领会是贯穿图片的宽、高以及边框线巨细。“*”号表白了分割符，以及“*”号底下的每四动作一个单元举行刻画每个告白的详细。个中辨别代办：1，每个告白的刻画包括图象文献的url2，告白东西的网页url（即使告白存户没有网页，则该动作一个连字符“-”，指出该告白没有链接）3，图象的代替笔墨4，及指定该页与其余页瓜代表露频次的数值。该文献是用户自创造的文献。它常常用来领会由adrotator东西发送的查问字符串的剧本，并将用户重定向到与用户所点击的告白所关系的url。那简直如何运用该定向文献呢？2、adrotator.asp该文献最重要的是贯穿myadrot.txt文献，而且实行myadrot.txt文献中的消息实质。很大略，两行代码。

<%set myad=server.createobject("mswc.adrotator")%><%=myad.getadvertisement("myadrot.txt")%>

“<%set myad=server.createobject("mswc.adrotator")%>”学过server东西，断定还牢记该东西宏大的一个本领，那即是createobject。他可用来创造仍旧备案到效劳器上的activex组件范例。那这就表白援用组件mswc.adrotator了。“<%=myad.getadvertisement("myadrot.txt")%>”ad rotator组件扶助的独一本领也即是getadvertisement了，它惟有一个参数:adrotator安置文献的称呼。提防指向文献的路途是暂时假造目次的对立路途，物理路途是不承诺的。也即是说暂时的adrotator.asp和myadrot.txt是在同一目次下了。而后举行实行该asp文献，屡次革新，会创造历次的告白真实是在轮显着的。这时候再提防点击图片的超等贯穿地方。比方：gourl.asp?url=http://edu.chinaz.com/files/beyondpic/logo.gif

很鲜明咱们还须要创造gourl.asp，而且将url参数的值举行索取，再接着跳转到该url地方上。3、gourl.asp该页重要功效：索取url参数值，跳转到告白网页。

<%whaturl=request.querystring("url")%><%response.redirect whaturl%>

功效很大略就实行。固然，方才也说了，这个页还不妨做其它少许事变：盯梢存户端在告白上单击度数，比方将接收过来的沟通的url地方举行记数的累加，就能表露出该网站告白的点击度数，而后和相映告白商拿取相映的用度什么的……呵呵，在早期都诉求须要本质点击率的，此刻好象尽管，只有告白挂那儿就行-_-!然而，总的说来，这个组件的功效即是如许。你有多个告白商，而且是按比率独立表露，还须要计划本质点击率的功夫，用ad rotator组件是最佳然而。那也即是说视情景而定了。结果再说下，该组件的实行须要三个文献：重定向文献、援用文献、处置转向文献。二、content rotator组件正如ad rotator为一告白轮显，content rotator组件则为实质轮显。该组件就像一个简化了的ad rotator组件，以是其处事道理亦为：经过读取安置文献来实行的网页实质的表露。该安置文献也即是：实质安排文献(content schedule file)。1，典型为txt文本 ，定名为context.txt%% 3 //反面是解释<color=red>asp编制程序初学进阶</color>%% 4 //底下表露表格<table><tr><td>www.cnbruce.com</td></tr></table>%% 5<a href="http://www.cnbruce.com">cn-bruce</a>

该文献的构造比ad rotator的安排文献大略，仅需供给要运用的各个文古字符串的列表，由前方加两个百分号(%%)的语句行证明。为了树立每个条手段比例(确定它出此刻归来页面中的频次)，在双百分号的反面增添了一个数字。即使后来跟双斜杠(//)就表白为增添的解释。接着即是经过asp页面将那些消息按规则完备表露。2、showcontext.asp<% set mycontent = server.createobject("mswc.contentrotator")content = mycontent.choosecontent("context.txt")response.write content%>

"set mycontent = server.createobject("mswc.contentrotator")"，先创造和content rotator组件的接洽。"content = mycontent.choosecontent("context.txt")"，表白沿用content rotator组件的有个本领：choosecontent，而且赋值给变量content，到结果输入表露截止。3、showall.asp之上页面实质个表露是经过content rotator组件的choosecontent本领实行的。其余，该组件再有一本领：getallcontent。示比方下：<% set mycontent = server.createobject("mswc.contentrotator")content = mycontent.getallcontent("context.txt")response.write content%>

运转截止会创造context.txt一切实质被证明实行，而且分门别类之间会机动增添了<hr>程度线。