安逸吧-获取代码

<% dim rs(5) function listunder(i) set rs(i)=server.createobject("adodb.recordset") rs(i).open "select classid,classname,verity from feilei where topclass="&rs(i-1)("classid"),conn,1,3 while not rs(i).eof dim topclassname topclassname="" for x=0 to i-1 topclassname=topclassname&rs(x)("classname")&"＞" next fujia="" response.write ""&vbCrLf if i1 then Response.Write "

" Response.Write "网站升级中，暂时停止新站登陆，请稍后再来" Response.Write "

" Response.End end if Function getcode1() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("GetCode") = zNum getcode1= Session("GetCode") Else getcode1= "" End If End Function %> 安逸吧-获取代码

1:获取代码(请大家放选择适当的位置,可自定义图片或文字!)

广告链接代码

文字链接代码

有来路才能审核,请大家合理安排位置和代码！

新图片广告代码-1: - (演示/获取代码)-荐

点击弹窗: - (演示代码)

<script type="text/javascript" src="http://www.16205.com/ggdm/images/hitPop.js"></script>

仿QQ消息代码: - (演示代码)
<script type="text/javascript" src="http://www.16205.com/ggdm/images/ads_qq.js"></script>

对联代码: - (演示代码)
<script type="text/javascript" src="http://www.16205.com/ggdm/images/SetDui.js"></script>

1.本站按被收录站点的IP来路多少进行排序，实时刷新首页排名，5分钟刷新一次分类排名；
2.直接从贵站连接到 http://www.16205.com ,就能准确统计贵站来路,连接名字随大家取.
诸如免费娱乐导航,免费电影网址丁香成人社区美女色网之家等都可以；
3.做好我们连接后有1个来路才会被审核通过；
4.有疑问请联系QQ:442928316