<%
b="攻略秘笈"
%>
<%=b%> |
<%
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='" &b& "' order by id desc"
Set rs=conn.Execute(sqltxt)
do until rs.EOF
m=rs("标题")
u=rs("url")
%>
|
● |
<%=m%>
|
<%
rs.movenext
loop
%>