用户管理中心 - 网址收藏夹

<% If Session("User_Account")="" Then Call AlertUrl("请先登陆！","Index.asp") Response.End End if %> <% Dim act act=Request("act") if act="addGroup" Then set rst=conn.execute("Select * from Group_Info where Session_Id='"&Session("User_Account")&"' and Group_Title='"&Request.Form("gname")&"'") if Not rst.eof then set rst=nothing Call AlertUrl("该分类已存在！","FavGroup.asp") Response.End End if set rst=nothing set rs=Server.CreateObject("ADODB.recordset") sql="select * from Group_Info" rs.open sql,conn,1,3 rs.addnew rs("Group_Title")=Trim(Request.Form("gname")) rs("Session_Id")=Session("User_Account") rs.update rs.close set rs=nothing conn.close set conn=nothing Call AlertUrl("添加成功！","FavGroup.asp") Response.End End if if act="editGroup" Then set rs=Server.CreateObject("ADODB.recordset") sql="select * from Group_Info where Session_Id='"&Session("User_Account")&"' and Group_Title='"&Request.Form("gname_old")&"'" rs.open sql,conn,1,3 rs("Group_Title")=Request.Form("gname") rs.update rs.close set rs=nothing conn.close set conn=nothing Call AlertUrl("修改成功！","FavGroup.asp") Response.End End if if act="delGroupOnly" Then set rs=Server.CreateObject("adodb.recordset") rs.open "select * from Group_Info where Session_Id='"&Session("User_Account")&"' and Group_Title='"&Request("group_name")&"'",conn,1,3 rs.delete rs.close Call AlertUrl("删除成功！","FavGroup.asp") Response.End End if %> 用户管理中心 - 网址收藏夹

<% if Len(Trim(Request("page")))=0 Then '返回目标页码的判断 page=1 Else page=CInt(Trim(Request("page"))) End if set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from Group_Info where Session_Id='"&Session("User_Account")&"' order by Group_Id desc" rs.open sql,conn,1,1 rs.PageSize=10 if not rs.eof then rs.AbsolutePage=page for k=1 to rs.PageSize %> <% rs.movenext if rs.EOF Then Exit For next end if %>

分类名	改名	删除	排序
"><%=rs("Group_Title")%>	')">改名	', 0)">删除	', 1);">↑ ', -1);">↓

<% if page <>1 then Response.Write "首页 " end if tmppage = page - 1 if tmppage <= 0 then tmppage = 1 else Response.Write"上一页" end if tmppage = page + 1 if tmppage >rs.PageCount then tmppage = page else Response.Write " 下一页 " end if if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then Response.Write "尾页" end if Response.Write " "&rs.RecordCount&" 条记录 " if Cstr(rs.PageCount) <> 0 then Response.Write "" & page & " / "&rs.PageCount&"页" end if rs.close set rs=nothing conn.close set conn=nothing %>