加入收藏 淘宝专营店


您当前的位置:首页 > 留言本

<% dim rndnum,verifycode Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 loop session("verifycode")=rndnum %> <% if Request("work")="add" then verifycode=trim(Request.Form("verifycode")) verifycode2=trim(Request.Form("verifycode2")) if verifycode<>verifycode2 then Response.Write "" else session("verifycode")="" set rs=server.createobject("adodb.recordset") sql="select * from Book" rs.open sql,conn,3,3 rs.addnew rs("B_name") =Request("B_name") rs("B_msn") =Request("B_msn") rs("B_mail") =Request("B_mail") rs("B_tel") =Request("B_tel") rs("B_dom") =Request("B_dom") rs.update '更新数据表记录 Response.Redirect "bbs.html" End IF End if %>
认真填写以下留言
昵称: 
* 留言内容:
QQ/MSN: 
邮箱: 
电话: 
验证码: 
<%=session("verifycode")%> ">  
 
搜索内容:
<% shou =Request("shou") if shou="" then sql="select * from book order by id DESC" else sql="select * from book 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=6 '定义显示数目 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")%>)
  <%=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 %>

 

2005-2010 JLBJ Co,Ltd. All rights reserved 渝ICP备09034245号
电话:13791119511 邮箱:jinlinbanjin@163.com
电话:13791119511 邮箱:jinlinbanjin@163.com