谁可以提供产品发布系统 产品管理 ASP 代码？

<%@ codepage ="936" %>
　　<!--#include file="conn.asp"-->
　　<!--#include file="checkuser.asp"-->
　　<%
　　const MaxPerPage=10
　　dim totalPut
　　dim CurrentPage
　　dim TotalPages
　　dim i
　　if not isempty(request("page")) then
　　currentPage=cint(request("page"))
　　else
　　currentPage=1
　　end if
　　dim sql
　　dim rs

　　if request("act")="del" then
　　'sql="delete * from Product where shop_id="&request("shop_id") '不支持FSO
　　'conn.execute sql'不支持FSO
　　'response.redirect "shop_list.asp" '不支持FSO

　　'支持FSO
　　set rs= Server.CreateObject("ADODB.Recordset")
　　sql="select * from Product where shop_id="&request("shop_id")
　　rs.open sql,conn,3,3
　　pic_url=rs("pic")
　　pic2_url=rs("pic