<%=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("
") & VbCrLf
If NoI=4 then
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
Call ShowArticle(rs(0),rs(2),5,"·",100,"no","DateAndTime desc,ID desc",0,1)
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%>
<%End if%>
<%Call ShowAD(15)%>
<%If useroff=1 and indexuser>0 Then%>
<%
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
%>
<%
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
%>
<%End if:If indexnum>0 then%>
<%End if:If IsVote<>0 then%>
<%End if%>
- 最新留言
- 最新评论
<%
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)
%> 还没有留言! ")
end if
rs1.close
set rs1=nothing
%>
<%=rs1("UserName")%> <%=day(rs1("AddTime"))%>日说 <%=rs1("Title")%>
<%=left(LoseHtml(rs1("Content")),40)%>..
<%
rs1.movenext
loop
else
Response.Write("
<%
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
%> 还没有评论! ")
end if
rs1.close
set rs1=nothing
%>
<%=rs1("memAuthor")%> 对 " title="<%=pTitle%>"><%=left(pTitle,7)%> 的评论
<%=left(LoseHtml(ReplaceshowFace(rs1("memContent"))),40)%>..
<%
rs1.movenext
loop
else
Response.Write(" - 最新加入会员
- 会员<%=moneyname%>排行
| <%=NoI%>." target="_blank"><%=rs1("UserName")%> | <%If rs1("Sex")=1 then Response.Write("男") else Response.Write("女") end if%> | <%=rs1("UserMoney")%> |
| 更多..... | ||
| <%=NoI%>." target="_blank"><%=rs1("UserName")%> | <%If rs1("Sex")=1 then Response.Write("男") else Response.Write("女") end if%> | <%=rs1("UserMoney")%> |
| 更多..... | ||
热门文章
-
<%Call ShowArticle(0,indexnum,0,"·",100,"no","Hits desc,ID desc",0,1)%>
热门调查
-
<%Call ShowVote(IsVote)%>
<%Call Link(0,0,1,0)%>
