<% id=request.querystring("id") set r=server.createobject("adodb.recordset") r.open "select out,yl_outtime from detail where id="&id,conn,1,3 sql="select * from detail where id="&id set rsc=conn.execute(sql) id=rsc("id") url=rsc("url") titleurl=replace(url,"http://","") titleurl2=replace(titleurl,"/","") title=rsc("title") memo=rsc("memo") out=rsc("out") classid=rsc("classid") verity=rsc("verity") email=rsc("email") yl_time=rsc("yl_time") yl_intime=rsc("yl_intime") yl_in=rsc("yl_in") yl_outtime=rsc("yl_outtime") yl_yesterin=rsc("yl_yesterin") yl_dayin=rsc("yl_dayin") yl_10in=rsc("yl_10in") error=rsc("error") conn.execute (sql) set rs=server.createobject("adodb.recordset") rs.open "select * from title",conn,1,3 site=rs("site") siteurl=rs("siteurl") Copyright=rs("Copyright") ads01=rs("ads01") ads02=rs("ads02") ads03=rs("ads03") ads04=rs("ads04") ads05=rs("ads05") ads06=rs("ads06") ads07=rs("ads07") ads08=rs("ads08") ads09=rs("ads09") ads10=rs("ads10") baidu=rs("baidu") rsc.close set rsc=nothing if verity<>1 then Response.Write "" Response.End end if %> <%=title%>(<%=titleurl2%>)网站介绍_联系站长 ,版权所有">
<%=title%>(<%=url%>)详情,如果您也认为此网站也同样优秀,可以收藏"<%=title%>"站点,或者联系该站长交个朋友。

站内网址搜索

本站推荐

    <%=ads10%>

如果你喜欢本站,请告诉您身边的朋友,谢谢! <%=title%>

    网站地区: <% set rsfl=server.createobject("adodb.recordset") sql= "select * from feilei Where classid="&classid 'response.write sql rsfl.open sql,conn,1,1 %> _<%=rsfl("classid")%>.htm target=_blank><%=rsfl("classname")%>
    网站名称:<%=title%>(<%=url%>)
    站长QQ:点击这里给我发消息
    收录时间:<%=yl_time%>
    最后点入:<%=yl_intime%>
    报错情况:已被报错<%=error%>次,如果你打不开[<%=title%>]网站请点击:报告错误
    统计数据:近十分钟点入:<%=yl_10in%> 今日点入:<%=yl_dayin%> 昨日点入:<%=yl_yesterin%> 总点入:<%=yl_in%> 总点出:<%=out%>
    网站简介:<%=memo%>
    收录查询:直接访问.. | <%=title%>
    备注说明:以上是该网站的站点信息以及站长的联系方式,如果你认为该站对您有用可以收藏,或者联系站长交流。

【最新来访网站】

<% Set news=Server.CreateObject("Adodb.Recordset") SqlT="select top 25 id,url,yl_dayin,title from detail where verity=1 order by yl_intime desc,id" news.open SQLT,conn,1,1 numrow2=0 menunews=menunews&"
    " if news.EOF and news.BOF then menunews=menunews&"
  •  暂时没有内容
  • " else numRows=0 While (Not news.EOF) menunews = menunews &"
  • · " menunews=menunews&""&news("Title")&"" menunews=menunews&"
  • " numRows=numRows+1 news.MoveNext if (numRows mod 5 =0) Then numrow2=numrow2+1 end if Wend end if news.close Set news = Nothing response.write ""&menunews&"" %>

【最近点出网站】

<% Set out=Server.CreateObject("Adodb.Recordset") SqLT="select top 25 id,url,title,yl_dayin from detail where verity=1 order by yl_outtime desc,id" out.open SQLT,conn,1,1 numrow2=0 menuout=menuout&"
    " if out.EOF and out.BOF then menuout=menuout&"
  •  暂时没有内容
  • " else numRows=0 While (Not out.EOF) menuout = menuout &"
  • · " menuout=menuout&""&out("Title")&"" menuout=menuout&"
  • " numRows=numRows+1 out.MoveNext if (numRows mod 5 =0) Then numrow2=numrow2+1 end if Wend end if out.close Set out = Nothing response.write ""&menuout&"" %>