Oversættelse af asp script til php
Nogle der kan oversætte dette over:Function RtrnDocType()
dim browser, str, re
browser = request.servervariables("HTTP_USER_AGENT")
set re = new RegExp
re.global = false
re.ignoreCase = true
re.pattern = "Mac"
if re.test(browser) then
re.pattern = "MSIE 5."
if re.test(browser) then
' str = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
str = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
str = str & VbCrLf
' str = str & "<html lang="""&Doc.RtrnContentLanguage(gSite_ID)&""">"
str = str & "<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang="""&Doc.RtrnContentLanguage(gSite_ID)&""" lang="""&Doc.RtrnContentLanguage(gSite_ID)&""">"
mBrowser = "macie"
else
str = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
str = str & VbCrLf
str = str & "<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang="""&Doc.RtrnContentLanguage(gSite_ID)&""" lang="""&Doc.RtrnContentLanguage(gSite_ID)&""">"
mBrowser = "mac"
end if
else
str = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
str = str & VbCrLf
str = str & "<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang="""&Doc.RtrnContentLanguage(gSite_ID)&""" lang="""&Doc.RtrnContentLanguage(gSite_ID)&""">"
re.pattern = "gecko"
if re.test(browser) then
mBrowser = "mozilla"
else
mBrowser = "pc"
end if
end if
RtrnDocType = str
End Function
