asp与sql 2005连接成功,asp中管理员登陆界面不显示
程序代码:
<!--#Include file="conn.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 编辑 ]