asp与sql 2005连接成功，asp中管理员登陆界面不显示 - 编程论坛

程序代码：

<%
    '如果尚未定义passed对象，则将其定义为false，表示没有通过身份认证
    if isempty(session("passed")) then
        session("passed") = false
    end if
    '如果用户还没有登录
    if session("passed")=false  then
        '读取从表单传递过来的身份数据
        username = request.form("username")
        userpwd = request.form("userpwd")
         '输入用户名为空
        if username = "" then
            '错误信息
            errmsg = "请输入用户名和密码"
        else
            '从表news_user中读取用户数据
            '定义recordset对象
            set rs=server.createobject("adodb.recordset")
            '设置connection对象的connectionstring
            '设置rs的activeconnection属性，绑定到连接
            set rs.activeconnection = conn
            '设置游标类型
            rs.cursortype = 3
            '打开记录集
            rs.open "select * from news_user where username='" & trim(username) & "'"
            ' line1，身份验证
            if rs.eof then
                errmsg = "用户不存在"
            else
                if userpwd <> rs.fields("userpwd") then
                    errmsg = "密码不正确"
                else
                    ' line2，登录成功，设置session参数
                    errmsg = ""
                    session("passed") = true
                    session("userid") = rs.fields("id")
                    session("flag") = rs.fields("flag")
                    '重定向到管理主页面
                    response.redirect "manage.asp"
                    response.end
                end if
            end if
        end if
    end if
      if not session("passed") then
    '显示登录页面
%>
<html>
<head><title>请输入用户名和密码</title></head>
<body>
<script language="javascript">
function chkfields() {
If (document.myform.username.value=='') {
Window.alert ("请输入用户名！")
Return false
}
Return true
}
</script>
<%
    '结束响应
    response.end
    end if
%>

[ 本帖最后由以凯歌之名于 2013-6-19 18:04 编辑 ]