ASP編程入門進(jìn)階（十三）：Ad &amp;amp; Content Rotator

2024-05-04 11:02:16

字體：大中小

供稿：網(wǎng)友

ASP的強(qiáng)大不僅僅局限于接受和顯示的交互，更多的是運(yùn)用ActiveX 組件進(jìn)行更強(qiáng)大的Web應(yīng)用。

那究竟ActiveX組件為何物？它又是如何運(yùn)作的呢？其實(shí)ActiveX Server Components(ActiveX 服務(wù)器組件)是一個(gè)存在于 WEB 服務(wù)器上的文件，該文件包含執(zhí)行某項(xiàng)或一組任務(wù)的代碼，組件可以執(zhí)行公用任務(wù)，這樣就不必自己去創(chuàng)建執(zhí)行這些任務(wù)的代碼。很形象的一句話：運(yùn)用組件直接采用別人經(jīng)典的功能強(qiáng)大的程序。只不過這程序已被封裝了的。

那具體ActiveX組件是如何產(chǎn)生、如何得來的呢？一般由下面三個(gè)路徑獲得：
1，安裝完IIS服務(wù)器以后，自帶的一些內(nèi)置組件，如Database Access數(shù)據(jù)庫(kù)連接組件。
2，從第三方開發(fā)者處獲得可選的組件，或者免費(fèi)或者收費(fèi)的，如一些上傳組件（當(dāng)然現(xiàn)在有無組件上傳）。
3，如果你是一位Web程序開發(fā)者，可以使用Visual Basic 、Java 、Visual C＋＋、COBOL等程序設(shè)計(jì)語言來編寫你所需要的ActiveX Server Component。這也就是所謂的ASP進(jìn)行COM(Component Object Model)、COM+開發(fā)了。

當(dāng)然無論是第三方還是自行開發(fā)，在使用之前都必須要進(jìn)行系統(tǒng)的注冊(cè)。不過這些都是后話。我們現(xiàn)在需要的，是盡快先把ASP自帶的一些組件搞懂吧。

不過在使用內(nèi)置組件之前，先用一個(gè)程序檢測(cè)一下自己機(jī)器中的組件支持情況。
引用一段網(wǎng)上流行的“阿江ASP探針”，將下列代碼保存為asp文件進(jìn)行調(diào)試查看。

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) = "內(nèi)容輪顯組件"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%>相 關(guān) 信 息</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>您指定的組件的檢查結(jié)果："  Dim Verobj1  ObjTest(strClass)   If Not IsObj then     Response.Write "<br><font color=red>很遺憾，該服務(wù)器不支持 " & strclass & " 組件！</font>"   Else    if VerObj="" or isnull(VerObj) then       Verobj1="無法取得該組件版本"    Else      Verobj1="該組件版本是：" & VerObj    End If    Response.Write "<br><font class=fonts>恭喜！該服務(wù)器支持 " & strclass & " 組件。" & verobj1 & "</font>"   End IfEnd if%>            </SPAN>
</div>
</div>
<div   id="iwvjtn8m0"   class=page1>
<p align="center" class="pageLink"></p>
</div>

<div   id="iwvjtn8m0"   class="fenxiang">

<div style="text-align:left">上一篇：<a href='/wen/2024/05-04/1009103.html'>ASP中有關(guān)雙引號(hào)，單引號(hào)以及&amp;amp;amp;號(hào)的解釋</a></div>
<br>
<div style="text-align:left">下一篇：<a href='/wen/2024/05-04/1009105.html'>ASP編程入門進(jìn)階（六）：Cookies講座</a></div>
<br>
<script src=/d/js/acmsd/gao21.js></script>

</div>

<div   id="iwvjtn8m0"   class="pinglun">

<script>
		  function CheckPl(obj)
		  {
		  if(obj.saytext.value=="")
		  {
		  alert("您沒什么話要說嗎？");
		  obj.saytext.focus();
		  return false;
		  }
		  return true;
		  }
		  </script><form action="/e/pl/doaction.php" method="post" name="saypl" id="saypl" onsubmit="return CheckPl(document.saypl)">
<table width="100%" border="0" cellpadding="0" cellspacing="0" id="plpost">

學(xué)習(xí)交流