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

<% if Len(Trim(Request("page")))=0 Then '返回目标页码的判断 page=1 Else page=CInt(Trim(Request("page"))) End if set rs=Server.CreateObject("ADODB.RecordSet") if Request("Group")<>"" Then sql="select * from Fav_Info where Session_Id='"&Session("User_Account")&"' and f_Fav_Group='"&Request("group")&"' order by Url_Id desc" Else sql="select * from Fav_Info where Session_Id='"&Session("User_Account")&"' order by Url_Id desc" End if rs.open sql,conn,1,1 rs.PageSize=5 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 %> <% if rs.EOF=rs.BOF Then %>

<%=Request("group")%> 网址	修改	删除
" title="<%=rs("f_Fav_Url")%>" target="_blank"><%=rs("f_Fav_Url")%>" target="_blank" title="<%=rs("f_Fav_Title")%>" style="color:red; "> \| <%=rs("f_Fav_Title")%>	">修改	', '您的操作将彻底删除这条网址! 是否继续?')" >删除

<%End if%>

<% db_path = "#space.asp" Set conn_Left= Server.CreateObject("ADODB.Connection") conn_Leftstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path) conn_Left.Open conn_Leftstr %> <% Set rs_Left = Server.CreateObject ("ADODB.Recordset") sql="select * from Group_Info where Session_Id='"&Session("User_Account")&"'" rs_Left.Open sql,conn_Left,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 rs_Left.close Set rs_Left = Nothing conn_Left.close set conn_Left=Nothing %>