<% '---------------------确定是否具有管理产品的权利------------------------------- dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "prod") if cls <= 0 then %> <% end if end if end if '---------------------确定是否具有管理产品的权利------------------------------- %>
<% select case request.QueryString("action") case "addok" proid = trim(request.Form("proid")) sheng = trim(request.Form("lz_sf")) shi = trim(request.Form("lz_sx")) sales = request.Form("sales") if proid <> "" and seheng <> "0" and shi <> "0" then sql = "select * from SearchPro" set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew rs("s_proid") = proid rs("s_sheng") = sheng rs("s_shi") = shi rs("s_sales") = sales rs("s_date") = date() rs.update rs.close set rs = nothing response.Write("") response.End() response.End() else response.Write("null") response.End() end if case "delpro" proid = cint(request("proid")) sql = "delete from searchPro where s_id="&proid conn.execute (sql) response.Write("") %> <% case "addPro" %>

产品查询添加　　　　　　　　　　　　　　　　查看列表

产品编号： 销售区域： 是否卖出： 是  否

<% case else %>

添加信息　　　　　　　　　　　　　产品查询列表

<% set rs = server.CreateObject("adodb.recordset") sql = "select * from SearchPro order by s_id desc" rs.open sql,conn,1,1 %> <% if rs.bof and rs.eof then response.Write("") else rs.pagesize=15 page=cint(request.QueryString("page")) if page<=0 then page=1 end if if page>rs.pagecount then page=rs.pagecount end if rs.absolutepage=page for i = 1 to rs.pagesize %> <% rs.movenext if rs.eof then exit for next %> ID 产品编号 销售区域 是否卖出 添加时间 删除 暂时没有添加内容! <%= rs("s_id") %> <%= rs("s_proid") %> <%= rs("s_sheng") %> <%= rs("s_shi") %> <% if rs("s_sales") <> true then %>否<% else %>是<% end if %> <%= rs("s_date") %> ">   第<%=page%>页/共<%=rs.pagecount%>页　 <% if page>1 then %>首 页 <% else response.Write("首 页") end if %> | <%if page>1 then%> 上一页 <% else response.write("上一页") end if %> | <%if page 下一页 <% else response.write("下一页") end if %> | <%if page 尾 页 <% else response.write("尾 页") end if %> 　共<%=rs.recordcount%>条 <% end if rs.close set rs = nothing %>

<% end select %>