<% Set Connts = Server.CreateObject("Adodb.Connection") Connts.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("\DB\clpbabypre\album.mdb") set rsts = Server.CreateObject("Adodb.Recordset") rsts.open "select * from indexpic where ((indexpic.indexlpicshow) <> 'n')",connts if not rsts.bof then rsts.movefirst while not rsts.eof mindexlpname = rsts("indexlpicname") %>

• 
<% rsts.movenext wend end if %>

停止 播放