是的，我要的好象只有视图可以实现。但是我的语句好象写错了。

你用的什么数据库？

SQL数据库

高手赐教

[QUOTE]Dim Top5
Set Rs = Conn.Execute("Select top 5 * From [TableName] Order By newid()")
Do While Not Rs.Eof
Top5 = Top5 & Rs("Id") &","
Response.Write("....")
Rs.MoveNext
Loop
If Len(Top5) > 0 Then Top5 = Left(Top5,Len(Top5)-1)
Set Rs = Conn.Execute("Select * From [TableName] Where Id Not In("& Top5 &") Order By Id Asc")
Do While Not Rs.Eof
Response.Write("....")
Rs.MoveNext
Loop[/QUOTE]

sql="(select top 5 id,字段1,字段2,字段3,cast(id as nvarchar(1500)) as p,1 as pp from [TableName]) UNION (select top 5 id,字段1,字段2,字段3,cast(newid() as nvarchar(1500)) as p,2 as pp from [TableName] where id in (select top 10 id from [TableName] order by id) and id not in (select top 5 id from [TableName] order by id)) order by pp,p"
rs.open sql,conn,1,1
……

上面的语句测试过了

谢谢。我试一下

如果我放 sql=""
运行出来变成没有数据

版主　你这里的top5应该只是一个值吧？