|
|
Flash和Asp数据库的结合应用(4) |
| Author:咖啡虫 PublishTime:2005-5-12 |
第一个影帧，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/
|
|
| | |
