sql="select top 10 id,biaoti from xinwen order by fbsj DESC"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1
Dim temArray(1,9)
for i = 0 to 9
If Not Rs.Eof Then
temArray(0,i) = Rs(0)
temArray(1,i) = Rs(1)
Rs.MoveNext
Else
temArray(0,i) = ""
temArray(1,i) = ""
End If
Next
for i = 0 to 9
Response.Write "id:"&temArray(0,i)&"; biaoti:"&temArray(1,i)&"<br>"
Next