<% set rsDe=server.createobject("adodb.recordset") sql= "select * from detail where verity=0 order by id desc" 'response.write sql rsDe.open sql,conn,1,3 %>

<% set rs=server.createobject("adodb.recordset") rs.open "select * from title",conn,1,3 ads02=rs("ads02") ads01=rs("ads01") Copyright=rs("Copyright") icp=rs("icp") rs.close set rs=Nothing %> <%=ads02%>

<%=ads01%>

网站首页

点击排行	最新点入	最新点出	未审网站	以下为未完审核的网站:请站长作好本站链接站即可在10分钟之内进行审核!调用最近100个网站!
<% n=1 While Not rsDe.Eof and n<101 %> 　次\|当天来路:<%=rsDe("aspliancom_dayin")%>次历史来路:<%=rsDe("aspliancom_in")%>次\|历史去路:<%=rsDe("out")%>次 target='_blank'><%=rsDe("title")%> <% if n mod 1 =0 then Response.Write("") end if rsDe.MoveNext n=n+1 Wend rsDe.close set rsDe=nothing %>