<%
indexclass =""
introduceclass =""
productsclass =""
newsclass =""
introduce001class=""
notebookclass =""
contactusclass =""
theurl=Request.ServerVariables("URL")
theurlstr=split(theurl,"/")
i=UBound(theurlstr,1)
theurlfile=theurlstr(i)
select case theurlfile
case "index.asp"
indexclass="class='current'"
case "introduce.asp"
introduceclass="class='current'"
case "products.asp"
productsclass ="class='current'"
case "displayproduct.asp"
productsclass ="class='current'"
case "news.asp"
newsclass ="class='current'"
case "displaynews.asp"
newsclass ="class='current'"
case "notebook.asp"
notebookclass ="class='current'"
case "introduce001.asp"
introduce001class ="class='current'"
case "displayintroduce001.asp"
introduce001class ="class='current'"
case "contactus.asp"
contactusclass ="class='current'"
end select
%>