|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。编程ASP的壮大不单单范围于承受和显现的交互,更多的是使用ActiveX组件举行更壮大的Web使用。
那事实ActiveX组件为什么物?它又是怎样运作的呢?实在ActiveXServerComponents(ActiveX服务器组件)是一个存在于WEB服务器上的文件,该文件包括实行某项或一组义务的代码,组件能够实行公用义务,如许就不用本人往创立实行这些义务的代码。很抽象的一句话:使用组件间接接纳他人典范的功效壮大的程序。只不外这程序已被封装了的。
那详细ActiveX组件是怎样发生、怎样得来的呢?一样平常由上面三个路径取得:
1,安装完IIS服务器今后,自带的一些内置组件,如DatabaseAccess数据库毗连组件。
2,从第三方开辟者处取得可选的组件,大概收费大概免费的,如一些上传组件(固然如今有没有组件上传)。
3,假如你是一名Web程序开辟者,可使用VisualBasic、Java、VisualC++、COBOL等程序计划言语来编写你所必要的ActiveXServerComponent。这也就是所谓的ASP举行COM(ComponentObjectModel)、COM+开辟了。
固然不管是第三方仍是自行开辟,在利用之前都必需要举行体系的注册。不外这些都是后话。我们如今必要的,是尽快先把ASP自带的一些组件弄懂吧。
不外在利用内置组件之前,先用一个程序检测一下本人呆板中的组件撑持情形。
援用一段网下流行的“阿江ASP探针”,将以下代码保留为asp文件举行调试检察。
1,objcheck.asp
<%OptionExplicit%>
<%
Dimfilename
filename=Request.ServerVariables("SCRIPT_NAME")
DimObjTotest(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"
publicIsObj,VerObj,TestObj
dimi
fori=0to13
onerrorresumenext
IsObj=false
VerObj=""
TestObj=""
setTestObj=server.CreateObject(ObjTotest(i,0))
IfIsObject(TestObj)then
IsObj=True
VerObj=TestObj.version
ifVerObj=""orisnull(VerObj)thenVerObj=TestObj.about
endif
ObjTotest(i,2)=IsObj
ObjTotest(i,3)=VerObj
next
subObjTest(strObj)
onerrorresumenext
IsObj=false
VerObj=""
TestObj=""
setTestObj=server.CreateObject(strObj)
IfIsObject(TestObj)then
IsObj=True
VerObj=TestObj.version
ifVerObj=""orisnull(VerObj)thenVerObj=TestObj.about
endif
Endsub
%>
<title>ObjectCheck</title>
<tableborder="1"cellpadding="0"cellspacing="0"style="border-collapse:collapse"bordercolor="#cccccc"width=80%>
<tralign=center><tdwidth=40%>组件名称</td><tdwidth=40%>相关信息</td></tr>
<%Fori=0to13%>
<tr>
<td><%=ObjTotest(i,0)&"<fontcolor=#888888>"&ObjTotest(i,1)%></font></td>
<td>
<%
IfNotObjTotest(i,2)Then
Response.Write"<fontcolor=red>不撑持</font>"
Else
Response.Write"撑持,"&left(ObjTotest(i,3),22)
EndIf%></td>
</tr>
<%next%>
</table>
<FORMaction=<%=filename%>method=post>
<inputtype=textname="classname"size=40>
<INPUTtype=submitvalue="确定">
</FORM>
<%
DimstrClass
strClass=Trim(Request.Form("classname"))
IfstrClass""then
Response.Write"<br>您指定的组件的反省了局:"
DimVerobj1
ObjTest(strClass)
IfNotIsObjthen
Response.Write"<br><fontcolor=red>很遗憾,该服务器不撑持"&strclass&"组件!</font>"
Else
ifVerObj=""orisnull(VerObj)then
Verobj1="没法获得该组件版本"
Else
Verobj1="该组件版本是:"&VerObj
EndIf
Response.Write"<br><fontclass=fonts>祝贺!该服务器撑持"&strclass&"组件。"&verobj1&"</font>"
EndIf
Endif
%>
[Ctrl+A全体选择提醒:你可先修正部分代码,再按运转]
假如你能够运转该ASP文件,也就是说你具有IIS的WEB服务了。既然有IIS,不出不测,我们明天要学</p>因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。 |
|