您的位置: 首页 > 技术文档 > 多媒体制作 > 用户登录/注册程序——Flash+ASP
通过实例学习AS3.0——案例三 回到列表 通过实例学习AS3.0——案例二
 用户登录/注册程序——Flash+ASP

作者:chooseflash 时间: 2007-11-21 文档类型:原创 来自:蓝色理想

第 1 页 用户登录/注册程序——Flash+ASP [1]
第 2 页 用户登录/注册程序——Flash+ASP [2]

三个 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
%>

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

第二帧: 用户注册

在 body 层 按F6插入关键帧.分别修改舞台中的两个按钮的实例名为,fanghui 和 tijiao;
fanghui(返回),tijiao(提交);

然后在第二帧输入代码:

//此帧是用户注册脚本
stop();
//返回按钮.
fanghui.onRelease = function() {
    win.title = "(教程Flash与ASP)用户登录";
    msg.text = "";
    gotoAndStop(1);
};
//提交按钮.
tijiao.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方法发送用户名和密码到add.asp中查询;再返回给loginData对象;
        loginData.sendAndLoad("add.asp", loginData, "get");
    }
};
//调用LoadVars对象的onLoad事件.
loginData.onLoad = function(success) {
    //判断加载login.asp是否成功;
    if (success) {
        //这个是ASP中查询数据库中返回的值;
        if (loginData.zhucei == "true") {
            //这里大家可以写自己的代码.
            msg.text = "注册成功";
            username.text = "";
            password.text = "";
        } else {
            msg.text = "用户名已存在";
        }
    } else {
        msg.text = "连接网络失败";
    }
};

下面是 add.asp 中的代码:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'声明变量
dim db,conn,div,rs,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&"'"
'打开查询语句
rs.open sql,conn,1,1
'如果没有数据rs.RecordCount将返回0;
if rs.RecordCount=0 then
   '关闭上面的查询对象.
   rs.close
   'SQL插入语句.插入新用户用的.这里的 password 因为是SQL中的关键字.所以要用[]括起来.
   sql="insert into UserTable (username,[password]) values ('"&username&"','"&password&"')"
   '打开插入语句
   rs.open sql,conn,1,3
    '输出true告诉Flash用户已注册.
   Response.Write("zhucei=true")   
else
    '否则就输出false告诉Flash用户已存在.
Response.Write("zhucei=false")
end if
'释放记录集对象rs
set rs=nothing
'关闭打开的连接
conn.close
'释放连接对象conn
set conn=nothing
%>

完整图片如图:


点击放大

全部文件如图:

到这里就全部完成了.大家可以测试了.
运行IIS;
新建网站,路径为你的asp文件的路径.
在IE输入http://localhost/login/login.html (这是我电脑上的).

经典论坛讨论
http://bbs.blueidea.com/thread-2729523-1-1.html

本文链接:http://www.blueidea.com/tech/multimedia/2007/5083.asp 

出处:蓝色理想
责任编辑:tada

上一页 用户登录/注册程序——Flash+ASP [1] 下一页

◎进入论坛RIA设计与应用版块参加讨论

相关文章 更多相关链接
通过实例学习AS3.0——案例二
AS3中数据发送与接收
ASP操作数据库的类
轻松写Flash Media Server的ASC
用 jsfl 扩展你的 flash
作者文章
[AS2]事件处理机制
Flash处理外部XML文档数据
Flash处理XML文档数据教程
关键字搜索 常规搜索 推荐文档
热门搜索:CSS Fireworks 设计比赛 网页制作 web标准 用户体验 UE photoshop Dreamweaver Studio8 Flash 手绘 CG
站点最新 站点最新列表
周大福“敬•自然”设计大赛开启
国际体验设计大会7月将在京举行
中国国防科技信息中心标志征集
云计算如何让安全问题可控
云计算是多数企业唯一拥抱互联网的机会
阿里行云
云手机年终巨献,送礼标配299起
阿里巴巴CTO王坚的"云和互联网观"
1499元买真八核 云OS双蛋大促
首届COCO桌面手机主题设计大赛
栏目最新 栏目最新列表
浅谈JavaScript编程语言的编码规范
如何在illustrator中绘制台历
Ps简单绘制一个可爱的铅笔图标
数据同步算法研究
用ps作简单的作品展示页面
CSS定位机制之一:普通流
25个最佳最闪亮的Eclipse开发项目
Illustrator中制作针线缝制文字效果
Photoshop制作印刷凹凸字体
VS2010中创建自定义SQL Rule
>> 分页 首页 前页 后页 尾页 页次:2/21个记录/页 转到 页 共2个记录

蓝色理想版权申明:除部分特别声明不要转载,或者授权我站独家播发的文章外,大家可以自由转载我站点的原创文章,但原作者和来自我站的链接必须保留(非我站原创的,按照原来自一节,自行链接)。文章版权归我站和作者共有。

转载要求:转载之图片、文件,链接请不要盗链到本站,且不准打上各自站点的水印,亦不能抹去我站点水印。

特别注意:本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有,文章若有侵犯作者版权,请与我们联系,我们将立即删除修改。

您的评论
用户名:  口令:
说明:输入正确的用户名和密码才能参与评论。如果您不是本站会员,你可以注册 为本站会员。
注意:文章中的链接、内容等需要修改的错误,请用报告错误,以利文档及时修改。
不评分 1 2 3 4 5
注意:请不要在评论中含与内容无关的广告链接,违者封ID
请您注意:
·不良评论请用报告管理员,以利管理员及时删除。
·尊重网上道德,遵守中华人民共和国的各项有关法律法规
·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
·本站评论管理人员有权保留或删除其管辖评论中的任意内容
·您在本站发表的作品,本站有权在网站内转载或引用
·参与本评论即表明您已经阅读并接受上述条款
推荐文档 | 打印文档 | 评论文档 | 报告错误  
专业书推荐 更多内容
网站可用性测试及优化指南
《写给大家看的色彩书1》
《跟我去香港》
众妙之门—网站UI 设计之道
《Flex 4.0 RIA开发宝典》
《赢在设计》
犀利开发—jQuery内核详解与实践
作品集 更多内容

杂⑦杂⑧ Gold NORMANA V2