Dim Conn
db="你数据库的名称和路径(完整的物理地址)"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select top 100 * from 要查的表名"
rs.open sql,conn,1,1
do while not rs.eof
response.write rs("你要展示内容的字段1")
response.write rs("你要展示内容的字段2")
...
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
你直接找人做吧
按照数据插入时间顺序排列 然后取前一百 用limit