今天有点空余时间，来做一个FLASH与ASP和数据库结合的刷新次数统计。这个应该算最菜的FLASH交互了吧!!嘎嘎，老鸟们不要笑，呵呵，感觉自己有点沾沾自喜，恬不知耻地拿出来与大家分享。
1 首先新建一个数据库文件，再在其中新建一个表，然后在字段名称中输入update_num 类型选择 数字，然后保存为update(这个单词还是今天才记住的，以前只会读，不会拼写，嘎嘎)。然后关闭这个表，重新打开，删除自动编号这一列(嘎嘎，我不喜欢有多余的东西)。
2 新建一个ASP文件。
复制内容到剪贴板
代码:
<%
Dim Conn,SQL'这个是用来打开数据库链接的。我也是死记硬背，背的次数多了就感觉好像理解了。汗!
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0;Data Source="& Server.MapPath("update.mdb")
Conn.Open
'刷新这个是从以前火山大虾的教程中学到的UPDATE 后面的这个update_num=update_num+1是在书上看到的
SQL="UPDATE updatebook SET update_num=update_num+1"
Conn.Execute(SQL)
Response.Write("&scu_asp=刷新成功！")'这一句只是在单独测试ASP时有用，在FLASH中用不到
''''''''''''''''''''下面是把刷新后的数据读出来
Dim RS
Set RS=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * From updatebook Order by update_num Desc"
RS.Open SQL,Conn,1,1
Response.Write("&update_num_asp="&RS("update_num"))'输入读到的新的次数并配成update_num_asp=20 这样的形式，好让FLASH读取，带_asp后缀也是看火山大虾的教程学的。
'''''''''''''''''''''刷新完了，读取也完了，当然要关闭RS和链接
RS.Close
set RS = nothing
Conn.Close
Set Conn=nothing
%>3 做FLASH了，在舞台上放一个动态文本框，显示刷新的次数(或者叫登陆次数吧，呵呵)实例名为updatenum_txt,然后在第一帧上写上如下代码：
复制内容到剪贴板
代码:
var update_lv:LoadVars = new LoadVars();//申明一个LoadVars来发送和接收刷新指令
function update_func() {
update_lv.onLoad = function(scu:Boolean) {
if (scu) {//加载成功就显示ASP发送过来的update_num_asp变量
updatenum_txt.text = this.update_num_asp;
} else {//否则显示刷新失败
updatenum_txt.text = "刷新失败!";
}
};
update_lv.sendAndLoad("http://127.0.0.1/update.asp", update_lv, "post");//与ASP的交互动作
}
update_func()//打开一次 就执行一次刷新动作。
//下面这个是为了测试时看效果，所以在舞台上放一个按钮，点一次，执行一次上面的动作就能看到次数的变化，就不用打开FLASH无数次了。
update_btn.onRelease = update_func;其实ASP能独立完成这个功能，不过我不知道该怎么做，呵呵，所以就搞出这个不伦不类的东西来了，呵呵。
