黑黑龙江11选5技巧论坛|黑龙江11选5技巧
曦草提示:请输入后台管理帐号
用户名称:
曦草提示:请输入后台管理密码
用户密码:
验证码:
黑黑龙江11选5技巧论坛 西汉姆联vs曼城前瞻 qq会员梦幻西游2礼包 鲤鱼门电子游艺 彩票中奖查询 福寿齐天电子游戏 易迅网上棋牌评测网 南昌麻将照镜子打法 尤文图斯vs桑普多利亚 马里昂扣自己篮筐 足彩网 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 %>