Microsoft VBScript 运行时错误 错误 '800a01c2'
错误提示
Microsoft VBScript 运行时错误 错误 '800a01c2'
错误的参数个数或无效的参数属性值: 'oblog.ob_chklogin'
/blog/login.jsp，行 118
错误代码(两排****号中间的是 118 行 也就是上面出错行代码)
<%
end sub
sub sub_chklogin()
Dim pwd
if oblog.chkiplock() then
oblog.adderrstr("对不起！你的IP已被锁定,不允许登陆，！")
oblog.showerr
exit sub
end if
if oblog.setup(58,0)=1 then
if not oblog.codepass then oblog.adderrstr("验证码错误，请刷新后重新输入！"):oblog.showerr
end if
if UserName="" then oblog.adderrstr("登陆用户名不能为空！")
if Password="" then oblog.adderrstr("登陆密码不能为空！")
if oblog.errstr<>"" then oblog.showerr:exit sub
if CookieDate="" then CookieDate=0 else CookieDate=Clng(CookieDate)
pwd=password
password=md5(password)
if is_ot_user=1 then
call ot_chklogin()
else
***************************************************************
oblog.ob_chklogin UserName,pwd,password,CookieDate
***************************************************************
end if
if fromurl<>"" then
response.Redirect(replace(fromurl,"$","&"))
else
if action="showindexlogin" then
if instr(oblog.comeurl,"/err.jsp")>0 then
response.Redirect("index.jsp")
else
response.Redirect(oblog.comeurl)
end if
else
response.Redirect("user_index.jsp")
end if
end if
end sub
参考答案:ob_chklogin 的参数不对