<% session("dn")=request.querystring("dn") if session("dn")="tpnews" then dname="图片新闻" else dname=session("dn") end if strsql="select top 5 * from "& session("dn")&" where useradd like '"&session("useradd")&"' ORDER BY addtime DESC " 'Response.Write(strsql) set rs=server.createobject("adodb.recordset") rs.open strsql,conn,1,1 %>
 
  <%=dname%>
<% do while not rs.eof %>   <%=str2(rs(1))%>  <%=rs("addtime")%>  访问<%=rs("num")%>次


<% rs.movenext loop rs.close set rs=nothing %>