<% 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%>