|
|
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select id,Title,hits,addtime,ClassName,showname from article where classid="& classid &" order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
%>
| 暫無內容 |
<%
else
rs.PageSize=20
page=request.QueryString("page")
if page="" then page=request.Form("page")
page=clng(page)
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
Title = rs("Title")
turl="article.asp?id="&rs("id")&"&name="&rs("showname")
hits= rs("hits")
addtime=rs("addtime")
%>
| <%=title%> |
<%=addtime%> |
<%
rs.movenext
if rs.eof then exit for
next
%>
|
<%
end if
set rs=nothing%>
| |
|