该代码则是检测当前浏览器对各类网页技术的支持情况,那下面就可以根据某特定情况做相应变动
3,fram.asp
<%set bc=server.CreateObject("mswc.browsertype") if bc.frames then %> <frameset rows="*,*"> <frame src="http://www.google.com"> <frame src="http://www.baidu.com"> </framest> <%else%> 你的浏览器不支持框架 <%end if%> |
很简单的意思:如果当前浏览器支持框架则进行frameset的显示,否则提示“你的浏览器不支持框架”
当然,需要提醒你的:不要过分依赖该组件,因为其只是提取browscap.ini里的值,而该值随时可以被客户修改,或者记录过时,不能真实反映到浏览器的情况,慎用之。
二、Content Linking组件
曾经用DW做网页都有这样一个烦恼:新做了页面,其它所有相关的页都要重新再做一次超级链接。一次也就罢了,多了多了不禁觉得无用功做了不少。试想如果能有一个专门的文件来负责页面的连接那该多好。
Content Linking 组件也就应运而生了。它非但可以使你在这些页面中建立一个目录表,而且还可以在它们中间建立动态连接,并自动生成和更新目录表及先前和后续的 Web 页的导航链接。
使用该组件,首先需要编写一个目录文件,也就是网页网址的顺序列表文件,它是一个文本文件,可以自由命名。其次,编写一个ASP文件,根据目录文件提供的信息自动生成带超链的目录页。如果需要在每一页上假如“向前或向后翻页”的超链,就再编写一个能自动生成翻页超链的包含文件,可使用inc为扩展名,例如"Nlink.inc"。以后,在组内每一页中包含它。
1,link.txt
redirect.asp?url=http://www.cnbruce.com/ cnbruce.com redirect.asp?url=http://www.blueidea.com/ blueidea.com redirect.asp?url=http://www.it365cn.com/ it365cn.com |
该目录文件的网址就是连接网址,文本就是连接文本了,需要注意的是中间采用Tab键进行分隔。
2,link.asp
<%Set objNextLink = Server.CreateObject("MSWC.Nextlink")%> <% intCount = objNextLink.GetListCount("link.txt") For i = 1 To intCount %> <a href="<%=objNextLink.GetNthURL("link.txt", i) %>"> <%=objNextLink.GetNthDescription("link.txt", i) %> </a> <br> <%Next%> |
“