<% id=request.querystring("id") set r=server.createobject("adodb.recordset") sql="select * from detail where id="&id set rsc=conn.execute(sql) id=rsc("id") url=rsc("url") logo=rsc("logo") title=rsc("title") memo=rsc("memo") email=rsc("email") classid=rsc("classid") youqing123_dayin=rsc("youqing123_dayin") youqing123_yesterin=rsc("youqing123_yesterin") youqing123_in=rsc("youqing123_in") youqing123_time=rsc("youqing123_time") youqing123_intime=rsc("youqing123_intime") out=rsc("out") verity=rsc("verity") error=rsc("error") conn.execute (sql) rsc.close set rsc=nothing if verity<>1 then Response.Write "" Response.End end if set r=server.createobject("adodb.recordset") r.open "select out,youqing123_outtime from detail where id="&id,conn,1,3 if not r.eof then r("out")=r("out")+1 r("youqing123_outtime")=now() r.update end if 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") rs.close set rs=nothing sql1="select * from feilei where classid="&classid&"" Set rs1= Server.CreateObject("ADODB.Recordset") rs1.open sql1,conn,1,1 classname=rs1("classname") topclass=rs1("topclass") pinyin=rs1("pinyin") rs1.close set rs1=Nothing %> <%=title%> | →<%=memo%> <%=url%>
免费收录,自动审核,友情链接 <%=ads01%> <%=ads05%>
<%=title%> ALEXA排名 报告错误 免费提交 百度收录
网站名称: <%=title%>
网站地址: <%=url%>
网站标志: <% if logo<>"" then %><%else%>你没有添加LOGO,如果有请点击添加!<% end if %> <%=title%> 网站缩略图
网站分类: <%=classname%>
站长邮箱: <%=email%>
收录时间: <%=youqing123_time%>
统计数据: 今日点入:<%=youqing123_dayin%> 昨日点入:<%=youqing123_yesterin%> 总点入:<%=youqing123_in%> 总点出:<%=out%> 已被报错:<%=error%>
网站简介: <%=memo%>
<%=ads09%>
※ 最新点入站点
<% Set news=Server.CreateObject("Adodb.Recordset") SqlT="select top 11 id,title from detail where verity=1 and youqing123_dayin>0 order by youqing123_intime desc,id" news.open SQLT,conn,1,1 numrow2=0 response.write "" response.write "" if news.EOF and news.BOF then response.write "" else numRows=0 While (Not news.EOF) response.write "" numRows=numRows+1 news.MoveNext if (numRows mod 1 =0) Then numrow2=numrow2+1 response.write "" end if Wend end if news.close Set news = Nothing response.write "
暂时没有内容
·" response.write ""&news("Title")&"" response.write "
" %>
※ 网 址 分 类
<% Set feilei=Server.CreateObject("Adodb.Recordset") Sql= "select top 72 classid,classname from feilei where show=1" feilei.open Sql,conn,1,1 response.write "" response.write "" if feilei.Eof and feilei.Bof then response.write "" else numRows = 0 While (Not feilei.Eof) response.write "" feilei.MoveNext numRows = numRows + 1 if (numRows mod 9 =0) Then numrow2=numrow2+1 response.write "" end if Wend end if feilei.Close Set feilei=Nothing response.write "
暂时没有栏目
"&feilei("classname")&"
" %>
| 关于本站 | 联系本站 | 新站登录 | 使用帮助 | 友情连接 | 给我留言 |
<%=Copyright%>