<%
Dim iPath, fName,pNum,iUrl(4), selectNum
iPath= request.ServerVariables("PATH_INFO")
fName=Split(iPath, "/")
pNum=ubound(fName)
iUrl(1)="btn04_off01.jpg"
iUrl(2)="btn04_off02.jpg"
iUrl(3)="btn04_off03.jpg"
Select Case fName(pNum)
Case "4_menu01.asp"
iUrl(1)="btn04_on01.jpg"
selectNum=1
Case "4_menu02.asp"
iUrl(2)="btn04_on02.jpg"
selectNum=2
Case "4_menu03.asp"
iUrl(3)="btn04_on03.jpg"
selectNum=3
End Select
%>
|
|