<%=arrs("title")%>
<%
listpage=request("listpage")
arrcontent=split(arrs("content"),"$$$")
InnerPageNum=ubound(arrcontent)
if listpage="" then
listpage=1
end if
response.Write arrcontent(listpage-1)
%>
发布日期:<%=arrs("addtime")%>
<%
hits=arrs("hits")
arrs("hits")=hits+1
arrs.update
response.Write " 阅读 " & hits+1 & " 次"
%>
<%
'rollnum=listpage
id=arrs("id")
if InnerPageNum<>0 then
if listpage=1 then
response.Write "[上一页] "
else
response.Write " [上一页] "
end if
for pagerollnum=0 to InnerPageNum
if pagerollnum=listpage-1 then
response.Write (pagerollnum+1)&" "
else
response.Write " ["&pagerollnum+1&"] "
end if
next
if (listpage-1) = InnerPageNum then
response.Write "[下一页]"
else
response.Write " [下一页] "
end if
'response.Write listpage &"fdafdas" &(InnerPageNum+1)
end if
%>
|
<%
arrs.close
set arrs=nothing
%>
|
|
|
|
<%
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
%>
|
|