<%=gbname %>

<%@ 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 %> ">" border="0" src="imgs/mail.gif"> <% end if %>

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

<%=rs("re")%>

<%end if%>

<% mypagesize=mypagesize-1 i=i+1 rs.movenext loop %>

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