关于Flash+HTML实用技巧的一点补充

作者佚名技术来源服务器技术浏览发布时间 2012-07-12

很早前在做本站V2时用到的一些代码，也比较实用，现在贡献出来，希望对大家有用
Flash与HTML 的一些实用技巧

状态栏的文字显示，可以用来在做E文字按钮的时候方便不懂E文的人理解

设为首页（一般关闭窗口，加入收藏都比较简单，这个稍微需要点技巧）

Flash中直接调用sethomepage()函数即可

一段ASP代码，取得访问者的IP地址，操作系统，浏览器（版本类型不是很全，大家可以再尝试补充一下）
<%
function GetBorwser()
dim BcType,Browser,System,Ver,strSystem,strBrowser
str = Request.ServerVariables("HTTP_USER_AGENT")
Agent = split(str,";")
Browser = "Unknown"
System = "Unknown"
BcType = 0
if InStr(Agent(1),"U")>0 and not(InStr(str, "Gecko")>0 and InStr(str, "Netscape")>0) then
Ver = mid(Agent(0),InStr(Agent(0), "/")+1)
Ver = mid(Ver,1,InStr(Ver,"[")-1)
Browser = "Netscape " + Ver
System = mid(Agent(0),InStr(Agent(0), "(")+1)
if not(InStr(System,"Windows")>0) then
System = replace(System, "Win", "Windows ")
end if
end if
if InStr(str, "Gecko")>0 and InStr(str, "Netscape")>0then
if InStr(str,"Netscape6")>0 then
Ver = mid(Agent(4),InStr(Agent(4),"Netscape6")+10)
else
Ver = mid(Agent(4),InStr(Agent(4),"Netscape")+9)
end if
Browser = "Netscape " & Ver
System = replace(Agent(2),")", "")
if not(InStr(System,"Windows")>0) then
System = replace(System, "Win", "Windows ")
end if
end if
if InStr(Agent(1),"IE") >0 then
Browser = Agent(1)
System = replace(Agent(2),")", "")
if not(InStr(System,"Windows")>0) then
System = replace(System, "Win", "Windows ")
end if
end if
if InStr(Agent(1),"IE") >0 and InStr(str,"Opera") >0 then
Browser = mid(Agent(2), InStr(Agent(2),")")+2, InStr(Agent(2),"Opera")-4)
System = mid(Agent(2),1,InStr(Agent(2),")"))
System = replace(System, ")", "")
if not(InStr(System,"Windows")>0) then
System = replace(System, "Win", "Windows ")
end if
end if
strSystem = System
if InStr(strSystem, "98") >0 and InStr(str,"Win 9x") >0 then
strSystem = replace(strSystem, "98", "Me")
end if
strSystem = replace(strSystem, "9x 4.90", "Me")
strSystem = replace(strSystem, "NT 5.0", "2000")
strSystem = replace(strSystem, "NT 5.1", "XP")
strSystem = replace(strSystem, "NT 5.0", "2000")
strSystem = replace(strSystem, "NT 5.2","2003")
strBrowser = replace(Browser, "MSIE", "Internet Explorer")
GetBorwser = strSystem&"+"&strBrowser&"+"&Request.ServerVariables("REMOTE_ADDR")
end function
dim bor,borwsys
bor = GetBorwser()
borwsys = split(bor,"+")
%>//系统版本，浏览器，IP地址
这是SWF文件在读取的时候变量引用
system=<%=borwsys(0)%>&explorer=<%=borwsys(1)%>&ip=<%=borwsys(2)%> 关键词：

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: JSFL概述下一篇: 我用"行为"作动画系列教程(五)

关于关于Flash+HTML实用技巧的一点补充的所有评论

随机推荐