获取用户操作系统信息的ASP函数实例代码

时间:2006-12-12 22:14:00   来源:  作者:  点击:次  出处:技术无忧
关键字：获取

　　Function GetCurrOS()
　　Dim Info
　　Info = navigator.appVersion
　　If Instr(info,"NT 5.1")>0 Then
　　GetCurrOS = "Windows XP"
　　ElseIf Instr(info,"Tel")>0 Then
　　GetCurrOS = "Telport"
　　ElseIf Instr(info,"webzip")>0 Then
　　GetCurrOS = "webzip"
　　ElseIf Instr(info,"flashget")>0 Then
　　GetCurrOS = "flashget"
　　ElseIf Instr(info,"offline")>0 Then
　　GetCurrOS = "offline"
　　ElseIf Instr(info,"NT 5")>0 Then
　　GetCurrOS = "Windows 2000"
　　ElseIf Instr(info,"NT 4")>0 Then
　　GetCurrOS = "Windows NT4"
　　ElseIf Instr(info,"98")>0 Then
　　GetCurrOS = "Windows 98"
　　ElseIf Instr(info,"95")>0 Then
　　GetCurrOS = "Windows 95"
　　Else
　　GetCurrOS = "UnKnow"
　　End If
　　End Function
访问技术无忧网，软硬件通吃保你技术无忧！中文网址http://www.技术无忧.com 或 http://www.技术无忧.net


顶一下

文章评论

共有 0 位网友发表了评论 此处只显示部分留言 点击查看完整评论页面

特别推荐
300x250广告位招租

最新信息