图书馆
  • 首页
  • 小强直播
  • 小强音乐
  • 小强新闻
  • 个人中心
  • 山东大学
  • 研究生部
  • 文献搜索
<%=Session("User_Account")%>


此操作需要二级密码才能执行
输入二级密码:
 
<%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 Url_Share='是' order by Url_Id desc" rs.open sql,conn,1,1 rs.PageSize=30 if not rs.eof then rs.AbsolutePage=page for k=1 to rs.PageSize %>
  • " title="<%=rs("f_Fav_Title")%><%=rs("f_Fav_Memo")%>" target="_blank"> <%=Left(rs("f_Fav_Title"),10)%>
  • <% 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 %>