<%@ LANGUAGE="VBSCRIPT" %> <% DbPath = SERVER.MapPath("../database/topboy-2002.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath %> <% if request("browsdopage") <> "" then if isnumeric(request("browsdopage")) = false then response.write"" Response.write " 您好，页码请您填写数字！" Response.write "请按此返回..." Response.end end if end if 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 session("baseadd") = request.ServerVariables("http_referer") set rs=server.createobject("adodb.recordset") sql="select * from topboy_product where productname like '%"&request("bname")&"%' order by id DESC" rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext If request("imagemodi.x") <> "" Then count = rs.recordcount for j=1 to count i = request("hidden") productname = request("productname"&j) price = cstr(request("price"&j)) iprice = cstr(request("iprice"&j)) freight = cstr(request("freight"&j)) h = request("hidden"&j) id = trim(ccur(h)) ' response.write id ' response.write j ' response.end sqltext="update topboy_product set productname = '"& productname &"',price = '"& price &"',iprice = '"& iprice &"',freight = '"& freight &"' where ccur(id) = "& id &"" ' response.write sqltext ' response.end conn.execute sqltext rs.movenext next response.redirect session("baseadd") else %> <% if rs.eof and rs.bof then response.write"
" response.write"
" response.write"" response.write"现在还没有上架商品..." response.write"" response.write "请按此返回..." response.write " 或 " response.write"" response.write "录入新商品..." rs.close conn.close else If request("imagedel.x") = "" Then If Not RS.Eof Then RS.pagesize=10 RS.AbsolutePage = 1 dim page if request("browsdopage") <> "" then if cint(request("browsdopage")) > RS.pagecount then page = RS.pagecount else page = request("browsdopage") end if else page = request("page") end if if page = 0 then RS.AbsolutePage = 1 page = 1 else RS.AbsolutePage = page end if rowcount = RS.pagesize %>
录入新商品>>>
查询结果:本次查询共查询到 <% =RS.recordcount %> 条记录。第 <% if page = "" then response.write 1 else response.write page end if %> 页; 共 <% =RS.pagecount %> 页。
<% if page > 1 then %> <% else %> <% end if %> <% if page > 1 then %> <% else %> <% end if %> <% if cint(page) < rs.pagecount then %> <% else %> <% end if %> <% if cint(page) < rs.pagecount then %> <% else %> <% end if %>
<% Do While Not rs.EOF and rowcount>0 i=i+1 %> <% rs.Movenext rowcount = rowcount-1 loop %>
删除
商品名称
零售价
批发价
运费
">
">
$ ">
$ ">
"> ">

">

商品名称模糊查找：
 
<% end if else %>

所选数据已经删除，按此返回...
 <% i=request("hidden") For p = 1 To i if request("name"&p) <> "" then sql="delete FROM topboy_product WHERE id = "& request("name"&p) &"" ' response.write sql ' response.write "
" ' response.write request("name"&p) ' response.end conn.Execute sql end if Next end if end if end if %>