> s.open sql,conn,1,2 rs("B_dom") =Request("B_dom") rs("B_hui") =Request("B_hui") rs.update '更新数据表记录 rs.close set rs=nothing Response.Redirect "book_index.asp?ok=ck" End IF %>

<%if Request("work")="edit" and session("admin_name")<>"" then set rs=server.createobject("adodb.recordset") sql="select * from liuyan where id="&Request("id")&"" rs.open sql,conn,1,1 %> <% rs.close set rs=nothing end if%> <%IF session("admin_name")<>"" and Request("ok")="ck" Then%> <%end if%> <% if Request("work")="yz" then '可以下面设管理员密码现在的密码是admin admin if Request("L_name")="admin" and Request("B_pss") ="admin" then session("admin_name")="admin" Response.Redirect "book_index.asp?ok=ck" else Response.Write " " Response.Write "" Response.Write "" Response.Write "" Response.Write "" blog

认真填写以下内容 | 查看留言 | <%if session("admin_name")<>"" then%> 退出 <%else%> 重新登陆 <%end if%>

留言内容:	<%=rs("B_dom")%> *
版主回复:	<%=rs("B_hui")%> *
name=id>

搜索内容:

<% shou =Request("shou") if shou="" then sql="select * from liuyan order by id DESC" else sql="select * from liuyan where B_name like '%"&shou&"%' or B_dom like '%"&shou&"%' order by id DESC " end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 IF Not rs.eof Then proCount=rs.recordcount rs.PageSize=20 '定义显示数目 if not IsEmpty(Request("ToPage")) then ToPage=CInt(Request("ToPage")) if ToPage>rs.PageCount then rs.AbsolutePage=rs.PageCount intCurPage=rs.PageCount elseif ToPage<=0 then rs.AbsolutePage=1 intCurPage=1 else rs.AbsolutePage=ToPage intCurPage=ToPage end if else rs.AbsolutePage=1 intCurPage=1 end if intCurPage=CInt(intCurPage) For i = 1 to rs.PageSize if rs.EOF then Exit For end if %> <% rs.MoveNext next %>

留言列表

<%=rs("B_name")%> 在 (<%=rs("B_date")%>) " class="jiage">修改(回复)留言

电话: <%=rs("B_tel")%> | QQ/Msn <%=rs("B_msn")%> | E-Mail <%=rs("B_mail")%> |

<%=rs("B_dom")%>

<%if trim(rs("B_hui"))<>"" then%> 管理员回复:
<%=rs("B_hui")%> <%end if%>

总共：<%=rs.PageCount%>页, <%=proCount%>条留言, 当前页： <%=intCurPage%> <% if intCurPage<>1 then %> |上一页| <% end if if intCurPage<>rs.PageCount then %> 下一页| 最后页| <% end if%>

<% else %>

对不起！目前库中没有您要查询记录！[===<%= Request("shou") %>===]

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