asp入门之登录示例

b/s架构的程序，无论是网站还是应用软件都离不开登录功能，下面一个简单的示例，一个简单网站的后台登录。

界面：

html代码：

代码

其中<link href="css/style.css" type="text/css" rel="stylesheet">
是样式文件，可以删除。

这是验证码的引用：<input name="yzm" type="text" size="6" /><img src='gif.asp' align='absmiddle' border='0' height="18" />在上一篇中有详细说明。

页面提交后的处理代码，在login/login.asp文件中，如下：

代码

<%
    dim rs,sqlStr
    dim nameStr,passStr,yzmStr

    nameStr=Request.Form("name")
    passStr=Request.Form("pass")
    yzmStr=Request.Form("yzm")


    If Trim(yzmStr)=Empty Or Trim(Session("getYzm"))<>Trim(yzmStr) Then
        response.write("<script language=javascript>alert('验证码错误，请重新输入！');history.back()</script>")
        response.end
    end if

    set rs=server.CreateObject("adodb.recordset")
    sqlStr="select * from login where name='"&nameStr&"'"
    rs.Open sqlStr,conn,1,1

    if not rs.eof then
        if passStr=rs("pass") then
            session("login")=empty

            session("login")=nameStr
            response.redirect"../mainFrame.htm"
        else
            Response.Write "<script language=javascript>alert('用户名或密码错误！');history.back()</script>"
            Response.End
        end if
    else
        Response.Write "<script language=javascript>alert('用户名或密码错误！');history.back()</script>"
        Response.End
    end if
%>

其中引用conn_login.asp文件，其中代码是定义数据库操作的几个变量和对象，如下：

代码

<%
on Error Resume Next

    dim conn,connstr
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("http://www.cnblogs.com/d/d.mdb")
    conn.Open connstr
%>

d.mdb是数据库文件，数据库结构如下如：