<% If Session("User_Account")="" Then Call AlertUrl("请先登陆！","fav.asp") Response.End End if %> 用户管理中心 - 网址收藏夹
<%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 Fav_Info where Session_Id='"&Session("User_Account")&"' order by Url_Id desc" rs.open sql,conn,1,1 rs.PageSize=15 if not rs.eof then rs.AbsolutePage=page for k=1 to rs.PageSize %>
  • " href="<%=rs("f_Fav_Url")%>" target="_blank"> <%=rs("f_Fav_Title")%>
    • <% rs.movenext if rs.EOF Then Exit For next end if %> <% if rs.EOF=rs.BOF Then %>

<% 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 rst=nothing conn.close set conn=nothing %>   
添加网址