浅析ASP内置组件

本文的内容是使用ASP的ActiveX Server Components(组件)。

  一、 Browser Capabilities Component(浏览器能力组件):

  我们知道,不同的浏览器也许支持不同的功能,如有些浏览器支持框架,有些不支持。利用这个组件,可以检查浏览器的能力,使你的网页争对不同的浏览器显示不同的页面(如对不支持Frame的浏览器显示不含Frame的网页)。 该组件的使用很简单,需注意的是,要正确使用该组件,必须保证Browscap.ini文件是最新的(其实每一个浏览器及其特性都列在这个文件中,自己打开看看就明白了),否则结果可能相去甚远,如Win98第二版所带的IE5.0,在下例中显示为Netscape。这个文件一般位于Web服务器的“WinntSystem32InetSrv”下,最新的版本可去http://www.asptracker.com/或http://www.cyscape.com/browscap下载。

  例:wuf22.asp

<html> 
<BODY> 
‘注意:组件的使用与对象类似,但是组件在使用前必须先创建,而使用内置对象前不必创建。 
<%Set BrowsCap=Server.CreateObject("MSWC.BrowserType")%> 
请稍候...... 
<P> 
<TABLE BORDER=1 CELLPADDING=10> 
<TR><TD>浏览器类型</TD><TD><%=BrowsCap.Browser%></TD></TR> 
<TR><TD>浏览器版本</TD><TD><%=BrowsCap.version%></TD></TR> 
<TR><TD>是否支持表格</TD><TD><%=BrowsCap.tables%></TD></TR> 
<TR><TD>是否支持ActiveX控件</TD><TD><%=BrowsCap.activexcontrols%></TD></TR> 
<TR><TD>是否支持JavaApplets</TD><TD><%=BrowsCap.javaapplets%></TD></TR> 
<TR><TD>是否支持JavaScript</TD><TD><%=BrowsCap.javascript%></TD></TR> 
<TR><TD>是否支持Cookies</TD><TD><%=BrowsCap.Cookies%></TD></TR> 
<TR><TD>是否支持Frames</TD><TD><%=BrowsCap.Frames%></TD></TR> 
<TR><TD>操作系统</TD><TD><%=BrowsCap.Platform%></TD></TR> 
<TR><TD>是否支持VBScript</TD><TD><%=BrowsCap.vbscript%></TD></TR> 
</TABLE> 
<%Set BrowsCap = Nothing%> 
</BODY> 
</HTML>

  注意:在本例中我们也接触了Server对象的CreateObject方法,Server.CreateObject用于创建已经注册到服务器上的ActiveX组件(说明:还有其他方法可以创建组件)。不过别忘了用“Set 对象 = Nothing”来及时释放资源,这应该成为一个习惯。

  二、File Access组件

  File Access组件由FileSystemObject对象和TextStream对象组成,使用FileSystemObject对象,可以建立、检索、删除目录及文件,而TextStream对象则提供读写文件的功能。

  实例wuf23.asp。强调:只有通过实践才能加深理解,实践和比较程序运行结果是快速掌握编程技巧的最好方法。

<%@ Language=VBScript %> 
<% Option Explicit 
' 注意绝对路径: C:Inetpubhomeaspwuf23.asp 主页路径: C:Inetpubhome 
Dim Path, File, FSO, CTF, Str, StrHTML, StrNoHTML

'使用 CreateObject 方法创建 FileSystemObject 对象 FSO 
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Path = Server.MapPath("test") '返回test的物理目录(绝对路径) 
'就本例而言, 下面这句与上面这句返回的Path完全一样 
'Path = Server.MapPath("asp est") 
Response.Write Path & "<Br>"

If FSO.FolderExists(Path) = false then '判断该文件夹是否存在 
FSO.CreateFolder(Path) '新建文件夹 
End If

File = Path & "asptest.txt" 
' 写文件操作 
If FSO.FileExists(File) = True Then '判断该文件是否存在 
'建立 TextStream 对象 CTF 
Set CTF = FSO.OpenTextFile(File, 8, False, 0) '打开文件, 详见说明 
Else 
Set CTF = FSO.CreateTextFile(File,False, False) '新建文件 
End If 
CTF.Write "<P>第一个字符串; " '写字符串 
CTF.WriteLine "第二个字符串; " '写字符串, 并加上一个换行符 
CTF.Write "第三个字符串; " 
CTF.Close '注意要关闭文件 
%> 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值