用flash读取数据库的多条记录!

作者:袖梨 2022-07-02

 

有朋友要显示多条记录的方法,因没找到原帖,单开一个。
临时做了个,只显示三条记录,更多的类似。
放到支持asp的空间,或本机装有IIS的,进行测试。

1、建一个flash,舞台上放六个动态文本,变量名分别为:

mdba0,mdbb0, mcbc0
mdba1,mdbb1, mcbc1
mdba2,mdbb2, mcbc2

as很简单:就是加载变量,见附件里

2、建一个access数据库,fla.mdb,详见附件;

3、写个asp文件,rw.asp内容如下:

<%
Dim ftest

Set ftest = Server.CreateObject("ADODB.Recordset")
ftest.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath( "fla.mdb")
ftest.Source = "SELECT * FROM fla"
ftest.CursorType = 0
ftest.CursorLocation = 2
ftest.LockType = 1
ftest.Open()

Dim R_numRows
R_numRows = 0

  While ((Repeat1__numRows <> 3) AND (NOT ftest.EOF))
     Response.Write "mdba" & R_numRows & "=" & ftest.Fields.Item("fname").Value & "&"   ’向flash送数据的关键
     Response.Write "mdbb" & R_numRows & "=" & ftest.Fields.Item("f1").Value & "&"
     Response.Write "mdbc" & R_numRows & "=" & ftest.Fields.Item("f2").Value & "&"

     R_numRows=R_numRows+1
     ftest.MoveNext()
  Wend

ftest.Close()
Set ftest = Nothing
%>

相关文章

精彩推荐