<%
dim strInitMainPage
strshowimg = "images/main_pic.jpg"
select case cstr(request("typeid"))
case "1":
if isnumeric(request("id")) and request("id")<>"" then
strInitMainPage = "newsdetail.asp?id=" & request("id")
end if
strInitMainPage = "chinamap.html"
case "2":
strInitMainPage = "ourhonor.html"
case "3":
strInitMainPage = "china_situation.html"
strshowimg = "images/main_pic2.jpg"
case "4":
strInitMainPage = "ourdistance.html"
case "5":
strInitMainPage = "ourideal.html"
case "6":
strInitMainPage = "founder.html"
case "7":
strInitMainPage = "history.html"
case "8":
strInitMainPage = "aboutomron.html"
case "9":
strInitMainPage = "magazine_list.html"
case "10":
strInitMainPage = "memorabilia.html"
case default:
select case cstr(request("initialpage"))
case "gongchang_oag.html":
strInitMainPage = "gongchang_oag.html"
case "gongchang_omz.html":
strInitMainPage = "gongchang_omz.html"
case "gongchang_shanghai.html":
strInitMainPage = "gongchang_shanghai.html"
case "gongchang_tfoch.html":
strInitMainPage = "gongchang_tfoch.html"
case "gongchang_suzhou.html":
strInitMainPage = "gongchang_suzhou.html"
case "gongchang_shyf.html":
strInitMainPage = "gongchang_shyf.html"
case "magazine_list.html":
strInitMainPage = "magazine_list.html"
case "china_situation.html":
strInitMainPage = "china_situation.html"
strshowimg = "images/main_pic2.jpg"
case default:
strInitMainPage = ""
end select
end select
if strInitMainPage = "" then
strInitMainPage = "aboutomron.html" ' 默认页
end if
%>
集团概要 - 欢迎光临欧姆龙中国
