<% 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 %> <% if n mod 1 =0 then Response.Write("") end if rsDe.MoveNext n=n+1 Wend rsDe.close set rsDe=nothing %>
| 关于本站 | 联系本站 | 新站登录 | 免责声明 | 使用帮助 | 友情连接 | 给我留言 | <%=icp%> |
<%=Copyright%>