图文演示Flash+ASP实现用户登录/注册程序第1/2页

下面我将详细讲解“图文演示Flash+ASP实现用户登录/注册程序第1/2页”的完整攻略。

一、前置知识

在学习本文之前，你需要了解以下知识：

• Flash基础知识：包括Flash界面结构、基本操作、动画制作等。
• ASP基础知识：包括ASP排版、变量定义、数据类型、循环控制、函数封装等。

如果你缺乏上述知识，请自行学习补充，并确保已经掌握了这些知识点。

二、实现步骤

下面是实现用户登录/注册程序的步骤：

第一步：创建Flash页面

1. 打开Flash，创建新的Flash文档。
2. 设计一个适合自己需求的登录页面。例如可以设计一个用户名输入框、密码输入框、登录和注册按钮等。
3. 把这些元素命名，例如可以使用用户名输入框的变量名为“username”，密码输入框的变量名为“password”，登录按钮的变量名为“login”等。

示例1：

// 初始化用户名和密码输入框，并修改它们的样式
username.text = "请输入用户名";
password.text = "请输入密码";
username.border = true;
username.borderColor = 0x999999;
password.border = true;
password.borderColor = 0x999999;
password.displayAsPassword = true;

// 当单击登录按钮时，触发登录事件
login.onRelease = function() {
    // 这里实现用户登录的逻辑
}

第二步：创建ASP页面

1. 打开文本编辑器（例如Notepad++），输入以下代码：

<%@ language="vbscript" %>
<%
' 这里实现用户登录和注册的逻辑
%>

1. 实现用户登录和注册的逻辑，例如：

<%@ language="vbscript" %>
<%
dim conn,rs
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/db/user.mdb");
conn.Open

if Request.Form("action")="login" then
    ' 用户登录逻辑
    dim username,password
    username = Request.Form("username")
    password = Request.Form("password")
    rs.Open "select * from [User] where [Username]='"&username&"' and [Password]='"&password&"'",conn
    if rs.EOF then
        ' 登录失败，输出提示信息
        Response.Write("用户名或密码错误！")
    else
        ' 登录成功，写入Session并跳转到首页
        Session("CurrentUser") = username
        Response.Redirect("/index.asp", false)
    end if
end if

if Request.Form("action")="reg" then
    ' 用户注册逻辑
    dim username,password,repeat_password
    username = Request.Form("username")
    password = Request.Form("password")
    repeat_password = Request.Form("repeat_password")
    rs.Open "select * from [User] where [Username]='"&username&"'",conn
    if not rs.EOF then
        ' 注册失败，输出提示信息
        Response.Write("用户名已存在！")
    else
        if password = repeat_password then
            ' 写入数据库
            rs.AddNew
            rs("Username") = username
            rs("Password") = password
            rs.Update
            ' 注册成功，写入Session并跳转到首页
            Session("CurrentUser") = username
            Response.Redirect("/index.asp", false)
        else
            ' 注册失败，输出提示信息
            Response.Write("两次密码输入不一致！")
        end if
    end if
end if

rs.Close
conn.Close
set rs=nothing
set conn=nothing
%>

第三步：编写连接Flash和ASP的脚本

1. 在Flash页面中添加如下代码：

// 定义连接对象
var loader:URLLoader = new URLLoader();
// 定义请求对象
var request:URLRequest = new URLRequest("login.asp");
// 定义请求的header属性
request.requestHeaders.push(new URLRequestHeader("Content-Type", "application/x-www-form-urlencoded"));
// 监听连接事件
loader.addEventListener(Event.COMPLETE, onLoadComplete);
// 发送登录请求
request.data = "username=" + encodeURI(username.text) + "&password=" + encodeURI(password.text) + "&action=login";
request.method = URLRequestMethod.POST;
loader.load(request);

function onLoadComplete(event:Event):void {
    var result:String = event.target.data;
    // 处理结果
}

1. 实现结果的处理逻辑，例如：

// 处理登录结果
if (result == "用户名或密码错误！") {
    // 输出错误提示
    message.text = "用户名或密码错误！";
} else {
    // 跳转到首页
    navigateToURL(new URLRequest("/index.asp"), "_self");
}

第四步：测试和优化

1. 上传Flash和ASP文件到你的服务器。
2. 在浏览器中访问Flash页面，测试用户登录和注册功能。
3. 如果发现问题，可以根据错误提示优化代码，重新测试。

示例2：

<%@ language="vbscript" %>
<%
dim conn,rs
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/db/user.mdb");
conn.Open

if Request.Form("action")="login" then
    ' 用户登录逻辑
    dim username,password
    username = Request.Form("username")
    password = Request.Form("password")
    rs.Open "select * from [User] where [Username]='"&username&"' and [Password]='"&password&"'",conn
    if rs.EOF then
        ' 登录失败，输出提示信息
        Response.Write("用户名或密码错误！")
    else
        ' 登录成功，写入Session并跳转到首页
        Session("CurrentUser") = username
        Response.Redirect("/index.asp", false)
    end if
end if

if Request.Form("action")="reg" then
    ' 用户注册逻辑
    dim username,password,repeat_password
    username = Request.Form("username")
    password = Request.Form("password")
    repeat_password = Request.Form("repeat_password")
    rs.Open "select * from [User] where [Username]='"&username&"'",conn
    if not rs.EOF then
        ' 注册失败，输出提示信息
        Response.Write("用户名已存在！")
    else
        if password <> repeat_password then
            ' 注册失败，输出提示信息
            Response.Write("两次密码输入不一致！")
        else
            ' 写入数据库
            rs.AddNew
            rs("Username") = username
            rs("Password") = password
            rs.Update
            ' 注册成功，写入Session并跳转到首页
            Session("CurrentUser") = username
            Response.Redirect("/index.asp", false)
        end if
    end if
end if

rs.Close
conn.Close
set rs=nothing
set conn=nothing
%>

上面的代码中，用户注册逻辑中，当输入的两次密码不一致时，应该使用“<>”进行比较，而不是“=”。