28,391
社区成员
发帖
与我相关
我的任务
分享
<%
set conn=server.CreateObject("adodb.connection")
cnnStr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("news.mdb")
conn.open cnnStr
%>
<!--#include file="conn.asp"-->
<%
set rs=Server.CreateObject("adodb.recordset")
sql="select top 12 * from article where isPass=1 and cataId<>6 "
if cataId="" then
sql= sql & " order by addTime desc"
else
sql=sql &" and cataId="& cataId &" order by isTop desc, addTime desc"
end if
rs.open sql,conn,1
do while not rs.eof
title=rs("title")
titleall=rs("title")
addTime=rs("addTime")
%>
document.write("<li><span><%=addTime%></span><a href=\"../new/news.asp?id=<%=rs("id")%>\" title='<%=titleall%>'><%=title%></a></li>");
<%
rs.movenext
loop
rs.close:set rs=nothing
conn.close:set conn=nothing
%>