vbscript 转换 javascript(50)

如何将这段vbscript代码转换为javascript s=location.href while Len( s ) > 0 AND InStr( s,"/")>0 s = Mid( s, InStr( s,"/")+1 ) wend CurFile=location.href CurPathStr=Mid(CurFile,1,len(CurFile)-len(s))

// s=location.href 我不会 s="znxiaxxx/znxia";
//测试字符串 I= s.lastIndexOf("/");
if (I>0) CurFile= s.substring( 1, I-1);
// else
CurFile=s;// CurFile=location.href// CurPathStr=Mid(CurFile,1,len(CurFile)-len(s))

var s = location.href;var index = s.lastIndexOf('/');CurPathStr = s.substring(0,index+1);