软件开发培训班 >> 创意设计 >> Flash


Flash和ASP实现的用户登录/注册程序

　　Flash一帧 可以 实现.asp也 可以一个文件 实现,这里我将消费者登录和消费者注册分为两步做,容易大家 了解,Flash分两帧,asp分两个文件 。

　　 预备: Flash8 , IIS ,Miscrosoft Access 2003;

　　开始:

　　数据库中:

　　用设计视图新建一个名为 UserTable 的表,三个字段分别为 id 为自动编号,username为文本,password为文本;

　　输入一条数据 username 和 password 都为chooseflash;

　　如图:

Flash和ASP实现的消费者登录/注册程序

　　Flash中:

　　新建文件命名为login.fla,舞台大小设置为250*200,背景 随便;

　　第一帧:消费者登录

　　新建三个图层分别命名为 bg 和 body 和as;

　　舞台中的实例:

　　一个 window 组件到舞台命名为 win;

　　win(背景),放到 bg 层;

　　设置如图:

Flash和ASP实现的消费者登录/注册程序

　　二个按钮组件分别命名为: login 和 register;

　　login(登录),register(注册),放到 body 层;

　　设置如图:

Flash和ASP实现的消费者登录/注册程序

Flash和ASP实现的消费者登录/注册程序

　　三个 TextInput 文本输入组件分别命名为 username 和 password 和 msg;

　　username(消费者名输入框),password(密码输入框),msg( 信息框),放到 body 层;

　　第一帧是消费者登录脚本.代码如下:

　　//此帧是消费者登录脚本

　　stop();

　　//将window组件设置为不可用.由于是做背景

　　win.enabled = false;

　　//新建LoadVars对象,用来发送和 接纳数据;

　　var loginData:LoadVars = new LoadVars();

　　//注册按钮

　　register.onRelease=function(){

　　win.title="(教程Flash与ASP)消费者注册";

　　msg.text="";

　　gotoAndStop(2);

　　}

　　//登录按钮.

　　login.onRelease = function() {

　　//推断消费者名和密码是否为空.

　　if ((username.text == "") || (password.text == "")) {

　　msg.text = "请正确输入消费者名或密码!";

　　//推断消费者名和密码是否小于8位.

　　} else if((username.length<8)||(password.length<8)){

　　msg.text = "消费者名和密码不能小于8位!";

　　} else {

　　msg.text = "验证中...";

　　//将消费者名文体框的值付给loginData对象的username变量;

　　loginData.username = username.text;

　　//将消费者密码文体框的值付给loginData对象的password变量;

　　loginData.password = password.text;

　　// 使用get 步骤发送消费者名和密码到login.asp中验证;再返回给loginData对象;

　　loginData.sendAndLoad("login.asp", loginData, "get");

　　}

　　};

　　//调用LoadVars对象的onLoad事件.

　　loginData.onLoad = function(success) {

　　//推断加载login.asp是否 顺利;

　　if (success) {

　　//这个是ASP中 查问数据库中返回的值;

　　if (loginData.success !=0) {

　　msg.text = "登录 顺利";

　　//这里大家 可以写自己的代码.

　　username.text="";

　　password.text="";

　　} else {

　　msg.text = "消费者名和密码不正确";

　　}

　　}else{

　　msg.text="衔接网络失败";

　　}

　　};

　　下面是 login.asp 中的代码:

　　<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

　　<%

　　’申明变量

　　dim db,conn,div,rs,success,username,password

　　’猎取Flash中传过来的变量

　　username=Request("username")

　　password=Request("password")

　　’设置一个衔接对象

　　set conn=Server.Createobject("adodb.connection")

　　’数据库的 绝对路径

　　db=Server.MapPath("UserTable.mdb")

　　’数据库的驱动

　　div="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&db

　　’ 打开衔接

　　conn.Open div

　　’新建记录集对象

　　set rs=server.createobject("adodb.recordset")

　　’SQL 查问语句,用来 查问数据库中是否有数据;

　　sql="select * from UserTable where username=’"&username&"’ and password=’"&password&"’"

　　’ 打开 查问语句

　　rs.open sql,conn,1,1

　　’假如数据库中没有数据rs.RecordCount将返回0;

　　success=rs.RecordCount

　　’将success变量发送到Flash中

　　Response.Write("success="&success)

　　’关闭记录集

　　rs.close

　　’ 开释记录集对象rs

　　set rs=nothing

　　’关闭 打开的衔接

　　conn.close

　　’ 开释衔接对象conn

　　set conn=nothing

　　%>

　　到这里.消费者登录就 可以了.下面我们做的是消费者注册;