<%
dim strInitMainPage
select case cstr(request("initialpage"))
case "invention.html":
strInitMainPage = "invention.html"
case "invention_activity.html":
strInitMainPage = "invention_activity.html"
case "invention_center.html":
strInitMainPage = "invention_center.html"
case default:
strInitMainPage = "index.shtml" ' 默认页
end select
if strInitMainPage = "" then
strInitMainPage = "index.shtml" ' 默认页
end if
%>
