|
|
<%
fbn=0
fbsum=8
set dhrs=server.createobject("adodb.recordset")
dhsql="select * from class"
dhrs.open dhsql,conn,1,1
if not dhrs.eof then
do while not dhrs.eof
set fbrs=server.createobject("adodb.recordset")
fbsql="select top 1 id,title,classid,classname from article where classid=" &dhrs("id") &" order by id desc"
fbrs.open fbsql,conn,1,1
if fbrs.recordcount=1 then
bttitle=replace(fbrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,40)
%>
<%
fbn=fbn+1
if fbn=fbsum then exit do
end if
fbrs.close
set fbrs=nothing
dhrs.movenext
loop
end if
if ((fbn 0)) then
dhrs.movefirst
if not dhrs.eof then
do while not dhrs.eof
set fbrs=server.createobject("adodb.recordset")
fbsql="select top 2 id,title,classid,classname from article where classid=" &dhrs("id") &" order by id desc"
fbrs.open fbsql,conn,1,1
if fbrs.recordcount=2 then
fbrs.movenext
bttitle=replace(fbrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,30)
%>
<%
fbn=fbn+1
if fbn=fbsum then exit do
end if
fbrs.close
set fbrs=nothing
dhrs.movenext
loop
end if
end if
if ((fbn0)) then
dhrs.movefirst
if not dhrs.eof then
do while not dhrs.eof
set fbrs=server.createobject("adodb.recordset")
fbsql="select top 3 id,title,classid,classname from article where classid=" &dhrs("id") &" order by id desc"
fbrs.open fbsql,conn,1,1
if fbrs.recordcount=3 then
fbrs.movenext
fbrs.movenext
bttitle=replace(fbrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,30)
url="article/" & fbrs("id") & ".htm"
%>
<%
fbn=fbn+1
if fbn=fbsum then exit do
end if
fbrs.close
set fbrs=nothing
dhrs.movenext
loop
end if
end if
dhrs.close
set dhrs=nothing
%>
|
|
<%
sql_class="select * from class order by id"
set classrs=server.createobject("adodb.recordset")
classrs.open sql_class,conn,1,1
if not classrs.eof then
redim aa(classrs.recordcount)
for i=1 to classrs.recordcount
rownum1=rownum
zinum1=zinum
if classrs("rownum")<>"" then rownum1=classrs("rownum")
if classrs("zinum")<>"" then zinum1=classrs("zinum")
aa(i)=getdata(classrs("id"),rownum1,zinum1)
classrs.movenext
next
classrs.close
set classrs=nothing
end if
mbtab=server.Mappath("admin/tab.htm")
lh_tab=getfile(mbtab)
mbtab1=server.Mappath("admin/tab1.htm")
lh_tab1=getfile(mbtab1)
indexcontent=""
set rs=server.createobject("adodb.recordset")
rs.open sql_class,conn,1,1
for i=1 to rs.recordcount
if (i mod 2) =1 then
okfile_tab=lh_tab
end if
okfile_tab1=lh_tab1
okfile_tab1 = replace(okfile_tab1,"$classname$",rs("classname"))
okfile_tab1 = replace(okfile_tab1,"$article_content$",aa(i))
okfile_tab1 = replace(okfile_tab1,"$classname_more$","list.asp?classid="&rs("id"))
if (i mod 2) =1 then
okfile_tab = replace(okfile_tab,"$tab1$",okfile_tab1)
else
okfile_tab = replace(okfile_tab,"$tab2$",okfile_tab1)
indexcontent = indexcontent & okfile_tab
end if
rs.movenext
next
if ((i-1) mod 2) =1 then
indexcontent = indexcontent & okfile_tab
indexcontent = replace(indexcontent,"$tab2$","")
end if
rs.close
set rs=nothing
response.Write indexcontent
%>
|
|
 |
|
<%
set getrs=server.createobject("adodb.recordset")
sql="select top "&tjrownum&" id,title from article where tj=1 order by id desc"
getrs.open sql,conn,1,1
tt=1
if getrs.bof then
str= "暂时还没有信息！"
else
do while not getrs.eof
bttitle=replace(getrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,tjzinum)
%>
<%
getrs.movenext
tt=tt+1
loop
end if
getrs.close
set getrs=nothing
%>
|
|
<%
set getrs=server.createobject("adodb.recordset")
sql="select top "&tjrownum&" id,title from article order by hits desc,id"
getrs.open sql,conn,1,1
tt=1
if getrs.bof then
str= "暂时还没有信息！"
else
do while not getrs.eof
bttitle=replace(getrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,tjzinum)
%>
<%
getrs.movenext
tt=tt+1
loop
end if
getrs.close
set getrs=nothing
%>
|
|
<%
set getrs=server.createobject("adodb.recordset")
sql="select top "&tjrownum&" id,title from article order by id desc"
getrs.open sql,conn,1,1
tt=1
if getrs.bof then
str= "暂时还没有信息！"
else
do while not getrs.eof
bttitle=replace(getrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,tjzinum)
%>
<%
getrs.movenext
tt=tt+1
loop
end if
getrs.close
set getrs=nothing
%>
|
|
当前位置：首页