<% if Request("work")="quit" then session("admin_name")="" end if %> <% 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 "index1.asp" End IF End if %>

Fill form| Manage Message

Name:

Message Content:

QQ/MSN:

Mailbox:

Tel:

Confirmation code:

<%=session("verifycode")%> ">

Search Content :

<% 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=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 %>

[===Message Lists===]

<%=rs("B_name")%> 在 (<%=rs("B_date")%>)

<% '如果不用申核请删除 if ..... end if 但要保留 <%=rs("B_dom")> 这句 if rs("B_sh")=1 then%><%=rs("B_dom")%><%else%> 该留言正等待管理员审核，请等候！ <%end if%>

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

Total：<%=rs.PageCount%>page, <%=proCount%> messages, Current Page： <%=intCurPage%> <% if intCurPage<>1 then %> |Previous Page| <% end if if intCurPage<>rs.PageCount then %> Next Page| Last Page| <% end if%>

<% else %>

Sorry！Have no Records！[===<%= Request("shou") %>===]

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