Flash+ASP+Access(as2.0)

首先在flash中建立入下图的物件

2个输入框(name,msg), 1个动态文本(display)和一个按钮(submit)

flash+asp+microsoft access

在flash第一帧输入:

function loaddata() {

loader = new loadvars();

loader.load("server.asp?time="+new date().gettime()); //向asp取得资料的连接, 这里我不使用math.random是因为这样有个缺点 loader.onload = function(success) {

if (success) {

display.htmltext = loader.result; //loader.result是asp传递回来的资料 }

};

} submit.onrelease = function() { //当按钮按下放开的时候 if (name.text.length == 0) { //这里是判断输入框是否为空 selection.setfocus(name); //把光标设定在指定的输入框 } else if (msg.text.length == 0) { //同上 selection.setfocus(msg);

} else {

status.text = ""; //这个动态文本你们可以自己设定 sender = new loadvars();

sender.name = name.text; //设定需要传递的变量 sender.msg = msg.text;

sender.onload = function(success) {

if (success) {

if (sender.result == "success") { //传递回来的讯息为success时 status.text = "记录成功...";

name.text = msg.text=""; //清空输入栏位 loaddata(); //重新刷新资料 } else {

status.text = "记录失败, 请再次尝试...";

}

delete sender; //养成习惯把loadvars变量删除以释放内存空间 }

};

sender.sendandload("server.asp?action=save", sender, "post"); //传送出变量并等待资料传回, 传回的资料会在onload中截取 }

};
loaddata(); //在一开始载入资料库中的资料

在asp部分

<%
set cnndb = server.createobject("adodb.connection") '建立adodb连接 con = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("./database.mdb") '设定与资料库的连接, 资料库名为database cnndb.open con '进行连接

if request("action") = "save" then '当flash传递来的action变量为save的时候 strname = request("name") '取得变量name, 在这里我没有做符号的检查, 你们可以自行编写 strmsg = request("msg")
strsql = "insert into guestbook(name, message) values ('"&strname&"', '"&strmsg&"')" '增加资料库的设定, 资料表名为guestbook, 当中有name和message栏位 cnndb.execute strsql '执行增加资料 response.write "&result=success"
else
set rstobj = server.createobject("adodb.recordset") '建立recordset strsql = "select * from guestbook" '取得资料表中的所有资料 rstobj.open strsql, cnndb '使用recordset连接资料表

do while not rstobj.eof '检查资料是否为最后一笔, 不是就进行下列指令 record = record &rstobj("name")&" : "&rstobj("message")&"<br>" '使用变量储存每一行的资料 rstobj.movenext '移动到下一笔资料 loop

response.write "&result="&record&"<br><b>finish</b>" '最后把变量传递回flash

rstobj.close '结束recordset连接 set rstobj = nothing '把recordset的指针设定为无 end if

cnndb.close '结束资料库连接 set cnndb = nothing '设定资料库指针为无 %>

********** asp 连接 mysql 的方法 ***********

<%

dim le_dsn

dim conn

dim serveraddress

dim dbname

dim uid

dim password

serveraddress = "localhost" '服务器的dns名 dbname = "super-tomato" '资料库名字 uid = "" '用户名 password = "" '用户密码

le_dsn = "driver={mysql};server=" &serveraddress &";db=" &dbname &";user id=" &uid &";pwd=" &password &";option=16386"

set conn = server.createobject("adodb.connection")

conn.open le_dsn

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

strsql = "select * from guestbook"

rstobj.open strsql,conn

%>