<%@ CODEPAGE = "936" %> <%=gbname %> <% dim rs dim sql dim page set conn=server.createobject("adodb.connection") DBPath = Server.MapPath(dbname) conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") dim curpage, strcate sql = "SELECT * FROM guestbook " & wherestr & " ORDER BY id DESC" rs.open sql, conn, 1, 1 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1 Else Page=Int(Abs(Request("page"))) End if rs.pagesize = setpage total = rs.RecordCount mypagesize = rs.pagesize rs.absolutepage = page %>

 

发表留言

管理员登陆
返回<%=webname%>

 共有<%=total%>个留言   共<%=rs.pagecount %>页  当前第<%=page%>页  留言分页: <% if page>1 then%> 上一页 <% end if %> <% if rs.pagecount <= 8 then for j=1 to rs.pagecount response.write "["&j&"]" next else for j=1 to 8 response.write "["&j&"] " next response.write "[>>]" end if %> <% if page 下一页 <% end if %>

<% do while not rs.eof and mypagesize>0 %>


[<%=rs("name") %>]

<%response.write rs("title") %>

<%=rs("time") %>

">回复第<%=rs("id")%>条留言  <%=rs(" border="0" src="imgs/oicq.gif"> <% if rs("web")="" or rs("web")="#" then %> 无网站 <% else %> " target="_blank"><%=rs(" border="0" src="imgs/home.gif"> <% end if %> <% if rs("mail")="无邮箱" or rs("mail")="" then %> mailto:<%=rs(" border="0" src="imgs/mail.gif"> <% else %> ">mailto:<%=rs(" border="0" src="imgs/mail.gif"> <% end if %>

<% if rs("re")<>"" then %>

<%=rs("re")%>
<%end if%>
<% mypagesize=mypagesize-1 i=i+1 rs.movenext loop %>

 共有<%=total%>个留言   共<%=rs.pagecount %>页  当前第<%=page%>页  留言分页: <% if page>1 then%> 上一页 <% end if %> <% if rs.pagecount <= 8 then for j=1 to rs.pagecount response.write "["&j&"]" next else for j=1 to 8 response.write "["&j&"] " next response.write "[>>]" end if %> <% if page 下一页 <% end if set rs=nothing %>

谢谢您留言,支持我們的工作。