一个由ASP+数据库+flash的小选择题

System.useCodepage = true;

var myAID;
var myArrTit = new Array();
var myCont;
var myIndate;

var myread:LoadVars = new LoadVars();
lmc.onEnterFrame = function() {
 var lvBytesLoaded:Number = myread.getBytesLoaded();
 var lvBytesTotal:Number = myread.getBytesTotal();
 if (lvBytesTotal != undefined) {
  lmc._xscale = lvBytesLoaded/lvBytesTotal*100;
 }
};
myread.onLoad = function(success:Boolean) {
 delete lmc.onEnterFrame;
 if (success) {
  myID = myread.id;
  myArrTit = splitString(myread.tit);
  myCont = myread.cont;
  //myArrIndate = myread.indate;
  _root.gotoAndPlay("su");
 }
};
myread.load("read.asp");

stop();

function splitString(myData:String) {
 var myArray:Array = new Array();
 for (i=0; i<myData.length; i++) {
  myArray = myData.split("#", i);
 }
 return myArray;

}

_global.answer = "";
var selNum:Number = myArrTit.length;
for (i=0; i<selNum; i++) {
 this.attachMovie("aa", "aa"+i, i);
 //复制问题的答案ＭＣ
 this["aa"+i].tit.text = myArrTit[i];
 //问题的答案赋到文本给显示出来
 this["aa"+i]._x = 220;
 this["aa"+i]._y = 190+20*i;
 this["r"+(i+1)]._x = 5;//设置单选按钮的位置
 this["r"+(i+1)]._y = 103+20*i;
}
con.text = myCont;//把问题显示出来.
stop();
在提交按钮上的代码为on (click) {
 _root.gotoAndStop("add");
}
在单选按钮上代码都是一样的.
on (click) {
_global.answer = this.data;
}

var ok:Boolean = false;
aaa.text = myID;
import mx.controls.Alert;
// 当答案为空的时候就会触发那个提示框的动作了．
if (answer == undefined or answer == "") {
 var myClickHandler:Function = function (evt_obj:Object) {
  switch (evt_obj.detail) {
  case Alert.OK :
   _root.gotoAndStop("su");
   break;
  }
 };
 // 显示对话框。
 Alert.show("你还没有选答案！请返回", "错误", Alert.OK, this, myClickHandler);
}
for (i=0; i<selNum; i++) {
 _root["aa"+i].unloadMovie();
}
var myWriteLoad:LoadVars = new LoadVars();
var myBackLoad:LoadVars = new LoadVars();
myWriteLoad.answer = answer;
myWriteLoad.id = myID;
myBackLoad.onLoad = function(S) {
 if (S) {
  ok = myBackLoad.ok;
  //接收从write.asp传来的数据中ＯＫ的值．假如为真．那就是说数据已经被接收传字
  if (ok) {
   _root.gotoAndStop("show");
  }
 }
};
myWriteLoad.sendAndLoad("write.asp", myBackLoad, "POST");
stop();

_root.showan.text = myArrTit[answer];