曦草提示:请输入后台管理帐号
用户名称:
曦草提示:请输入后台管理密码
用户密码:
验证码:
me, ParentLevel) Dim i, strTemp GetInstallDir = "/" If ScriptName = "" Or IsNull(ScriptName) Then Exit Function If ParentLevel > 1 Then ParentLevel = 1 If ParentLevel = 0 Then strTemp = Left(ScriptName, InStrRev(ScriptName, "/")) ElseIf ParentLevel = 1 Then i = InStrRev(ScriptName, "/") - 1 If i < 1 Then i = 1 strTemp = Left(ScriptName, InStrRev(ScriptName, "/", i)) End If If Right(strTemp, 1) <> "/" Then strTemp = strTemp & "/" GetInstallDir = strTemp End Function %>