我們收集許多 專家.學者.名人 著作的 好文章 和您分享 希望您能有所得

<% Set Conngp = Server.CreateObject("Adodb.Connection") Conngp.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("\DB\clpbabypre\member.mdb") set rsgp = Server.CreateObject("Adodb.Recordset") rsgp.open "select * from goodnew",conngp if not rsgp.bof then rsgp.movefirst mgp = 0 %> <% while not rsgp.eof rsgp.movenext mgp = mgp + 1 wend end if if mgp <= 10 then mugp = mgp else mugp = 10 end if set rsgpuse = Server.CreateObject("Adodb.Recordset") rsgpuse.open "select * from goodnew order by gpno desc",conngp if not rsgpuse.bof then rsgpuse.movefirst for gp = 1 to mugp %> <% mgpname = rsgpuse("gpname") magpname = mgpname & ".htm" %> <% %>

<% rsgpuse.movenext next end if %>