<% IF Request("work")="sh" Then sql="update book set B_sh=1 where id="&Request("id")&"" Conn.execute(sql) End IF %> <% if Request("work")="add" then session("verifycode")="" set rs=server.createobject("adodb.recordset") sql="select * from Book where id="&Request("id")&"" rs.open sql,conn,1,2 rs("B_dom") =Request("B_dom") rs("B_hui") =Request("B_hui") rs.update 'update datasheet recorde 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 Book 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 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 "" Response.Write "" Response.Write "
对不起你的用户名密码，请重新登陆！" Response.Write "
" Response.Write "" Response.Write "" Response.End end if end if if Request("work")="long" then %> <%end if%>
send a message <%if session("admin_name")<>"" then%>quit <%else%><%end if%>
comments/questions:
 *
  name=id>
Search:
<% 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 'define the show number 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 %>
  comments/questions listing  
  <%=rs("B_name")%> on (<%=rs("B_date")%>)
  Phone Number : <%=rs("B_tel")%> | Company Name: <%=rs("B_msn")%> | Email Adresss: <%=rs("B_mail")%>|
">reply comments/questions
  <%=rs("B_dom")%>

<%if trim(rs("B_hui"))<>"" then%>
<%=rs("B_hui")%> <%end if%>
 
Total：<%=rs.PageCount%>Pages, <%=proCount%>Messages, Current page： <%=intCurPage%> <% if intCurPage<>1 then %> |Previouse| <% end if if intCurPage<>rs.PageCount then %> Next| Last| <% end if%>
<% else %>
Sorry!There is no record in the database now！[===<%= Request("shou") %>===]
<% end if rs.close set rs=nothing %>
administrator's name: password: