<%If rss=1 then%> <%end if%> <%call spiderbot()%>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:<%=SiteTitle%> >> 首页
本网推荐
    <% Call ShowArticle(0,10,5,"·",100,"IsHot=1","ID Desc",0,1) %>
站内公告:
    <%Call ShowArticle(83,10,5,"·",100,"no","ID desc",0,1)%>
<% set rs1=server.createobject("ADODB.Recordset") sql1="select Top 1 ID,Title,Images,ArtDescription,TitleFontColor from Yao_Article where yn = 0 and IsTop = 1 and IsHot = 1 order by DateAndTime desc" rs1.open sql1,conn,1,3 If Not rs1.Eof Then do while not (rs1.eof or err) %>

"><%If rs1("TitleFontColor")<>"" then Response.Write("") End if%><%=rs1("Title")%><%If rs1("TitleFontColor")<>"" then Response.Write("") End if%>

  <%=left(LoseHtml(rs1("ArtDescription")),200)%>……[">详细]
<% rs1.movenext loop end if rs1.close set rs1=nothing %>
    <%Call ShowArticle(0,10,5,"·",100,"classid<>"¬icid&"","DateAndTime desc,ID desc",1,1)%>
  • 一周排行
  • 今日排行
    <% set rs1=server.createobject("ADODB.Recordset") sql1="select Top 10 ID,Title,Content,DateAndTime,Hits from Yao_Article where yn = 0 and datediff('d',DateAndTime,Now()) <= 7 order by Hits desc,ID desc" rs1.open sql1,conn,1,3 If Not rs1.Eof Then NoI=0 do while not (rs1.eof or err) NoI=NoI+1 %>
  • <%=FormatDate(rs1("DateAndTime"),5)%>" title="<%=rs1("Title")%>"><%=rs1("Title")%>
  • <% rs1.movenext loop else Response.Write("没有") end if rs1.close set rs1=nothing %>
    <% set rs1=server.createobject("ADODB.Recordset") sql1="select Top 10 ID,Title,Content,DateAndTime,Hits from Yao_Article where yn = 0 order by DateAndTime desc,Hits desc,ID desc" rs1.open sql1,conn,1,3 If Not rs1.Eof Then NoI=0 do while not (rs1.eof or err) NoI=NoI+1 %>
  • <%=FormatDate(rs1("DateAndTime"),5)%>" title="<%=rs1("Title")%>"><%=rs1("Title")%>
  • <% rs1.movenext loop else Response.Write("没有") end if rs1.close set rs1=nothing %>
<% Dim rs,rs1 NoI=0 set rs=conn.execute("select ID,ClassName,IndexNum,Indeximg from Yao_Class Where IsIndex = 1 And link=0 order by num asc") do while not rs.eof NoI=NoI+1 Response.Write("
") & VbCrLf Response.Write("
more..."&rs(1)&"
") & VbCrLf If rs(3)=1 then Response.Write("
    ") & VbCrLf Call ShowImgArticle(rs(0),3,20,"no","DateAndTime desc,ID desc") Response.Write("
") & VbCrLf End if Response.Write("
    ") & VbCrLf Call ShowArticle(rs(0),rs(2),5,"·",100,"no","DateAndTime desc,ID desc",0,1) Response.Write("
") & VbCrLf Response.Write("
") & VbCrLf If NoI=4 then Response.Write("
") & VbCrLf Call ShowAD(12) Response.Write("
") & VbCrLf Response.Write("
") & VbCrLf elseIf NOI=8 then Response.Write("
") & VbCrLf Call ShowAD(13) Response.Write("
") & VbCrLf Response.Write("
") & VbCrLf End if rs.movenext loop rs.close:set rs=nothing %>
<%If indexpg>0 then%>
  • 最新留言
  • 最新评论
<% set rs1=server.createobject("ADODB.Recordset") sql1="select Top "&indexpg&" * from Yao_Guestbook where yn = 1 order by ID desc" rs1.open sql1,conn,1,3 If Not rs1.Eof Then do while not (rs1.eof or err) %>
<%=rs1("UserName")%> <%=day(rs1("AddTime"))%>日说 <%=rs1("Title")%>
  • <%=left(LoseHtml(rs1("Content")),40)%>..
  • <% rs1.movenext loop else Response.Write("
  • 还没有留言!
  • ") end if rs1.close set rs1=nothing %>
    <% set rs1=server.createobject("ADODB.Recordset") sql1="select Top "&indexpg&" * from Yao_Pl where yn = 1 order by ID desc" rs1.open sql1,conn,1,3 If Not rs1.Eof Then do while not (rs1.eof or err) set rsClass=server.createobject("adodb.recordset") sql = "select id,title from Yao_Article where ID="&rs1("ArticleID")&"" rsClass.open sql,conn,1,1 pTitle=rsClass("Title") pid=rsclass("ID") rsClass.close set rsClass=nothing %>
    <%=rs1("memAuthor")%> 对 " title="<%=pTitle%>"><%=left(pTitle,7)%> 的评论
  • <%=left(LoseHtml(ReplaceshowFace(rs1("memContent"))),40)%>..
  • <% rs1.movenext loop else Response.Write("
  • 还没有评论!
  • ") end if rs1.close set rs1=nothing %>
    <%End if%> <%Call ShowAD(15)%> <%If useroff=1 and indexuser>0 Then%>
    • 最新加入会员
    • 会员<%=moneyname%>排行
    <% set rs1=server.createobject("ADODB.Recordset") sql1="select Top "&indexuser&" * from Yao_User Where yn=1 order by ID desc" rs1.open sql1,conn,1,3 NoI=0 If Not rs1.Eof Then do while not (rs1.eof or err) NoI=NoI+1 %> <% rs1.movenext loop else Response.Write("
  • 还没有!
  • ") end if rs1.close set rs1=nothing %>
    <%=NoI%>." target="_blank"><%=rs1("UserName")%> <%If rs1("Sex")=1 then Response.Write("男") else Response.Write("") end if%> <%=rs1("UserMoney")%>
    更多.....
    <% set rs1=server.createobject("ADODB.Recordset") sql1="select Top "&indexuser&" * from Yao_User Where yn=1 order by UserMoney desc,id desc" rs1.open sql1,conn,1,3 NoI=0 If Not rs1.Eof Then do while not (rs1.eof or err) NoI=NoI+1 %> <% rs1.movenext loop else Response.Write("
  • 还没有!
  • ") end if rs1.close set rs1=nothing %>
    <%=NoI%>." target="_blank"><%=rs1("UserName")%> <%If rs1("Sex")=1 then Response.Write("男") else Response.Write("") end if%> <%=rs1("UserMoney")%>
    更多.....
    <%End if:If indexnum>0 then%>
    热门文章
      <%Call ShowArticle(0,indexnum,0,"·",100,"no","Hits desc,ID desc",0,1)%>
    <%End if:If IsVote<>0 then%>
    热门调查
      <%Call ShowVote(IsVote)%>
    <%End if%>
    链接申请
    <%=Copy%>
    <%if request.QueryString("action")="search" then dim keyword,laoy8 keyword = Server.UrlEncode(trim(request.Form("keyword"))) laoy8 = request.Form("bbs") Select case laoy8 case "1" response.Redirect("Search.asp?KeyWord="&keyword) case "2" response.Redirect("Guestbook.asp?KeyWord="&keyword) case "3" response.Redirect("http://www.baidu.com/s?wd="&keyword&"&_si=%CB%D1%CB%F7&tn=xiaotang969_pg&fyb=0") case "4" response.Redirect("http://www.google.cn/search?hl=zh-CN&q="&keyword) case "5" response.Redirect("http://www.youdao.com/search?q="&keyword) case "6" response.Redirect("http://one.cn.yahoo.com/s?p="&keyword) end select end if%>
    <@> <%@$> l l ......01 1-p po fg-1 ''''0. . . . p - v- mila ..gj opo 01234 ulkmulk