<%usertopview%> <%if userflag26=0 then response.redirect"ok.asp?action=flag" end if if request("action")="save" then '============================================= SMT_sortid=request("SMT_sortid") SMT_name=request("SMT_name") SMT_collection=request("SMT_collection") if left(SMT_collection,7)<>"http://" or len(SMT_collection)<10 then errstyle="·对不起，请填写正确收藏地址！" scripterr end if set rs=Server.CreateObject("Adodb.Recordset") sql="select * from SMT_collection where SMT_yp_id="& session("id") rs.open sql,conn,1,3 if userflag22<>0 then if rs.recordcount >= cint(userflag22) then errstyle="·您是"&vipshow&"，只能上传最多 "&userflag22&" 个收藏地址！" scripterr end if else errstyle="·对不起，此功能已对"&vipshow&"关闭！" scripterr end if rs.addnew rs("SMT_sortid")=SMT_sortid rs("SMT_name")=SMT_name rs("SMT_collection")=SMT_collection rs("SMT_yp_id")=session("id") rs.update rs.close set rs=nothing response.redirect"my_collection.asp" '============================================== elseif request("action")="del" then conn.execute("delete From SMT_collection Where SMT_id="&request("id")&" and SMT_yp_id="&session("id")) response.redirect"my_collection.asp?sortid="&request("sortid")&"&page="&request("page")&"" '============================================= elseif request("action")="px" then set rs=Server.CreateObject("Adodb.Recordset") sql="select * from SMT_collection 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.asp?sortid="&request("sortid")&"&page="&request("page")&"" 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 do while not rs.eof%> ><%=rs("SMT_collection_sort")%> <%rs.movenext loop rs.close set rs=nothing%> 新分类 收藏名称 地址 　　收藏管理 <%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 do while not rs.eof%> <%rs.movenext loop rs.close set rs=nothing%> 全部收藏 未分类 ><%=rs("SMT_collection_sort")%> <%set rs=Server.CreateObject("Adodb.Recordset") if request("sortid")<>"" then sql="select * from SMT_collection where SMT_yp_id="&session("id")&" and SMT_sortid="&request("sortid")&" order by SMT_date desc" else sql="select * from SMT_collection where SMT_yp_id="&session("id")&" order by SMT_date desc" end if rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "" else '分页的实现 listnum=20 Rs.pagesize=listnum page=Request("page") if (page-Rs.pagecount) > 0 then page=Rs.pagecount elseif page = "" or page < 1 then page = 1 end if Rs.absolutepage=page '编号的实现 j=rs.recordcount j=j-(page-1)*listnum i=0 do while not rs.eof and i <%rs.movenext i=i+1 j=j-1 loop%> <%filename="my_collection.asp?sortid="&request("sortid")&""%> <%end if%> 暂无内容 target=_blank><%=rs("SMT_name")%> &action=px&sortid=<%=request("sortid")%>&page=<%=request("page")%>>排序 &action=del&sortid=<%=request("sortid")%>&page=<%=request("page")%>>删除 共 <%=Rs.pagecount%> 页 <% if page=1 then %> <%else%> >|<< &page=<%=page-1%>><< &page=<%=page-1%>>[<%=page-1%>] <%end if%><% if Rs.pagecount=1 then %> <%else%>[<%=page%>] <%end if%> <% if Rs.pagecount-page <> 0 then %> &page=<%=page+1%>>[<%=page+1%>] &page=<%=page+1%>>>> &page=<%=Rs.pagecount%>>>>| <%end if%>

<%=citybottom%>