要改掉后台登陆密码 是不是在这里改呀~ 帮帮我啦 我下载了一个程序,后台进不去 或者有什么方法进去
'获取文件所在的用户名称
Function GetUserName()
'Get CurrFolder Name,too The user name
CurrPath=Server.MapPath( "../")
pt=InStrRev(CurrPath,"\")
CurrFolder=Right(CurrPath,len(CurrPath)-pt)
GetUserName=CurrFolder
End Function
'检查用户权限
sub checkuser(limitnum)
if Session("UserFolder")<>WebUserName then response.Redirect("/Error.asp?msg=对不起,您无权访问这个页面,有问题请与管理员联系!") : userlimits=trim(Session("AdminLimit"))
lp=instr(userlimits,limitnum)
if lp<=0 then
response.Redirect("/Error.asp?msg=对不起,您无权访问这个页面,有问题请与管理员联系!")
response.end
end if
end sub