| <%=rs3("name")%> |
| |
<%
i = year(now())
do while i>=2007
'for i=2007 to year(now())
%>
|
<%
'next
i = i-1
loop
%>
| |
| <%
sql="select * from forum where fid in(1,2) and fid<>"&cint(request("fid"))
rs.open sql,conn,1,1
response.write " "&rs("name")&""
rs.close
%> |
|
|
| <%=rs3("name")%> |
<%
rs3.close
%>
| |
<%
sql="select * from texts where fid ="&cint(request("fid"))&" order by orders,tid desc"
if len(cint(request("key")))=4 then
sql="select * from texts where fid ="&cint(request("fid"))&" and addtime like '%"&cint(request("key"))&"%' order by orders,addtime,tid desc"
end if
if trim(request("key"))="keys" then
sql="select * from texts where fid ="&cint(request("fid"))&" and title like '%"&trim(request("keys"))&"%' order by orders,addtime,tid desc"
end if
rs.open sql,conn,1,1
rs.pagesize=20
if cint(request("page"))>rs.pagecount or cint(request("page"))<=0 then
pagenum=1
else
pagenum=cint(request("page"))
end if
i=0
rs.move (pagenum-1)*rs.pagesize
do while not (rs.eof or i>=rs.pagesize)
sql="select * from forum where fid="&rs("fid")
rs2.open sql,conn,1,1
%>
| &fid=<%=cint(request("fid"))%>" class="blue t14"><%=rs("title")%> |
[ <%=DateFormat("YYYY-MM-DD",split(rs("addtime"))(0))%> ] |
<%
rs2.close
i=i+1
rs.movenext
loop
%>
Page <%=pagenum%> / <%=rs.pagecount %> , total <%=rs.recordcount %> pcs , display <%=rs.pagesize %> pcs per page.
［
<%
for j=1 to pagenum-1
response.write " "&cstr(j)&" "
next
response.write " "&pagenum&" "
for j=pagenum+1 to rs.pagecount
response.write " "&cstr(j)&" "
next
rs.close
%>
］ |
|
|
|
