WEB开发网
开发学院WEB开发ASP 常用ASP自定义函数集 (S.Sams) 阅读

常用ASP自定义函数集 (S.Sams)

 2008-10-27 12:06:30 来源:WEB开发网   
核心提示: rem ---取到浏览器版本转换字符串---CODE Copy ...function browser()dim texttext = Request.ServerVariables("HTTP_USER_AGENT")if Instr(text,"MSIE

rem ---取到浏览器版本转换字符串---

CODE Copy ...

function browser()
dim text
text = Request.ServerVariables("HTTP_USER_AGENT")
if Instr(text,"MSIE 5.5")>0 then
browser="IE 5.5"
elseif Instr(text,"MSIE 6.0")>0 then
browser="IE 6.0"
elseif Instr(text,"MSIE 5.01")>0 then
browser="IE 5.01"
elseif Instr(text,"MSIE 5.0")>0 then
browser="IE 5.00"
elseif Instr(text,"MSIE 4.0")>0 then
browser="IE 4.01"
else
browser="未知"
end if
end function

rem ---取到系统脚本转换字符串---

CODE Copy ...

function system(text)
if Instr(text,"NT 5.1")>0 then
system=system+"Windows XP"
elseif Instr(text,"NT 5")>0 then
system=system+"Windows 2000"
elseif Instr(text,"NT 4")>0 then
system=system+"Windows NT4"
elseif Instr(text,"4.9")>0 then
system=system+"Windows ME"
elseif Instr(text,"98")>0 then
system=system+"Windows 98"
elseif Instr(text,"95")>0 then
system=system+"Windows 95"
else
system=system+"未知"
end if
end function

上一页  1 2 3 4 5 6 7  下一页

Tags:常用 ASP 定义

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接