" search=search&"" search=search&"" search=search&"按照标题搜索" search=search&"按照内容搜索" search=search&"" search=search&"" set rs=server.CreateObject("ADODB.RecordSet") set rs_info=server.CreateObject("ADODB.RecordSet") set rs_yl=server.CreateObject("ADODB.RecordSet") i=0 sql="select top 10 title,id,dj,date from info where date>Now()-7 order by hits desc" rs.open sql,conn,1,1 if rs.eof then top="还没有文章" else do while not rs.eof filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&""&"..." else titley=rs("Title")&"" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen)&"..." else titley=rs("Title") end if end if if rs("dj")=6 then Txtop=Txtop&"·"&titley&"
" else Txtop=Txtop&"·"&titley&"
" end if i=i+1 if i>=10 then exit do rs.movenext loop end if rs.close i=0 sql="select top 15 id,title,tid,date from info order by date desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有文章" else do while not rs.eof filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) datetime=year(rs("date"))&"_"&month(rs("date"))&"_"&day(rs("date")) datetime1=month(rs("date"))&"月"&day(rs("date")) infolist=infolist&"·"&rs("title")&""&datetime1&"
" i=i+1 if i>=15 then exit do rs.movenext loop end if rs.close rs2=conn.execute("select count(*) from info where year(date)&month(date)&day(date)=year(date())&month(date())&day(date())") shuinfo=rs2(0) Dim list_4(20) Dim list_5(20) Dim list_6(20) sql="select * from specialx where tj=1 and spics<>''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof kk=kk+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_4(kk)=""&SSY_name&"
"&rs("introduce")&"" list_5(kk)="" rs.MoveNext loop end if rs.close sql="select * from specialx where tj=1 and spics=''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof tt=tt+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_6(tt)=""&SSY_name&"" rs.MoveNext loop end if rs.close rs.open "select * from infotype ",conn,1,1 if not rs.eof then ts=rs("ts") TN=split(rs("tname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 if i=ubound(TN)-2 and ubound(TN)>1 then TTY_id=TI(i) TTY_name=TN(i) end if all_type_top_id=TI(i) all_type_name=TN(i) thistype=thistype & "-> "&TN(i)&"" thistitle=thistitle & " - "&TN(i)&"" next end if rs.close i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then image="还没有图片文章" else do while not rs.eof if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&""&"..." else titley=rs("Title")&"" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen)&"..." else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then image=image&"" else image=image&"" end if pic=rs("pic") pic=Replace(pic, "../", "") image=image&"

"&titley&"" if i>=2 then exit do rs.movenext loop end if rs.close list=list&"| " rs.open "select * from infotype where tj=1 order by id",conn,1,1 if NOT rs.EOF then allshu=rs.recordcount Dim list_1(20) Dim list_2(20) Dim list_3(20) do while NOT rs.EOF ii=ii+1 list=list&""&split(rs("tname"),"|")(rs("tj")-1)&" | " list_1(ii)=""&split(rs("tname"),"|")(rs("tj")-1)&"" list_2(ii)="

0 then chalen1=chalen+20 if len(rs_info("Title"))>chalen1 then titlex=left(rs_info("Title"),chalen1)&""&"..." else titlex=rs_info("Title")&"" end if else if len(rs_info("Title"))>chalen then titlex=left(rs_info("Title"),chalen)&"..." else titlex=rs_info("Title") end if end if if rs_info("dj")=6 then list_3(ii)=list_3(ii)&"·"&titlex&""&datetime1&"
" else list_3(ii)=list_3(ii)&"·"&titlex&""&datetime1&"
" end if i=i+1 if i>=newshu then exit do rs_info.movenext loop end if rs_info.close rs.MoveNext loop end if rs.close set rs=nothing set rs_yl=nothing set rs_info=nothing conn.close set conn=nothing%>

·旧版野草   ·设为首页 ·加入收藏

博客登陆 注册博客 文集登陆

本站动态： 野草先锋站栏目作了相应调整，现今网站集文学、 文化、思想、学术、媒体、娱乐为一体，关注国内外值得关注的社会事件，关注弱势群体，关注学者先锋思想！ 热门文章： <%=txtop%>

万事无忧网（WWW.W45Y.com)，网址大全，免费电影，免费音乐，请收藏本站谢谢！（点击打开） 今日头条：  近期焦点： <%=image%> 今日导读 <%=infolist%>

网站导航 学 术 学界争鸣 娱乐批判 历史档案 关 注 弱势群体 教育忧思 文学观察 焦点透视 讲 坛 自由思想 独立精神 兼容并包

先锋网刊： 【第一期】【第二期】 【第三期】 【第四期】【第五期】【野草诗刊】 　个性乐趣论坛申请： 本论坛各页面绝无弹出广告、简洁易操作，该程序根据乐趣园论坛开发，本站服务器稳定，您可申请会员论坛，和免费论坛，会员论坛支持HTML，每帖容量达32K，更安全可靠。 会员论坛列表：〖妖妖乐园〗〖心舞意翔〗〖绿茵娱乐网〗非会员论坛列表：〖俄堡天房〗 〖散文诗世界〗 〖涅槃诗歌〗〖吉安诗歌〗 〖诗家园〗 〖绿火诗歌〗 〖北海晚报〗 〖鹰诗歌主站〗〖站务论坛〗 =>您现在可以直接申请免费论坛了，有事请QQ留言QQ：252919112 去申请会员=> 论坛预览：会员区 免费区 专题列表： 　 <%=list_5(1)%> <%=list_4(1)%> <%=list_5(2)%> <%=list_4(2)%> <%=list_5(3)%> <%=list_4(3)%> E书下载 大量电子书籍下载，作者原创作品可上传……让您满意！ 站内搜索   ` 按文章标题 按文章内容

调查投票 友好合作站点 文学视界 5366网游 中国情诗 新风中文网 诗歌报 奇琥论坛精粹 loveso 最精美的图片 文化先锋 中国投稿热线 燕南社区 中文论坛精粹 友情链接 世纪中国 天涯社区 世纪青年 中国思维 新周报 新京报 南方周末 凯迪社区 思与文网刊 西陆人文 中国视点 读书生活 中国报道 人文城市

<%=list_1(5)%> <%=list_3(5)%><%=list_2(5)%> 　<%=list_1(3)%> <%=list_3(3)%><%=list_2(3)%> 　<%=list_1(2)%> <%=list_3(2)%><%=list_2(2)%> 　唯美相册 Lemon 国色天香，唯美图片。诗人相册，资料收集，诗会活动照，不定期更新，请你关注哦…… 　<%=list_1(1)%> <%=list_3(1)%><%=list_2(1)%> 　<%=list_1(4)%> <%=list_3(4)%><%=list_2(4)%> 　<%=list_1(6)%> <%=list_3(6)%><%=list_2(6)%> 　先锋博客 www.XFblog.com 稳定| 快速| 安全|精彩 给思想安个家“今天，你Blog了吗？——你有写日记的习惯吗？我想很多人都不能坚持，即使你有突发的灵感，你记下了吗？那就试试博客吧!

	本站LOGO
网站简介 | 网站导航 | 联系方式 | 合作伙伴 | 广告业务 | 免责申明 | 诚聘英才 | 加入收藏
Copyright® 2004 YECAO.NET All Rights Reserved 中国野草先锋 版权所有
本站日访问IP突破10000（Alexa排名查询），欢迎刊登广告 【管理登陆】联系QQ 53986483