Flash和Asp数据库的结合应用(4) - 达人(咖啡虫)

2005/05/12 | Flash和Asp数据库的结合应用(4)
类别(flash) | 评论(0) | 阅读(137) | 发表于 15:50: 第一个影帧，Action是Stop，有一个“开始”按钮，它的Action是：
on (release) {
gotoAndPlay(2);
}
　　第二个影帧的Action是：loadVariablesNum("word.asp", 0, "GET");
　　这个Action的作用是通过ASP文件把Access数据库内符合用户查询条件的数据读出来。
　　第三个影帧的Action是：
if (explain ne "") {
GotoAndStop(9);
}
　　意思是如果explain不等于空值的话，就跳到第九个影帧；否则将会执行下去（即播放下一个影帧）。
　　第4-7个影帧都没有Action哦。
　　第八个影帧的Action是：
　　GotoAndPlay(3);
　　如果没有符合的数据的话，就一直读到有为止；读到了就跳到第九个影帧哦。
　　那么再来看看第九个影帧：
　　一共有四个文本框：word（显示正确英文单词、动态）， explain（中文解释、动态），conclude（反馈正确/错误、动态）InputWord（用户输入英文）
　　数据库内符合查询条件的数据将会显示在他们之中！
“确定”按钮，“确定”按钮的Action是：
on (release) {
if (InputWord ne Word) {
conclude = "错误!";
} else {
conclude = "正确!";
}
}
“投降”按钮，没有任何动作，只是开始时把正确答案遮住，当单击时显示下面的答案。
还有一个“重试”按钮，“重试”按钮的Action是：
　　on (release) {
GotoAndStop(3);
}

好了，再来看看word.asp这个文件吧：

Dim oRS, oConn ' 定义两个变量
Set oRS = Server.CreateObject("ADODB.Recordset") ' 定义oRS为RECORDSET对象
Set oConn = Server.CreateObject("ADODB.Connection") ' 定义oConn为CONNECTION对象
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};
DBQ=" & Server.MapPath("word.mdb")
oConn.Open
oRS.Open "SELECT count(*) FROM word ", oConn, 2, 3
allnumber=oRS.fields(0)
' 返回数据库中英文单词总量
oRS.Close

RANDOMIZE
KeyWord=Int((allnumber-1+1)*Rnd)
' 从取随机数
oRS.Open "SELECT * FROM word ", oConn, 2, 3
oRS.Find "ID = " & KeyWord
' 查询ID等于随机数的对应的单词
If oRS.EOF Then
Response.Write "Word=None&Explain=None"
' 没找到
Else
Response.Write "&Word=" & Server.URLEncode(oRS("word"))& "&explain=" & Server.URLEncode(oRS("explain"))
' 找到了后输出？不只何原因必须使用“&word”否则无法传值
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing ' 关闭并清空数据库对象

实际效果查看http://www.sfls.cn/sunyue/; 0

http://kafeichong.5d.cn/

评论Comments