<%
Dim iPath, fName,pNum,iUrl(3)
iPath= request.ServerVariables("PATH_INFO")
fName=Split(iPath, "/")
pNum=ubound(fName)
iUrl(1)="btn01_off01.jpg"
iUrl(2)="btn01_off02.jpg"
iUrl(3)="btn01_off03.jpg"
Select Case fName(pNum)
Case "menu01.asp"
iUrl(1)="btn01_on01.jpg"
selectNum=1
Case "menu02.asp"
iUrl(2)="btn01_on02.jpg"
selectNum=2
Case "menu03.asp"
iUrl(3)="btn01_on03.jpg"
selectNum=3
End Select
%>
|
|
|