<%@ LANGUAGE="VBSCRIPT" %> <% DbPath = SERVER.MapPath("../database/topboy-2002.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath %> <% result=Instr(1,request.ServerVariables("http_referer"),request.servervariables("http_host"),1) if result = 0 or result = null then response.redirect "manager-login.asp" end if if session("sid") <> "top" then response.redirect "manager-login.asp" end if %> <% set rs=server.createobject("adodb.recordset") If request("imagesearch.x") <> "" Then sql="select * from topboy_manager where mname='"&request("name")&"'" else sql="select * from topboy_manager order by id" end if If request("imagedel.x") = "" Then rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext If request("imagesearch.x") <> "" Then if rs.eof and rs.bof then response.write"" Response.write "没有操作员！" Response.write "*请按此返回..." Response.write " " Response.write "*或请按此增加操作员..." Response.end end if end if set id=rs("id") set name=rs("mname") set pass=rs("password") RS.pagesize=10 RS.AbsolutePage = 1 if Request("page") <> "" then RS.AbsolutePage = Request("page") rowcount = RS.pagesize %> <% If Not RS.Eof Then %>

按操作员登录名查找：
增加操作人员>>>
<% Do While Not rs.EOF and s<10 s=s+1 %> <% rs.Movenext loop %>
查询结果:本次查询共查询到 <% =RS.recordcount %> 条记录。第 <% if Request("page") = "" then response.write 1 else response.write Request("page") end if %> 页; 共 <% =RS.pagecount %> 页。 <% If RS.pagecount>1 then %> 请选择页码链接： <% For i=1 to RS.pagecount Response.Write " " Response.Write "" Response.Write "[" & i & "]" Response.Write " " Next End if %>
删除
登录名
登录密码
修改
<% =name %>
<% =pass %>

<% if rs.recordcount > 1 then %> <% else %> 至少要有一名操作员，删除操作不能进行！ <% end if %>       

<% end if else %>

记录已经被删除。按此返回......
 <% i=request("hidden") sql="delete FROM topboy_manager WHERE id ="&request("idname")&"" conn.Execute(sql) end if %>