<% 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 %> <%=site%> | → 新站登录
您的位置:<%=site%> → 网站登录
<% '统计 Set ClassCount=Server.CreateObject("Adodb.Recordset") Sql= "Select * from feilei order by classid" ClassCount.open Sql,conn,1,1 Set QCount=Server.CreateObject("Adodb.Recordset") Q_Sql="Select * from detail" QCount.open Q_Sql,conn,1,1 Set WebCount=Server.CreateObject("Adodb.Recordset") Web_Sql="Select * from detail where verity=1" WebCount.open Web_Sql,conn,1,1 Set FCount=Server.CreateObject("Adodb.Recordset") F_Sql="Select * from detail where verity=0" FCount.open F_Sql,conn,1,1 %> [<%=site%> 有分类<%=ClassCount.RecordCount%>个 网站总数<%=QCount.RecordCount%>个 已审网站<%=WebCount.RecordCount%>个 未审网站<%=FCount.RecordCount%>个] <% ClassCount.close Set ClassCount = Nothing QCount.close Set QCount = Nothing WebCount.close Set WebCount = Nothing FCount.close Set FCount = Nothing '统计结束 %>
→ 服务条款
  • <%=site%>不收录有反动、色情、赌博等不良内容或提供不良内容链接的网站,以及网站名称或内容违反国家有关法规的网站,如您的网站有上述内容或链接,请您不要登录;
  • 有些提供主页空间的网站含有色情等不良内容的广告 ( 包括弹出窗口 ) 或链接,<%=site%>不收录此类主页空间下的网站。如果您的主页使用的恰好是此类主页空间,您可以更换主页空间之后再来登陆;
  • <%=site%>不收录无实用内容的网站,如您的网站正在建设中,尚无完整内容,请不必现在登录,欢迎您在网站建设完成后再来登陆;
  • <%=site%>不收录含有病毒、木马,弹出插件或恶意更改他人电脑设置的网站及有多个弹窗广告的网站;
  • 对挂靠别人的网站下的网站 ( 即没有自己单独域名的网站 ) ,<%=site%>将不予收录;
  • 不收录在正常情况下无法正常连接或浏览的网站;
  • 请确认您的网站已经做好了<%=site%>的链接后,您的网站才可以被本站收录;
  • <%=site%>保留是否收录您的网站的权力以及在本站网址数据库中相关内容的编辑决定权;
  • 一、先决条件
    提交前请在您的首页放上本站的连接,代码如下:
    二、查询是否已收录
    三、帮助说明
    【未做本站连接不会审核,审核后取消本站连接也会删除】
    【不管贵站有无流量,只要符合服务条款的均可得到审核】
    【做好本站连接,以后每次来访一IP即可在首页排名第一】
    【所以请你把本站连接放在贵站首页或贵站最醒目的位置】

    四、填写贵站相关资料
    网站名称:
    网站分类:
    E-mail:
    网站地址:
    网站简介:

    介绍在100个汉字以内
    验证码:
    <%=getcode1()%>

    <%=Copyright&Powered%>