login.asp 连接不到access 谁能帮帮我看看有什么问题？

本文链接：https://blog.csdn.net/mbb0615/article/details/5452043

<HTML>
<HEAD>
<Title>login.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>

<%
    user=request.Form("user")   '---------获取表单输入的用户名，下同
    pwd=request.Form("pwd")
    rd=request.Form("rd")
    if user="" or pwd="" then   '---------验证用户名和密码，不能为空
        response.Write"<script>alert('用户名和密码不能为空！');history.go(-1);</script>"

elseif rd="" then    '---------如果单选按钮没有选中，则给出提示
    response.Write"<script>alert('请选择用户类型！');history.go(-1);</script>"

else
if rd="老师" then '----如果单选按钮选择了老师，则从teacher_inf表中查询
    set rs=server.CreateObject("adodb.recordset") '建立记录集
    sql="select * from teacher_inf where teacher_no='"&user&"' " '---------从老师信息表里查找teacher_no等于输入的老师工号
    rs.open sql,conn,1,3        '----用SQL语句打开记录集
    if rs.eof then         '----如果数据库里不存在记录
        response.Write "<script>alert('用户名不存在！');history.go(-1);</script>" '给出提示

    elseif rs("teacher_no")=user and rs("pwd")=pwd then '-----------如果用户名和密码都正确，则登录成功
           session("teacher_no")=user     '----把user的值放入session变量中
    response.Redirect"teacher/teacher_index.asp"     '----页面转向teacher/teacher_index.asp页面
else       '--------否则给出错误提示
    response.Write"<script>alert('输入的密码错误！');history.go(-1);</script>"

    end if
end if
end if
if rd="学生" then      '-----如果单选按钮选了学生，则从studentreg表中查询
     set rs=server.CreateObject("adodb.recordset")   '建立记录集
     sql="select * from student_inf where student_no='"&user&"'" '---------从老师信息表里查找student_no等于输入的学生学号
     rs.open sql,conn,1,3     '----打开记录
     if rs.eof then     '----如果数据库里不存在记录
        response.Write "<script>alert('用户名或密码不存在！');history.go(-1);</script>"

else
     if rs("student_no")=user and rs("pwd")=pwd then   '--------如果用户名和密码都争取。则登录成功
        session("student_no")=user           '------------把user的值放入session变量中
        response.Redirect"student/student_index.asp"
     else
    response.Write"<script>alert('密码不正确！');history.go(-1);</script>"

    end if
    rs.close     '关闭记录
    set rs=nothing
   end if
end if
%>
</BODY>

</HTML>