<% if request("modiy")="pass" then set rs=server.createobject("adodb.recordset") rs.open "select * from guestbook where id="&cint(request("id")),conn,3,2 rs("pass")=not rs("pass") rs.update rs.close set rs=nothing end if if trim(request("reply"))<>"" then sql="update guestbook set reply='"&trim(request("reply"))&"' where id="&cint(request("id")) conn.execute(sql) response.Write("") end if %>

查看信息反馈

<% Function unHtml(content) ON ERROR RESUME NEXT unHtml=content IF content <> "" Then unHtml=Server.HTMLEncode(unHtml) unHtml=Replace(unHtml,vbcrlf,"
") unHtml=Replace(unHtml,chr(9)," ") unHtml=Replace(unHtml," "," ") End IF IF Err.Number <>0 Then unHtml= "HTML转换中出错请联系管理员
" Err.Clear End IF End Function %> <% set rs=server.createobject("adodb.recordset") rs.open "select * from guestbook order by id desc",conn,3,2 'dim page 'dim e_page 'e_page=5 '每页显示留言数 'rs.pagesize=e_page 'if request.querystring("page")="" or request.querystring("page")=0 then 'page=1 'else 'page=request.querystring("page") 'rs.absolutepage=trim(request.querystring("page")) 'end if %>
<% if rs.eof and rs.bof then %>

还没有任何留言！

<%else%> <% rs.PageSize =5 '每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") per_page=rs.PageSize if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %>

<% call PageControl(iCount,maxpage,page,"border=0 align=center","

",per_page) %>

<% For i=1 To x 'do while not rs.eof and e_page>0 %>

第<%=rs("id")%>条

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

<%=rs("qq")%> <%end if%> <%if rs("email")<>"" then%> " target="_blank" title=Email：<%=rs("email")%>>

" target="_blank" title=Email：<%=rs("email")%>><%=rs("email")%> <%end if%> <%if rs("url")<>"" then%> " target="_blank" title=主页：<%=rs("url")%>>

" target="_blank" title=主页：<%=rs("url")%>><%=rs("url")%> <%end if%> <%if rs("pass")<>0 then%> ">显示<%else%> ">不显示<%end if%>　">删除

.gif">	姓名：<%=rs("name")%> 内容：<%=unHtml(rs("content"))%>
		留言时间：<%=rs("time")%>

管理回复：

<% 'e_page=e_page-1 'rs.movenext 'loop RS.MoveNext next %>

<% call PageControl(iCount,maxpage,page,"border=0 align=center","

",per_page) %>

<% rs.close set rs=nothing end if %>

<% Sub PageControl(iCount,pagecount,page,table_style,font_style,per_page) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") temp="" Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("

" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("下页 " & vbCrLf) Response.Write("尾页 " & vbCrLf) end if Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & iCount & "条/每页"&per_page&"条" & vbCrLf) Response.Write(" 转到" & "" & "页" & vbCrLf & "") Response.Write("

" & vbCrLf ) End Sub %>