<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("shdata/shop.mdb")
conn.Open strcon
set rs=server.createobject("adodb.recordset")
rs.open "select top 16 * from zhuanti order by newsid desc",conn,1,1
do while not rs.eof
%>
target=_blank><%=left(trim(rs("title")),20)%>
<%
rs.movenext
loop
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
更多动态