<%usertopview%> <%if userflag26=0 then response.redirect"ok.asp?action=flag" end if if request("action")="save" then cpsort=trim(request("cpsort")) set rs=Server.CreateObject("Adodb.Recordset") sql="select * from SMT_collection_sort where SMT_yp_id="& session("id") rs.open sql,conn,1,3 if userflag9<>0 then if rs.recordcount >= cint(userflag9) then errstyle="·您是"&vipshow&"，只能上传最多 "&userflag9&" 个产品分类！" scripterr end if else errstyle="·对不起，此功能已对"&vipshow&"关闭！" scripterr end if rs.addnew rs("SMT_collection_sort")=cpsort rs("SMT_yp_id")=session("id") rs.update rs.close set rs=nothing response.redirect"my_collection_sort.asp" '============================================== elseif request("action")="edit" then cpsort=trim(request("cpsort")) if cpsort="" then errstyle="·对不起，产品分类不能为空" scripterr end if set rs=Server.CreateObject("Adodb.Recordset") sql="select * from SMT_collection_sort where SMT_id="&request("id")&" and SMT_yp_id="&session("id") rs.open sql,conn,1,3 if userflag9=0 then errstyle="·对不起，此功能已对"&vipshow&"关闭！" scripterr end if rs("SMT_collection_sort")=cpsort rs.update rs.close set rs=nothing response.redirect"my_collection_sort.asp" elseif request("action")="px" then set rs=Server.CreateObject("Adodb.Recordset") sql="select * from SMT_collection_sort where SMT_id="&request("id")&" and SMT_yp_id="&session("id") rs.open sql,conn,1,3 rs("SMT_date")=now() rs.update rs.close set rs=nothing response.redirect"my_collection_sort.asp" elseif request("action")="del" then conn.execute("delete From SMT_collection Where SMT_sortid="&request("id")&" and SMT_yp_id="&session("id")) conn.execute("delete From SMT_collection_sort Where SMT_ID="&request("id")&" and SMT_yp_id="&session("id")) response.redirect"my_collection_sort.asp" end if%>

您现在的位置是：我的公文包 > 我的收藏 　　添加收藏分类 分类名称 　添加收藏 　　收藏分类管理 <%set rs=Server.CreateObject("Adodb.Recordset") sql="select * from SMT_collection_sort where SMT_yp_id="&session("id")&" order by SMT_date desc" rs.open sql,conn,1,1 if rs.eof then response.write"" else do while not rs.eof%> "> <%rs.movenext loop end if rs.close set rs=nothing%> 暂无分类 "> 　&action=px>排序　&action=del>删除

<%=citybottom%>