站内网址搜索
本站推荐
-
<%=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&"" %>