<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("xinhs.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"
set rs=com.execute("select*from link where ok=0 ORDER BY id DESC")
do while not rs.eof n=n+1%>
<% if n=6 then exit do
rs.movenext
loop %>
<%dim w(25)
w(1)="招商投资"
w(2)="生活服务"
w(3)="家电产品"
w(4)="旅游出行"
w(5)="招聘求职"
w(6)="房产家居"
w(7)="电脑网络"
w(8)="美容美发"
w(9)="美食天地"
w(10)="医疗保健"
w(11)="招生培训"
w(12)="出国留学"
w(13)="交友征婚"
w(14)="农业信息"
w(15)="商务服务"
w(16)="其他分类"%>
<%
set rs=com.execute("select*from msg where edt>=#" & date & "# ORDER BY id DESC")
do while not rs.eof
i=i+1%>
推荐信息
