asp 高手帮我写一小段标题调用代码

来源：百度知道 编辑：UC知道 时间：2024/06/12 20:46:42
判断当前页是什么，调出符合的标题。

about_01=公司简介
about_02=公司荣誉
about_03=...

当前页名是 about_01，调出公司简介。

例如这样，我是想让一个页面作为模板使用，但是标题是固定的，自己不懂写，求教。

<%
dim url,i,page
url = Request.ServerVariables("URL")
'获得提交的url
i = InStrRev (url,"/")
page = right(url,i,len(url))
select case page
case "about_01"
response.write "公司简介"
case "about_02"
response.write "公司荣誉"
....
end select

建立Main.Asp

<%
pages=Trim(Request("title"))

If pages="about_01" then
title="公司简介"
ElseIf pages="about_02" Then
title="公司荣誉"
ElseIf pages=... Then
tiele=...
else
title=...
end if
%>