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();    //在一开始载入资料库中的资料

<%
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       ''设定资料库指针为无
%>

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

%>