<%
a="游戏动态"
i=8
Dim conn,param,rs
Set conn=Server.CreateObject("ADODB.Connection")
param="driver={Microsoft Access Driver (*.mdb)};Pwd=147258"
conn.Open param & ";dbq=" & Server.MapPath("game.mdb")
dim sqltxt
sqltxt="select * from games where title='" &a& "' order by id desc"
Set rs=conn.Execute(sqltxt)
do until rs.EOF
m=rs("标题")
u=rs("url")
if i>0 then
%>
|
● |
<%=m%>
|
<%
i=i-1
end if
rs.movenext
loop
%>
<%
'next
%>