%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
top_temp="temp/top.html"
foot_temp="temp/foot.html"
tem= ReadtxtFiles(server.mappath(""&top_temp&""))
call list_temp(tem)
response.write tem
tem2= ReadtxtFiles(server.mappath(""&foot_temp&""))
call list_temp(tem2)
%>
公告:<%set rs=server.createobject("adodb.recordset")
rs.open "[gg] order by d_id desc",conn,1,1
if rs.bof and rs.eof then %>
<%
rs.close
else%>
<%end if%>
签写留言
查看留言
<%set rs1 = server.CreateObject("adodb.recordset")
sql="[book] order by book_id desc"
rs1.PageSize = 5 '这里设定每页显示的记录数
rs1.CursorLocation = 3
rs1.Open sql,conn,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(safeRequest("page",1))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs1.PageCount then
intpage = rs1.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs1.eof then
rs1.AbsolutePage = intpage
end if
for i=1 to rs1.PageSize
if rs1.EOF or rs1.BOF then exit for
%>