<%
Dim num,iPageCount,CurPage,strUrl,i
num=30
i=0
strUrl=Request.ServerVariables("SCRIPT_NAME")
If Len(Request.QueryString("Page"))=0 Then
CurPage=1
Else
CurPage=CInt(Request.Querystring("Page"))
End If
set reco=server.createobject("adodb.recordset")
reco.open "select ArticleTitle,Articleid,articleTitleColor,ArticleAuthor,ArticleTime from "&DatabaseTable&" order by OrderID desc",conn,1,1
strUrl=Request.ServerVariables("SCRIPT_NAME")
reco.PageSize=num
iPageCount=reco.PageCount
'得到当前的页码
if not reco.EOF then
reco.AbsolutePage=CurPage
end if
if not reco.eof then
response.write ""
do while not reco.EOF
response.write "| "
response.write "·"
response.write ""
response.write reco(0)
response.write ""
response.write ""
response.write " | "
response.write ""
'response.write reco(3)
response.write " | "
response.write ""
response.write reco(4)
response.write ""
i=i+1
if i>=reco.PageSize then exit do
reco.movenext
loop
response.write " | "
else
response.write "无相关内容!"
end if
reco.close:set reco=nothing
response.write "
"
ShowPageBar iPageCount,CurPage,strUrl
response.write " "
%>
|